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
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