[Resolvido]Erro no momento do Inserto Into

Olá

Meu sistema estava tudo funcionando corretamente, não sei se vem ao caso mas apos uma formatação e instalação do windows/office10
esta aparecendo este erro.

No evento apos atualizar do campo VALORLANC coloquei o código abaixo, só que esta gerando o erro em tempo de execução "2465" e não estou enxergando onde posso estar errado.



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

tire....Forms!formEntradadados.Descrição

coloque o ! em todos os ..... Forms!formEntradadados!Descrição

Código:

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
me.lst_ReceitaDespesa.Requery
End If
End Sub

Vanderlei, conseguiu resolver? A dica do Silvio ajudou?

Aguardamos...

Resolvido