Convidado 26/4/2013, 15:01
Kaynan, vou te explicar em detalhes o que fiz.. apartir disso dá pra se fazer tudo que pretende.
1- Como se exibir o número do mes na consulta?
R - Criando um campo não acoplado utilizando a instrução Fortmat : CpMes: Format([Data_Cadastro];"m")
2- A consulta exibindo agora o numero do mes, procedemos a contagem do numero de diabéticos filtrado pelo mes:
R - Criando uma instrução com o Dcount fazendo referencia a consulta, esta expressão é filtrada pelo cpMes criado na consulta:
=DContar("*";"Cs_Diabeticos";"CpMes = '" & [Relatórios]![RelGeral]![txtMes] & "'")
3- No frmFiltro uma caixa de combinaçào com o número dos meses, que após atualiza abreo o relatório e este ao abrir coloca na caixa texto txtmes o numero do mes selecionado na combo, filtrado assim os registros expressos no mes contidos na caixa texto no relatório
Na combo:
Private Sub cboMes_AfterUpdate()
DoCmd.OpenReport "RelGeral", acViewPreview
End Sub
No Relatório
Private Sub Report_Load()
Me.txtMes = Forms!frmFiltro!cboMes.Value
End Sub
Cumprimentos.