Boa tarde para todos.
Há tempos eu utilizo a seguinte linha para impressão:
Dim strDocName As String
Dim strFilter As String
strDocName = "receituario"
strFilter = "CodRec=forms!receituario!CodRec"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
Porém de uma hora para outra, não realiza mais o filtro. Quando gero uma receita, preenchendo os campos do formulário, salvo e mando imprimir, vem outro "codrec" e na descrição dos medicamentos, posologia e uso aparecem todos.
Revi a estrutura da consulta e esta em ordem com todos os campos. Na estrutrua do relatório também inseri o filtro = CodRec=forms!receituario!CodRec e nada de resultado.
Muito estranho isso !!
Agradeço a ajuda.
Há tempos eu utilizo a seguinte linha para impressão:
Dim strDocName As String
Dim strFilter As String
strDocName = "receituario"
strFilter = "CodRec=forms!receituario!CodRec"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
Porém de uma hora para outra, não realiza mais o filtro. Quando gero uma receita, preenchendo os campos do formulário, salvo e mando imprimir, vem outro "codrec" e na descrição dos medicamentos, posologia e uso aparecem todos.
Revi a estrutura da consulta e esta em ordem com todos os campos. Na estrutrua do relatório também inseri o filtro = CodRec=forms!receituario!CodRec e nada de resultado.
Muito estranho isso !!
Agradeço a ajuda.