• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Kyryus

Variavel em SQL

7 mensagens neste tópico

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  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Qual é que está correcto?O 2º código q ele pos só reparei depois de postar.

Ele corrigiu ...  :)

0

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