Kyryus Posted March 27, 2008 Report Share Posted March 27, 2008 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 🙂 Link to comment Share on other sites More sharing options...
Kyryus Posted March 27, 2008 Author Report Share Posted March 27, 2008 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] Link to comment Share on other sites More sharing options...
Tiago Salgado Posted March 27, 2008 Report Share Posted March 27, 2008 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! Link to comment Share on other sites More sharing options...
jpaulino Posted March 27, 2008 Report Share Posted March 27, 2008 Tiago o código está correcto. Em VBA (Access neste caso) é assim. Link to comment Share on other sites More sharing options...
Kyryus Posted March 27, 2008 Author Report Share Posted March 27, 2008 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! Link to comment Share on other sites More sharing options...
Tiago Salgado Posted March 27, 2008 Report Share Posted March 27, 2008 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 🙂 Link to comment Share on other sites More sharing options...
jpaulino Posted March 27, 2008 Report Share Posted March 27, 2008 Qual é que está correcto?O 2º código q ele pos só reparei depois de postar. Ele corrigiu ... 🙂 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now