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]Uma ajuda com com Dcount - critério data inicial e final

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Silvio 24/12/2022, 10:34

    Prezados, bom dia / boa tarde  / boa noite.

    Precisa de uma ajuda em uma rotina.   Funciona perfeitamente, porém preciso colocar um critério a mais que seria de data ( inicial e final ) para mostrar o resultado do Dcount.
    Já bati a cabeça, mas sempre da um erro.    Sei que o erro é da minha parte, alguém pode por favor me ajudar ?

    Eu preciso saber quantos atendimentos a Paula fez entre um determinado período.



    Private Sub Form_Load()
    Dim x As String
    x = DCount("[Atendente ]", "TblSespera", "[Atendente ] = 'Paula'")
    Me.ContaPaula = x
    End Sub


    A data inicial e final vem do seguinte o formulário:
    Forms!FrmBuscaSEspera!Di = Data inicial
    Forms!FrmBuscaSEspera!Df = Data Final

    End Sub

    Desde já, meus agradecimentos a todos.


    Acréscimo.....uma das tentativas está abaixo.
    O texto em vermelho é onde ocorre o errro.

    x = DCount("[Atendente ]", "TblSespera", "Atendente  = 'Paula' and Dataatendimento between # & Format(Forms!FrmSEspera!di) & " And " & Format(Forms!FrmSEspera!df) & ")
    Me.ContaPaula = x

    Abraços.


    .................................................................................
    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."
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4757
    Registrado : 06/11/2009

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty Re: [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Assis 24/12/2022, 11:38

    Bom dia

    Poste a tabela

    Bom Natal santa


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty Re: [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Silvio 24/12/2022, 12:14

    Boa tarde nobre amigo Assis !!!

    Eis parte do sistema, já vai abrir no formulário de inserção de data inicial e final.

    Escolha o mes de dezembro para ficar mais simples.

    Obrigado.


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty Re: [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Silvio 25/12/2022, 11:45

    Bom dia / Boa tarde / Boa noite a todos.

    Mais uma tentativa.....frustrada...
    Dim x As String
    Dim filtroData$
    filtroData = "dataAtendimento Between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#"
    x = DCount("[Atendente ]", "TblSespera", "Atendente" = "'Thais'" & filtroData)
    Me.ContaThais = x

    Na data escolhida, essa usuária tem 7 atendimentos....e no formulário aparece....zero atendimentos.


    .................................................................................
    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."
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8272
    Registrado : 05/11/2009

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty Re: [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Alexandre Neves 25/12/2022, 16:00

    Boa tarde
    Tente
    x = DCount("*", "TblSespera", "Atendente='Thais' and dataAtendimento Between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Uma ajuda com com Dcount - critério data inicial e final Empty Re: [Resolvido]Uma ajuda com com Dcount - critério data inicial e final

    Mensagem  Silvio 26/12/2022, 09:54

    Alexandre, bom dia ou boa tarde.

    Perfeito, o que é um asterisco não ? Que grande diferença o mesmo não faz dentro de uma rotina !!!

    E eu batendo a cabeça aqui...meu muito obrigado mesmo !

    Segue a rotina, para quem como eu, vai passar por isso.

    Código:
    Private Sub Form_Load()
    Dim x As String
    x = DCount("*", "TblSespera", "Atendente='Thais' and dataAtendimento Between #" & Format(Me!di, "mm/dd/yyyy") & "# AND #" & Format(Me!df, "mm/dd/yyyy") & "#")
    Me.ContaThais = x
    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."

      Data/hora atual: 1/2/2023, 05:16