Ola povo,
Estou fazendo um insert na tabela LOGSYS,
porém, a operação é executada mas não gera dados na tabela, e não retorna codigo de erro,
Alguém me da uma força, não estou conseguindo ver o erro.
Já testei de 2(duas) formas.
FORMA 1
Private Sub BtnSalvar_Click()
On Error GoTo BtnSalvar_Click_Err
txtusuario = Var_Usu
txtUama = Var_Uama
txtOperacao = "ALTERAÇÃO"
txtSoceduc = COD_SOCEDU
TxtNome = NOME_SOCEDU
CurrentDb.Execute "Insert Into LOGSYS" _
& "Usuario_log = ('" & txtusuario & "')," _
& "uama_log =('" & txtUama & "')," _
& "operacao_log =('" & txtOperacao & "')," _
& "soceduc_log =('" & txtSoceduc & "')," _
& "nome_log =('" & TxtNome & "')"
BtnSalvar_Click_Exit:
Exit Sub
BtnSalvar_Click_Err:
MsgBox ("Erro ao incluir dados LOGSYS Erro:" & Erro$)
Resume BtnSalvar_Click_Exit
End Sub
FORMA 2
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into LOGSYS (txtusuario, txtuama, txtoperacao, txtsoceduc, txtnome) VALUES('" & TXTUSUARIO & "',' " & TXTUAMA & " ', ' " & TXTOPERACAO & " ',' " & TXTSOCEDUC & " ',' " & TxtNome & " ')"
MsgBox "Registro incluído com sucesso!", vbExclamation, "Registro de entrada"
DoCmd.SetWarnings True
As duas não gera o registro.
Obrigado pela ajuda.
Estou fazendo um insert na tabela LOGSYS,
porém, a operação é executada mas não gera dados na tabela, e não retorna codigo de erro,
Alguém me da uma força, não estou conseguindo ver o erro.
Já testei de 2(duas) formas.
FORMA 1
Private Sub BtnSalvar_Click()
On Error GoTo BtnSalvar_Click_Err
txtusuario = Var_Usu
txtUama = Var_Uama
txtOperacao = "ALTERAÇÃO"
txtSoceduc = COD_SOCEDU
TxtNome = NOME_SOCEDU
CurrentDb.Execute "Insert Into LOGSYS" _
& "Usuario_log = ('" & txtusuario & "')," _
& "uama_log =('" & txtUama & "')," _
& "operacao_log =('" & txtOperacao & "')," _
& "soceduc_log =('" & txtSoceduc & "')," _
& "nome_log =('" & TxtNome & "')"
BtnSalvar_Click_Exit:
Exit Sub
BtnSalvar_Click_Err:
MsgBox ("Erro ao incluir dados LOGSYS Erro:" & Erro$)
Resume BtnSalvar_Click_Exit
End Sub
FORMA 2
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into LOGSYS (txtusuario, txtuama, txtoperacao, txtsoceduc, txtnome) VALUES('" & TXTUSUARIO & "',' " & TXTUAMA & " ', ' " & TXTOPERACAO & " ',' " & TXTSOCEDUC & " ',' " & TxtNome & " ')"
MsgBox "Registro incluído com sucesso!", vbExclamation, "Registro de entrada"
DoCmd.SetWarnings True
As duas não gera o registro.
Obrigado pela ajuda.