Bom dia a todos.
Tenho um form (popup) onde o usuario escolhe um periodo de datas (dt_inicio e dt_fim) e um cliente especifico.
Coloquei um botão "Print Preview" , neste form que quando acionado abri um previen report. Dentro deste report pretendo achar o numero de registros filtrados numa tabela (cad_atas) para poder calcular o percentual de participação do cliente escolhido, porem a função Dcount que estou usando so me apresenta " Zero registros localizados", a filtragem para a montagem do report funciona, somente a contagem de registros não da certo. Abaixo a rotina que estou usando. Agradeceria muito a ajuda dos "mestres".
Aproveito para parabenizar os colaboradores, este é sem duvidas um dos melhores, se não for o melhor forum de access.
Grato
"Private Sub Report_Open(Cancel As Integer)
Dim intcount As Integer
intcount = DCount("nr_ata", "cad_atas", "dt_sessao >= DateValue('" & [Forms]![frm_pct_presenca]![dt_inicio] & "') AND dt_sessao <= DateValue('" & [Forms]![frm_pct_presenca]![dt_fim] & "')")
MsgBox "Total registros filtrados para datas entre " & DateValue([Forms]![frm_pct_presenca]![dt_inicio]) & " e " & Chr(13) + Chr(10) & DateValue([Forms]![frm_pct_presenca]![dt_fim]) & " = " & intcount, vbSystemModal, "Nr.atas no periodo"
End Sub"
Tenho um form (popup) onde o usuario escolhe um periodo de datas (dt_inicio e dt_fim) e um cliente especifico.
Coloquei um botão "Print Preview" , neste form que quando acionado abri um previen report. Dentro deste report pretendo achar o numero de registros filtrados numa tabela (cad_atas) para poder calcular o percentual de participação do cliente escolhido, porem a função Dcount que estou usando so me apresenta " Zero registros localizados", a filtragem para a montagem do report funciona, somente a contagem de registros não da certo. Abaixo a rotina que estou usando. Agradeceria muito a ajuda dos "mestres".
Aproveito para parabenizar os colaboradores, este é sem duvidas um dos melhores, se não for o melhor forum de access.
Grato
"Private Sub Report_Open(Cancel As Integer)
Dim intcount As Integer
intcount = DCount("nr_ata", "cad_atas", "dt_sessao >= DateValue('" & [Forms]![frm_pct_presenca]![dt_inicio] & "') AND dt_sessao <= DateValue('" & [Forms]![frm_pct_presenca]![dt_fim] & "')")
MsgBox "Total registros filtrados para datas entre " & DateValue([Forms]![frm_pct_presenca]![dt_inicio]) & " e " & Chr(13) + Chr(10) & DateValue([Forms]![frm_pct_presenca]![dt_fim]) & " = " & intcount, vbSystemModal, "Nr.atas no periodo"
End Sub"