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

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.

Bom dia

Poste a tabela

Bom Natal

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.

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.

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

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