gravar o registo ao sair do ultimo campo do formulario

ola bom dia

preciso de uma ajuda de vocês
como faço pra gravar o registro somente quanto sair do Ultimo campo do formulário


desde já  agradeço

Bom dia.

No último campo após sair vc pode utilizar por exemplo.

CurrentDb.Execute "Insert Into SuaTabela (CampoTabela1,CampoTabela2,CampoTabela3) Values (""" & NomeDoCampo1DoFormulário & """,""" & NomeDoCampo2DoFormulário & """,""" & NomeDoCampo3DoFormulário & """)"

bom dia amigo

não conseguir faze o código funcionar

nome da minha tabela e : mensal

os campos são > matricula, nome, Mês/ano, meta, produzido, salario,

quero que so grave o registo quanto sair do ultimo campo

Veja:

No último campo quando vc terminar de digitar os dados e sair ira aparecer uma janela perguntando se gostaria de gravar caso sim ele ira gravar as alterações na tabela e limpará os campos para nova digitação.

Código:

If IsNull(Me.txtMatricula) Then
        
        Exit Sub
        
        Else
            
                If MsgBox("Gravar Registro?", vbYesNo, "Gravar Registro") = vbYes Then
            
            
            CurrentDb.Execute "Insert Into mensal (Matricula,nome,Data,meta,produzido,salario) Values" _
            & "(""" & Me.txtMatricula & """,""" & Me.Nome & """,""" & Me.txtData & """,""" & Me.txtMeta & """,""" & Me.txtProduzido & """,""" & Me.txtSalario & """)"
            
            Call LimpaCampos
            
            End If
                
                
    End If


Este Call LimpaCampos é uma Rotina para limpar os campos caso vc aceite as alterações no formulário

Código:

Private Sub LimpaCampos()

Me.txtData = ""
Me.txtMatricula = ""
Me.txtMeta = ""
Me.txtProduzido = ""
Me.txtSalario = ""
Me.Nome = ""

End Sub

Forte abraço.

ola boa tarde
no funcionou esta gravando mesmo clicando em nao

Boa tarde Marcos.
O Exemplo que postei está funcionando corretamente.

Lembrando que este é um exemplo para vc adaptar ao seu projeto.
Caso tenha dificuldade para adaptá-lo poste o bd para uma melhor solução.

Abraço amigo.

não consigo anexar arquivo

Marcos atente ao formato do arquivo se é zip e ao tamanho se não excede os 3 megas

segue aquivo