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

    [Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta

    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta Empty [Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta

    Mensagem  Vanderlei 25/9/2021, 13:24

    Olá meu povo
    Será que alguém poderia me dar uma luz por favor
    Esta aparecendo esta msg (erro na linha em negrito) não estou sabendo onde pode ser

    Erro 3075 - Erro de sintaxe de data na expressão da consulta

    Private Sub datarecebe_BeforeUpdate(Cancel As Integer)
    If Me.TipoPag.Value = "debito" Or Me.TipoPag.Value = "cartão" Then
    Exit Sub
    'ElseIf Me.TipoPag.Value = "Dinheiro" Or Me.TipoPag.Value = "cheque" Then
    ElseIf Me.TipoPag.Value = "Dinheiro" Then
           CurrentDb.Execute "INSERT INTO CADCAIXA(DataPagto,DtVenda, Historico, NParc, NomeLoja, tipopagamento, Entrada,NControle,NomeCliente) VALUES (#" & Format(DataEntrada, "mm-dd-yyyy") & "#,#" & Format(DATA_ORC, "mm-dd-yyyy") & "#,'" & Forms!frmcontroleVendaFinControle.txthistorico & "','" & Forms!frmcontroleVendaFinControle.parcelas & "','" & Forms!frmcontroleVendaFinControle.CódigoLoja & "','" & Forms!frmcontroleVendaFinControle.TipoPag & "'," & ValorVenda & "," & Forms!frmcontroleVendaFinControle!txtNumeroControle & ",'" & Forms!frmcontroleVendaFinControle!NomeCliente & "');"

         If MsgBox("Estes dados serão ADICIONADOS ao caixa - DADOS CORRETOS ?" & vbCr & vbCr & "Data de pagamento: " & DataRecebimento & vbCr & vbCr & "Valor do Recebido: Entrada ou A Vista: " & ValorEntrada, vbYesNo, "Confirmar os dados") = vbYes Then
      Else
         DoCmd.CancelEvent
      End If
    End If
    End Sub
    avatar
    Vanderlei
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta Empty Re: [Resolvido]Erro 3075 - Erro de sintaxe de data na expressão da consulta

    Mensagem  Vanderlei 25/9/2021, 13:35

    Pessoal

    depois de continuar insistindo, encontrei o erro, coloquei o campo errado no Insert Into...


      Data/hora atual: 16/10/2021, 22:57