MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Dcount condição data

    avatar
    camilosousa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 24/11/2016

    [Resolvido]Dcount condição data Empty [Resolvido]Dcount condição data

    Mensagem  camilosousa em 2/4/2019, 00:43

    Boa noite, desde ja peço desculpas caso o tópico ja exista, ja procurei aqui e em outros mais não consegui resolver meu problema.

    OBS: Sou iniciante rsrsr

    Tenho o seginte comando em um botão, onde o Dcount não me tras resultado por mais que exista a data na tabela.
    Oque estaria errado?
    Desde ja agradeço

    Código:

    Private Sub bt_lancamento_Click()

    DoCmd.OpenForm "frm_lancamento"

    Dim Conta As Integer

    Conta = DCount("codigo", "tbl_movimentacao", "data_movimentacao=" & Format(Date, "dd/mm/yyyy"))

    If Conta = 0 Then

    DoCmd.SetWarnings False

    DoCmd.RunSQL "Insert Into tbl_movimentacao(codigo_operador,data_movimentacao,tipo_movimentacao,quantidade) values('0','" & Date & "','R','0')", dbFailOnError

    DoCmd.RunSQL "Insert Into tbl_movimentacao(codigo_operador,data_movimentacao,tipo_movimentacao,quantidade) values('0','" & Date & "','D','0')", dbFailOnError
      End If

    End Sub
    avatar
    camilosousa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 24/11/2016

    [Resolvido]Dcount condição data Empty Re: [Resolvido]Dcount condição data

    Mensagem  camilosousa em 2/4/2019, 02:37

    Resolvido coloquei no formato americano Very Happy

      Data/hora atual: 11/12/2019, 01:49