Ir para o conteúdo
Kyryus

Variavel em SQL

Mensagens Recomendadas

Kyryus    0
Kyryus

Boa Tarde

tenho o seguinte código em VBA

[pre]    Do While Not rctMaquina.EOF

        combo_maquina.SetFocus

        If combo_maquina.Text = rctMaquina("nome_máquina") Then

            combo_conjunto.SetFocus

            If combo_conjunto.Text = rctMaquina("conjunto") Then

                combo_apagar.SetFocus

                If combo_apagar.Text = rctMaquina("Artigo") Then

                    strArtigo = combo_apagar.Text

                    combo_maquina.SetFocus

                    strMaquina = combo_maquina.Text

                    combo_conjunto.SetFocus

                    strConjunto = combo_conjunto.Text

                    DoCmd.RunSQL ("DELETE from tbl_sub_conjunto WHERE nome_máquina = strMaquina ")

                    lista.Requery

                End If

            End If

        End If

    rctMaquina.MoveNext

    Loop

[/pre]

e queria que o codigo fose apagar um registo segundo o nome da maquina - strMaquina -

só que quando executo surge-me uma caixa de dialogo a pedir pa inserir texto.

mas eu ja defIni a variavel... mas continua a dar erro.

qual a solução?

desde ja... obrigado  :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Kyryus    0
Kyryus

ja ta resolvido! para qum tem o mesmo problema aqui fika:

[pre]Do While Not rctMaquina.EOF

        combo_maquina.SetFocus

        If combo_maquina.Text = rctMaquina("nome_máquina") Then

            combo_conjunto.SetFocus

            If combo_conjunto.Text = rctMaquina("conjunto") Then

                combo_apagar.SetFocus

                If combo_apagar.Text = rctMaquina("Artigo") Then

                    strArtigo = combo_apagar.Text

                    combo_maquina.SetFocus

                    strMaquina = combo_maquina.Text

                    combo_conjunto.SetFocus

                    strConjunto = combo_conjunto.Text

                  strSQL = "DELETE from tbl_sub_conjunto WHERE nome_máquina = '" & strMaquina & "';"

                    DoCmd.RunSQL strSQL

                    lista.Requery

                End If

            End If

        End If

    rctMaquina.MoveNext

    Loop[/pre]

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

DoCmd.RunSQL ("DELETE from tbl_sub_conjunto WHERE nome_máquina = strMaquina ") <--- isto está errado

Será assim:

DoCmd.RunSQL ("DELETE from tbl_sub_conjunto WHERE nome_máquina = " & strMaquina & ")"

Já agora, qual é o objectivo? pq olho para esse código e vejo algo de errado!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Kyryus    0
Kyryus

DoCmd.RunSQL ("DELETE from tbl_sub_conjunto WHERE nome_máquina = strMaquina ") <--- isto está errado

Será assim:

DoCmd.RunSQL ("DELETE from tbl_sub_conjunto WHERE nome_máquina = " & strMaquina & ")"

Já agora, qual é o objectivo? pq olho para esse código e vejo algo de errado!

se vires bem... no segundo post o que ta a vermelho ta correcto!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
Tiago Salgado

Tiago o código está correcto. Em VBA (Access neste caso) é assim.

Qual é que está correcto?O 2º código q ele pos só reparei depois de postar.

se vires bem... no segundo post o que ta a vermelho ta correcto!

Só reparei depois de corrigir :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade