[construindo evento no botão SALVAR no ACCESS]

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.

[org.postgresql.util.PSQLException: Nenhum resultado foi retornado pela]

pessoal. resolvi o problema. aqui está o código que eu alterei, ou seja, o problema foi resolvido.

public void adicionarDados(ArrayList<String> nomes, Connection conn) {
        String query;
        ResultSet rs = null;
        try {

            conn = ConexaoPostgreSQL.getConexao();

            query = "INSERT INTO sppweb.produtor(nome_produtor,cpf) VALUES(?,?)";

            PreparedStatement stmt = conn.prepareStatement(query);

            for (int i = 0; i < nomes.size(); i++) {

                stmt.setString(1, nomes.get(i));

                
                stmt.executeUpdate();
                
            

            }
            stmt.close();
        
            conn.close();

        } catch (SQLException sqlex) {
            sqlex.printStackTrace();
        }

grato pela atenção de vocês. !

[org.postgresql.util.PSQLException: Nenhum resultado foi retornado pela]

Boa tarde pessoal, gostaria que alguém pudesse me ajudar se for possível. Eu tenho o seguinte método:

public void adicionarDados(ArrayList<String> nomes, Connection conn) {
        String query;
        ResultSet rs = null;
        try {

            conn = ConexaoPostgreSQL.getConexao();

            query = "INSERT INTO sppweb.produtor(nome_produtor) VALUES(?)";

            PreparedStatement stmt = conn.prepareStatement(query);

            for (int i = 0; i < nomes.size(); i++) {

                stmt.setString(1, nomes.get(i));

                rs = stmt.executeQuery();
                
                while(rs.next()){
                    
            rs.getString(1);

                }

            }
            stmt.close();
            rs.close();
            conn.close();

        } catch (SQLException sqlex) {
            sqlex.printStackTrace();
        }

    }

e recebo a seguinte exceção:

org.postgresql.util.PSQLException: Nenhum resultado foi retornado pela consulta.

dados inseridos com sucesso

at org.postgresql.jdbc2.AbstractJdbc2Statement.executeQuery(AbstractJdbc2Statement.java:255)

at br.gov.adagri.ConexaoPostgreSQL.adicionarDados(ConexaoPostgreSQL.java:78)

at br.gov.adagri.ComparacaoDB.main(ComparacaoDB.java:26)

alguém poderia me ajudar ? grato.