[Resolvido]Minimizar form ao abrir relatorio

Meus amigos apesar do meu ja razoavel conhecimento, estou tendo um problema com essa questao..

Tenho um botao no form que abre um relatorio filtrado, mas nao posso fecha-lo na hora de abrir o relatorio, pois o mesmo usa os dados do form ativo...

isso nao seria problema se o relatorio fosse PopUp, mas não é
eu abro ele para que eu possa usar a faixa de impressão nativa do access...

e assim o relatorio fica por tras do form..

então preciso que ao abrir do relatorio, minimize o form
e ao fechar, o restaura..

Se puderem me ajudar
Fico grato

E se ocultar o form no mesmo botão que abre o relatório?

Me.Visible = False

E ao fechar o relatório:

Forms!NomeDoform.Visible = True

E porque não fechar o form, abrir o relatório e ao fechar o relatório abrir o form de novo. Não acham mais profissional?

DoCmd.Close acForm, "nomedoform"

E no Relatório

DoCmd.OpenForm "nomedoform"

Sds

Bem, a questão é que em alguns momentos, o relatório pode necessitar ainda dos dados do formulário para alguma atualização ou algo assim, porque nesse caso específico, o formulário é que alimenta o relatório. Aí, caso ele esteja fechado, vai gerar erro. Mas se o relatório não precisar do formulário em momento nenhum a não ser na abertura, fica a critério do colega

O erro trata-se no abrir do form, que achas? é simples.
Dim strMsg As String, strTitle As String
Dim intStyle As Integer

strMsg = "Não existem dados a Visualizar!!! "
intStyle = vbOKOnly
strTitle = "Sem dados no sistema"

MsgBox strMsg, intStyle, strTitle
Cancel = True

Mas a questão que estou a falar é se o relatório ainda precisar dos dados vindos do formulário em momentos de alguma atualização ou algo assim, entendes?

Sou da mesma opinião do Criquio e é o simples;


No form:

Private Sub SeuBotão_Click()
Me.Visible = False
DoCmd.OpenReport "SeuRelatório", acPreview
End Sub

No relatório:

Private Sub Report_Close()
Forms!SeuFormulario.Visible = True
End Sub

O relatorio depende do form aberto, caso esteja fechado o relatorio nao abre com os dados que preciso.
Creio que a solucao do criquio va servir..
vou testa-la amanha e dou retorno
Grato

Falou. Aguardaremos.

Então está certo, se é assim, já cá não está quem falou. Pepanp! rsrsrs

Ops Resolvido


Grsato a todos!

ok

Tenho um formulário Pop-up, Contratos
Ao abrir fica normal no meio da tela

Ao mandar visualizar um relatório e após o fecho do mesmo, o dito formulário Contratos, fica em tela cheia em vez de Pop-up.

O que estarei a fazer de mal ???


junto envio código do formulário:

Private Sub ImprimirContrato_Click()
On Error GoTo Err_ImprimirContrato_Click
DoCmd.OpenReport "ContratosAluguer", acViewPreview, , "[IDDocumento]=" & Me![IDDocumento]
Me.Visible = False
Exit_ImprimirContrato_Click:
Exit Sub

Err_ImprimirContrato_Click:
MsgBox Err.Description
Resume Exit_ImprimirContrato_Click

End Sub


junto envio código do Relatorio:

Private Sub Report_Close()
If IsOpen("Contratos") Then
Forms![Contratos].Visible = True
End If
If IsOpen("ContratosVisualizar") Then
Forms![ContratosVisualizar].Visible = True
End If
End Sub