Convidado 28/4/2013, 02:52
vc pode criar um filtro de sua consulta, por exemplo com nome Filto nome de sua consulta com 2 campos, em um deles vc pede todos os campos (*) e outro com o código de sua tabela e digita isso como critério de seu filtro: [Forms]![Seu Formulário]![Código do formulário] e cria um botão de comando no formulário com esse código:
Sub SeuBotãoDeComando _Click()
On Error GoTo Err_ SeuBotãoDeComando _Click
Dim strNomeDoc As String
strNomeDoc = "Seu relatório"
' Imprime o relatório usando a consulta Filtro que vc vai criar
' para imprimir a nota atual do formulário.
DoCmd.OpenReport strNomeDoc, acViewNormal, "nome do filtro que vc criou"
Exit_ SeuBotãoDeComando _Click:
Exit Sub
Err_ SeuBotãoDeComando _Click:
' Se a ação foi cancelada pelo usuário, não exibe uma mensagem de erro.
Const conErrDoCmdCancelled = 2501
If (err = conErrDoCmdCancelled) Then
Resume Exit_ SeuBotãoDeComando _Click
Else
MsgBox err.Description
Resume Exit_ SeuBotãoDeComando _Click
End If
End Sub