peterson161

Olá. Sei um pouco de VBA, mas acho que dá pra te ajudar. Vamos lá... Você vai passar uma "where condition", que no caso é uma string. Então fica assim: 'Declaração das variáveis Dim stDocName, stDataInicial, stDataFinal, stCriterio As String 'Atribuindo os valores às variáveis stDocName = (nome do relatório) stDataInicial = (data inicial que foi digitada pelo usuário) stDataFinal = (data final que foi digitada pelo usuário) stCriterio = "[NOME DO CAMPO DA TABELA] Between " & stDataInicial & " And " & stDataFinal ' Chamando o relatório DoCmd.OpenReport, stDocName, acViewPreview, , stCriterio No VBA eu faço exatamente desta maneira e funciona. Tomara que te ajude.