blarissas2 15/2/2022, 15:26
@crysotomo Obrigada!
Mas, minha dificuldade está em imprimir o relatório referente a um registro específico, pois quando dou o comando de imprimir todos os registros do relatório aparecem sem o filtro, eu não consigo aplicar esse filtro que se chama Prontuário nem direto no relatório e nem em conexão com o formulário que faço o preenchimento. Já vi tópicos falando que pode ser o fato de ter acento, mas já consegui aplicar o mesmo filtro em outras coisas, como filtrar entre formulários e deu certo.
Tentei aqui o seguinte código e dar erro se eu abrir mais de um registro.
Private Sub Comando136_Click()
On Error Resume Next
Dim strDocName As String
Dim a As String
a = MsgBox("Deseja visualizar a impressão da ficha desse Usuário?", vbYesNo, "Confirmar")
If a = vbYes Then
Dim strFilter As String
strDocName = "Relatório3"
strFilter = "Prontuário= Forms!Cadastro!Prontuário"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter
If Err = 2501 Then
Err.Clear
End If
DoCmd.Close acReport, "DocumentosImp"
End If
End Sub