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.
Junto ficheiro em anexo
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
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.
Junto ficheiro em anexo
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
- Anexos
- Contratos.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (1 Mb) Baixado 43 vez(es)