[Resolvido]Limpar registos de uma consulta

Bom dia,

Tenho um formulário que contem um subformulário. Este formulário tem um botão "Imprimir" que chama um relatório baseado
numa consulta, ao mesmo tempo que guarda esse relatório em pdf.
Acontece que todos os registos ficam na consulta e ao imprimir acaba por imprimir todos os relatórios dos clientes que ficam
guardados na consulta.
Pretendo ao "Imprimir":
1. Imprimir o relatório (está correcto)
2. Guardar o relatório em pdf na pasta do cliente (está correcto)
3. Limpe os registos da consulta de modo a só imprimir o cliente actual(acumula os registos já efectuados)

Obrigado

Bom dia! Creio que deve usar o cliente como critério da cláusula where da consulta.
Pois a consulta não guarda nenhum registro, ela apenas apresenta registros baseados
em seus critérios.

Seria algo do tipo: SELECT * FROM SuaTabela WHERE CodigoCliente=NumeroCodigoCliente

Boa tarde Marcelo,

Em primeiro lugar o meu muito obrigado por se interessar no meu problema.
Não sei como fazer isso que me diz. Será que ajudava se enviasse a BD?

Agradecido

Boa tarde,

O código é o seguinte:

Private Sub BtnTerapImprimir_Click()

On Error Resume Next
   
   Dim strDocName As String
   Dim strFilter As String
   Dim strArquivo As String
   Dim strLocal As String
   
   
   If MsgBox("Imprimir registo actual?", vbQuestion + vbYesNo, "IMPRIMIR") = vbYes Then
       strDocName = "REL_GTRAT"
       FiltroRelatorioUtente = Me.TxtTerapID
       DoCmd.OpenReport strDocName
       DoCmd.OpenReport acViewPreview

       strArquivo = "\" & Form_FRM_TERAPEUTICA.TxtTerapNome & "\" & "GUIA_TRATAMENTO " & Format(Now, "ddmmyyyy") & ".pdf"
       strLocal = CurrentProject.Path & "\PROCESSOS" & strArquivo
       DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, strLocal
       DoCmd.OutputTo acOutputReport, "REL_GTRAT", acFormatPDF, "C:\Users\hmconpneumoenf\Desktop\Tuberculosis\PROCESSOS" & strArquivo
   End If
     
End Sub

Obrigado

Alguém no fórum pode ajudar-me. Desde já agradeço

Bom dia,
pelo o que vi no seu código, há uma variável que contem o filtro do relatório,
porém não é usado essa variável na cláusula WHERE na abertura do relatório
além de que o filtro parece incmopleto.

strDocName = "REL_GTRAT"
FiltroRelatorioUtente = Me.TxtTerapID
DoCmd.OpenReport strDocName
DoCmd.OpenReport acViewPreview

O filtro em negrito deve receber um valor parecido com isso:
FiltroRelatorioUtente = NomeCampoIdNaTabela = Me.TxtTerapID

Para usar o filtro, na abertura do relatório, altere o código em vermelho para algo
semelhante a isso (Será reduzido o seu código para apenas uma linha mesmo):

DoCmd.OpenReport strDocName, , , FiltroRelatorioUtente, acViewPreview



DoCmd.OpenReport "rel", acViewPreview, , ""

Caro Marcelo,

Segui o conselho e o que acontece é que dá um relatório em branco (Sem os dados do utente e sem a medicação que está a fazer).
Mantendo a linha como:
FiltroRelatorioUtente=Me.TxtTerapID
Imprime mas vai acumulando os registos, isto é:
Seleciono o utente Mário seleciono a medicação dele e carrego em imprimir e sucesso, mas se a seguir selecionar a Maria e fizer os mesmos
procedimentos aparecem no mesmo relatório o Mário e agora a Maria e assim sucessivamento. Se sair do programa e voltar a entrar dá certo e
depois vai acumulando.
Obrigado pela atenção

Sim, essa linha: FiltroRelatorioUtente=Me.TxtTerapID, nada faz. está aí e remover não terá nenhuma ação diferente.

E se o relatório retornou sem dados, isso indica que os critérios usados não foram os corretos.

Precisamos saber qual é o campo na tabela a ser comparado com Me.TxtTerapID, se esse for de fato o filtro a
ser aplicado.

Caro Marcelo,

Se enviar a BD dá para perceber?

Cumprimentos

Sim, pode enviar. Aguardo.

Caro Marcelo,

Envio em anexo a minha BD.
O que acontece agora é que imprime o cliente selecionado no FRM_TERAPEUTICA mas imprime os fármacos todos
e não aqueles que estão selecionados.

Grato pela atenção.

Aproveitando so pra sugestão e dúvida:

Cantu?

QUEM tá relacionado com QUEM?




O erro do relatório está relacionado com este problema.

Verifique em que momento vc grava o ID do Utente na "TB09_UTENTES_DETALHES"

é ISSO

Bom dia,

Em primeiro lugar os meus agradecimentos pelas contribuições positivas que tenho recebido.
Efectuei alguns ajustes nas relações das tabelas e neste momento emite apenas um relatório por cliente, no entanto
(há sempre algo errado! ) o relatório aparece com todos os fármacos da lista e não apenas aqueles que foram escolhidos no FRM_TERAPEUTICA.

Desde já os meus agradecimentos

Boa tarde,
Continuo sem conseguir resolver o meu problema, agradeço desde já a todos que possam ajudar-me a ultrapassar este problema.
Obrigado

Boa tarde,

Por gentileza, nos envie a versão onde você realizou os ajustes para analisarmos.

[]'s


FIM

Boa tarde Alexandre,

Desde já os meus agradecimentos pelo interesse demonstrado.
A versão é a mesma que já enviei (CRTMTJ_2.0.1G) e que você comentou, mas desculpe mas eu não consigo
perceber como resolver esta questão.
O que eu pretendia era depois de selecionar um cliente e indo para a folha de terapêutica selecionar a terapêutica
daquele cliente e imprimir a terapêutica selecionada, mas o que acontece é que imprime toda a terapêutica existente...
Será que o erro estará na elaboração do relatório? Se sim como fazer tudo funcionar na perfeição?
Grato por toda a ajuda que me puder dar.
Cumprimentos

Boa tarde,

Consegui resolver o problema que estava na ausência de um critério no relacionamento entre tabelas.
Agradeço a todos aqueles que tentaram ajudar-me
Muito obrigado

Resolvido