[Resolvido]Imprimir relatório correspondente ao registo que estou a ver no formulário

Olá

estou com alguma dificuldade para detetar o erro que me dá quando tento imprimir um relatório em que a ficha corresponda ao funcionário que estou a ver no formulário

no botão do formulário tenho o seguinte código que me está a dar o erro na figura anexa, ou seja

tenho um form com funcionários e acoplado a este um subfrmMovEPI com movimentos de equipamento, quero verificar se este funcionário tem movimentos, caso tenha imprime a ficha deste, mas dá erro

Private Sub Imprimir_Click()
'Verifica se existe numero de visto para procsso iniciado
If IsNull(Me.subfrmMovEPI.Form![Nº ORD]) Then
' caso não exista emite a mensagem...
   MsgBox "Não existem movimentos! ", vbOKOnly
   Exit Sub
End If
   DoCmd.OpenReport "EPIporFun", acViewPreview, , "Nº ORD=" & subfrmMovEPI.Form![Nº ORD] & ""
   
End Sub

Tente assim:

Código:

Private Sub Imprimir_Click()
'Verifica se existe numero de visto para procsso iniciado
If IsNull(Me.subfrmMovEPI.Form![Nº ORD]) Then
' caso não exista emite a mensagem...
  MsgBox "Não existem movimentos! ", vbOKOnly
  Exit Sub
End If
    DoCmd.OpenReport "EPIporFun", acPreview, , "Nº ORD= " & Me!Nº ORD
 
End Sub

Olá gilberlanio,

agradeço o interesse em ajudar

tentei adaptar o seu código mas não resultou


anexo exemplo para ver o erro que ao clicar em imprimir ficha EPI

Ola;

Note que o nome do seu subformulario dentro do formulario não é "subfrmMovEPI" é "Movimento_Equipamento".
No filtro para o relatório tem de ter o acViewPreview, , "[Nº ORD]=" dentro de colchetes por estar separado.

Código:

Private Sub Imprimir_Click()
'Verifica se existe numero de visto para procsso iniciado
If IsNull(Me.Movimento_Equipamento.Form![Nº ORD]) Then

' caso não exista emite a mensagem...
    MsgBox "Não existem movimentos! ", vbOKOnly
    Exit Sub
End If
    DoCmd.OpenReport "EPIporFun", acViewPreview, , "[Nº ORD]=" & Me.Movimento_Equipamento.Form![Nº ORD] & ""
End Sub

Muito Obrigado JPaulo,

efetivamente tinha trocado o nome ao copiar para um novo projeto e estava tão convicto que não dava com o erro


mais uma vez obrigado


José Silva

Obrigado pelo retorno, o forum agradece.