MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Erro no momento do Inserto Into

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 20/01/2011

    [Resolvido]Erro no momento do Inserto Into Empty [Resolvido]Erro no momento do Inserto Into

    Mensagem  Vanderlei 11/4/2019, 19:47

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4962
    Registrado : 20/04/2011

    [Resolvido]Erro no momento do Inserto Into Empty Re: [Resolvido]Erro no momento do Inserto Into

    Mensagem  Silvio 11/4/2019, 20:29

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3715
    Registrado : 22/11/2016

    [Resolvido]Erro no momento do Inserto Into Empty Re: [Resolvido]Erro no momento do Inserto Into

    Mensagem  DamascenoJr. 2/11/2021, 13:06

    Vanderlei, conseguiu resolver? A dica do Silvio ajudou?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 239
    Registrado : 20/01/2011

    [Resolvido]Erro no momento do Inserto Into Empty Re: [Resolvido]Erro no momento do Inserto Into

    Mensagem  Vanderlei 7/11/2021, 10:33

    Resolvido

      Data/hora atual: 3/12/2022, 02:45