[Resolvido]Imprimir relatório atual do formulário

Bom dia amigos!

Estou adaptando no BD . O problema é que está saindo todos os registros cadastrados e não o atual que estou nele!

If MsgBox("Você deseja imprimir o relatório?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

Me.Refresh
DoCmd.OpenReport "tab_tombamento", acNormal, , "Código"
DoCmd.RunCommand acCmdSaveRecord

Else
Me.Refresh
DoCmd.RunCommand acCmdSaveRecord
Me.Tombamento.SetFocus

End If

RESOLVIDO!

If MsgBox("Você deseja imprimir o relatório?", vbQuestion + vbYesNo, "Atenção") = vbYes Then

Me.Refresh
DoCmd.OpenReport "tab_controle", acNormal, "", "[Código]=[forms]![frm_controle]![Código]", acNormal

Else
Me.Refresh
DoCmd.RunCommand acCmdSaveRecord
Me.Tombamento.SetFocus
End If

Bom dia!

Muito Obrigado LEAM!

Me ajudou muito.




Alex Maciel de Jesus