[Resolvido]Insert Into não acrescenta na tabela

Meus amigos

Será que alguem poderia me auxiliar neste código:

Onde estou errando, na verdade executa sem erro mas não acrescenta os dados na tabela CADCAIXA

DESDE JÁ AGRADEÇO

Private Sub ValorLanc_BeforeUpdate(Cancel As Integer)
If Me.Tipo.Value = "Despesas" Then
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto, Historico, Historico1, saida, NomeLoja) VALUES (#" & Format(DataAutorizacao, "mm-dd-yyyy") & "#,'" & Forms!formEntradaDados.NomeBanco & "','" & Forms!formEntradaDados.Descrição & "','" & Forms!formEntradaDados.ValorLanc & "','" & Forms!formEntradaDados.NomeLoja & "');"
ElseIf Me.Tipo.Value = "Receita" Then
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto, Historico, Historico1, entrada, NomeLoja) VALUES (#" & Format(DataAutorizacao, "mm-dd-yyyy") & "#,'" & Forms!formEntradaDados.NomeBanco & "','" & Forms!formEntradaDados.Descrição & "','" & Forms!formEntradaDados.ValorLanc & "','" & Forms!formEntradaDados.NomeLoja & "');"
End If
End sub

Tardesss

Mude de Private Sub ValorLanc_BeforeUpdate(Cancel As Integer) para AfterUpdate ( depois de atualizar )

Grato pelo interesse

Mas infelizmente não resolveu, ja tinha feito isso antes que tb não tinha resolvido

Resolvido, a solução era mais simples do que eu pensava, códigos desnecessarios

Private Sub ValorLanc_AfterUpdate()
If Me.Tipo.Value = "Receita" Then
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto, Historico, Historico1, entrada, NomeLoja) VALUES (#" & Format(DataAutorizacao, "mm-dd-yyyy") & "#,'" & Forms!formEntradaDados.NomeBanco & "','" & Forms!formEntradaDados.Descrição & "','" & Forms!formEntradaDados.ValorLanc & "','" & Forms!formEntradaDados.NomeLoja & "');"
Else
CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto, Historico, Historico1, saida, NomeLoja) VALUES (#" & Format(DataAutorizacao, "mm-dd-yyyy") & "#,'" & Forms!formEntradaDados.NomeBanco & "','" & Forms!formEntradaDados.Descrição & "','" & Forms!formEntradaDados.ValorLanc & "','" & Forms!formEntradaDados.NomeLoja & "');"
Me.Form.Refresh
lst_ReceitaDespesa.Requery
End If
End Sub