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.