construindo evento no botão SALVAR no ACCESS

[Euclides Filizola]

Bom dia a todos. Eu sou novo em vba e então gostaria que alguém pudesse me ajudar. Eu estou tentando fazer uma coisa "simples". É o seguinte: eu possuo um formulário que liga a uma tabela no proprio access. O que acontece é que, eu tenho um botão salvar, que ao clicar nele, salva as informações que foram dadas no formulario, em uma tabela dentro do proprio arquivo chamada 'cadastro'. O que eu queria fazer era simples, no evento clicar, ou seja, quando ele fosse salvar o que tinha no formulario, antes de salvar, ele pegar o campo chamado "ERRO" e adicionar uma string. por exemplo " OK + String" e fizesse um update no campo erro da tabela cadastro. Eu andei pesquisando na internet, vi um pessoal utilizando resultsets e dao, mas eu não consegui fazer .

andei pesquisando na internet e me passaram algumas sintaxes e comandos.

então me passaram essa seguinte dica:

Private Sub SeucmdSalvar_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE SuaTabelaCadrastro Set [SuaTabelaCadrastro].[SeuCampoERRO] = " & Me.SeuCampoERRO_noForm & " WHERE [SuaTabelaCadrastro].[CampoChavePrimaria] = " & Me.CampoChavePrimaria_noForm & ""
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings True
End Sub

então eu tentei fazer no meu dessa forma:

Private Sub Comando782_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE FRENTE Set [FRENTE].[ERRO] = " & Me.Error_noForm & " WHERE [FRENTE].[CHAVE] = " & Me.CHAVE_noForm & ""
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings True

On Error GoTo Err_Comando782_Click



    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Comando782_Click:
    Exit Sub

Err_Comando782_Click:
    MsgBox Err.Description
    Resume Exit_Comando782_Click
   
End Sub

mas ae da erro... e então eu tentei mudar um pouco o código desta forma:

Private Sub Comando782_Click()

Dim CampoErro As String

Set CampoErro = Me.Error.Value

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE FRENTE Set [FRENTE].[ERRO] = " & CampoErro & " WHERE [FRENTE].[CHAVE] = " & Me.Chave & ""
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings True

On Error GoTo Err_Comando782_Click



    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Comando782_Click:
    Exit Sub

Err_Comando782_Click:
    MsgBox Err.Description
    Resume Exit_Comando782_Click
    
End Sub

mas da erro também ...

:(

tentem me entender:

eu já tenho um formulario pronto, com uma tabela pronta.

o que eu quero fazer é muito simples, no evento do botão salvar, além de ele fazer o normal que é "salvar", ele vá até o campo ERRO e adicione uma string fixa qualquer. porque eu preciso saber se a pessoa alterou os dados. Da para me entendeR? Eu agradeço a todos que tentarem me ajudar. abraços.