CRITERIO RELATORIOS ACCESS PELO VB

USUARIO.EXCLUIDOS 05/04/2007 15:37:03
#210532
a rotina que estou usando

Dim strDBName as String
Dim SQL as String
Dim RELA As Access.Application
Set RELA = New Access.Application
StrDBName="C:\Despesa\Despesa.mdb"

With RELA
.OpenCurrentDatabase filepath:= strDBName
.DoCmd.OpenReport "Despesa",acViewPreview,,
End With
Set RELA=Nothing
Não sei como colocar o critério abaixo.

SQL="Select * From tblDespesa Where Codigo='" & me.cdigo & "' And Tipo='" & me.Tipo & "' And Estilo='" & me.Estilo & "'"

O Relatório abre porem sem os registros filtrados até que se coloque o critério acima.

Valeu qualquer ajuda eu agradeço.
USUARIO.EXCLUIDOS 06/04/2007 09:16:37
#210578 Resposta escolhida
SQL="Select * From tblDespesa Where Codigo='" & me.cdigo & "' And Tipo='" & me.Tipo & "' And Estilo='" & me.Estilo & "'"

With RELA
.OpenCurrentDatabase filepath:= strDBName
.DoCmd.OpenReport "Despesa",acViewPreview,,
.SQLQuery = SQL
End With
USUARIO.EXCLUIDOS 07/04/2007 19:12:34
#210705
deu certo com a sua dica com detalhe a mais.

se a conexão atual for access deve fechar a conexão

set db=nothing


depois de abrir o relatório abrir a conexão novamente
se não for feito isso irá acontecer de aparecer página em branco quando tiver poucos registros ou faltando registro quando tiver varios registros.
Tópico encerrado , respostas não são mais permitidas
Voltar