[Resolvido]Erro na atualização da funcao DoCmd.RunCommand acCmdRefresh

Private Sub custo_AfterUpdate()
If MsgBox("Custo é negativo" & ".... " & Me.CredDeb & ".", vbYesNo + vbExclamation ) = vbYes Then
DoCmd.SetWarnings False

   DoCmd.RunSQL "UPDATE CNScaixadet Set [CNScaixadet].[custo] = [CNScaixadet].[custo]*-1"
   DoCmd.SetWarnings True
   Me.Recalc
   DoCmd.RunCommand acCmdRefresh

Else
Exit Sub
End If

Quando acho o evento "d", Debito, pego o valor digitado e transformo em debito.... e ai da erro no DoCmd.RunCommand acCmdRefresh

Obrigado.

Carlos

"O método Refresh atualiza imediatamente os registros na fonte do registro base de um formulário (formulário: um objeto de banco de dados do Access no qual você coloca controles para executar ações ou para inserir, exibir e editar dados em campos.) ou de uma folha de dados (folha de dados: dados de uma tabela, um formulário, uma consulta, um modo de exibição ou um procedimento armazenado exibido em um formato de linha e coluna.) especificada, para refletir as alterações feitas nos dados por você e por outros usuários em um ambiente multiusuário."

Usar o método Refresh equivale a clicar em Atualizar na guia Página Inicial.

Copiei e colei por ser muito bem explicado.

me.Recalc, como o nome já diz, refaz os cálculos de um formulário


Utilize o me.requery, esse sim irá fazer a reconsulta na tabela.

[ ]'a