[Resolvido]Imprimir relatório atual entre duas data

Private Sub SeuBotão_Click()
  Dim strWhere As String

If Len(Me.Txt_Data_Inicial & vbNullString) > 0 And Len(Me.Txt_Data_Final & vbNullString) > 0 Then
    strWhere = "[Data_Recolha] Between #" & Me.Txt_Data_Inicial & "# And #" & Me.Txt_Data_Final & "#"
 
DoCmd.OpenReport "Rel_SolicitacaoRecolha_2", acViewPreview, , strWhere

End If
End Sub

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

Utilize o Sistema de Busca do Fórum...
102 Códigos VBA Gratuitos...
Instruções SQL como utilizar...

.................................................................................
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