Problema com relatorios

[zerocool1]

boas

criei uma base de dados com diversos formularios e relatorios com tudo a funcionar direitinho, porem adicionei mais uns formularios e relatorios e aqui é k encravei.

o formulario ta funcionar direitinho, e criei um botao para poder ver o relatorio e um para poder imprimir, porem como o filtro é atraves de nome, quando clico num dos dois botões aprece a mensagem "valor do parametro" e eu insiro o nome e abre o documento correcto ou imprime, mas o que eu pretendia era ao clicar abrir ou imprimir o documento automaticamente.

as funções que utilizo são:

Private Sub Abnrir_Click()

If MsgBox("Deseja ver o documento?", vbYesNo, "MAXIPOSTO_RESUMO") = vbYes Then

DoCmd.OpenReport "MAXIPOSTO_RESUMO", acViewPreview, , "NOME = " & "Me!NOME"

Else: Exit Sub

End If

End Sub

________________________________________

Private Sub Imprimir_Click()

If MsgBox("Deseja imprimir o documento?", vbYesNo, "MAXIPOSTO_RESUMO") = vbYes Then

DoCmd.OpenReport "MAXIPOSTO_RESUMO", acViewNormal, , "NOME = " & "Me!Nome"

Else: Exit Sub

End If

End Sub

Se alguém poder ajudar agradecia.

[MrMALJ]

Para o critério funcionar bem, é necessário que o formulário onde ele se encontre esteje aberto.