alguem pode por favor verificar o codigo abaixo, estou a dois dias batendo nisso e nao sei onde esta o erro, o codigo corre tudo bem, porem nao atualiza a tabela..
DoCmd.SetWarnings False 'tirar avisos do acces
Refresh
DoCmd.RunSQL "UPDATE [tblControleNotificações] SET [tblControleNotificações].[DATAVISTORIA] = [Formulários]![subformDevolucao]![DATAVISTORIA], [tblControleNotificações].[AGENTELANCAMENTO] = [Formulários]![logado]![Usuário]" & _
"WHERE [tblControleNotificações].[DATAVISTORIA] = Null AND [tblControleNotificações].[AGENTELANCAMENTO] = Null AND [tblControleNotificações].[CODIGO]=[Formulários]![subformDevolucao]![CODIGO]"
DoCmd.SetWarnings True 'recoloca avisos do access
MsgBox "Finalizado com sucesso !"
Refresh
End Sub
DoCmd.SetWarnings False 'tirar avisos do acces
Refresh
DoCmd.RunSQL "UPDATE [tblControleNotificações] SET [tblControleNotificações].[DATAVISTORIA] = [Formulários]![subformDevolucao]![DATAVISTORIA], [tblControleNotificações].[AGENTELANCAMENTO] = [Formulários]![logado]![Usuário]" & _
"WHERE [tblControleNotificações].[DATAVISTORIA] = Null AND [tblControleNotificações].[AGENTELANCAMENTO] = Null AND [tblControleNotificações].[CODIGO]=[Formulários]![subformDevolucao]![CODIGO]"
DoCmd.SetWarnings True 'recoloca avisos do access
MsgBox "Finalizado com sucesso !"
Refresh
End Sub