Visualizzare i Report in anteprima di stampa e nascondere le maschere aperte.

Question

Buonasera a tutti, ho riportato nel mio DB le due funzioni riportate sotto, copiate da un libro di Access 2010 che sto leggendo, ma non riesco a collocarle nel giusto modo per farle funzionare.

Per favore, mi aiutate a capire dove devo inserire o richiamare le due funzioni sottoriportate per poter, in fase di apertura del report in modalità anteprima di stampa, nascondere la maschera sottostante per poi riaprirla alla sua chiusura?.

Grazie infinite atutti coloro che vorranno aiutarmi in questo.

Ciao Nicola.

Public Function MaschereVisibili(YesNo) ' questa serve per far comparire subito la maschera dopo la chiusura dei Report visualizzati in anteprima di stampa.

Dim intCounter As Integer

On Error GoTo MaschereVisibili_Error

For intCounter = 0 To Forms.Count - 1

Forms(intCounter).Visible = YesNo

Next

MaschereVisibili_Exit:

Exit Function

MaschereVisibili_Error:

MsgBox "Errore " & "Err.Number & "" & Err.description"

For intCounter = 0 To Forms.Count - 1

Forms(intCounter).Visible = -1

Next

Resume MaschereVisibili_Exit

End Function

Public Function ApriReport(RepName As String)

Dim intErrorCode As Integer

DoCmd.OpenReport RepName, acViewPreview

intErrorCode = MaschereVisibili(0)

End Function

Answer 1

ciao Nicola,

credo di avere capito che chiedi di impostare la proprietà visible a false, (cioè di nasconderle), alle forms aperte in fase di apertura del report e di ripristinare a true (di farle riapparire).

Se  non è così rispiegaci...!

ciao, e buona domenica a te.

prova in questo modo :

copia questa funzione nel report:

Private Function setVisible(setV As Boolean)

Dim i As Integer

For i = CurrentProject.AllForms.Count - 1 To 0 Step -1

    If CurrentProject.AllForms(i).IsLoaded Then

        Forms(CurrentProject.AllForms(i).Name).Visible = setV

    End If

Next

End Function

ed impota su evento caricamento del report:

Private Sub Report_Load()

setVisible False

End Sub

e su chiusura _

Private Sub Report_Load()

setVisible true

End Sub

Answer 2

Ciao Sandro buona domenica anche  a te, hai interpretato benissimo la mia richiesta di aiuto, il tuo codice come sempre, è brillante ed efficace.

Ringrazio infinitamente tutti i tuoi ed i vostri interventi che mi hanno permesso di ultimare il mio DB nel migliore dei modi.

Alla prossima richiesta di aiuto.

Ciao Nicola.