Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Patrick"
Comment puis-je savoir si un rapport est affiché en mode prévisualisation ?
Debug.Print ReportIsLoaded("ReportName")
Function ReportIsLoaded(MyReportName) ' Determines if a report is loaded. Dim I As Integer ReportIsLoaded = False For I = 0 To Reports.Count - 1 If Reports(I).FormName = MyReportName Then ReportIsLoaded = True Exit Function ' Quit function once form has been found. End If Next I End Function
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Patrick"
Comment puis-je savoir si un rapport est affiché en mode prévisualisation ?
Debug.Print ReportIsLoaded("ReportName")
Function ReportIsLoaded(MyReportName)
' Determines if a report is loaded.
Dim I As Integer
ReportIsLoaded = False
For I = 0 To Reports.Count - 1
If Reports(I).FormName = MyReportName Then
ReportIsLoaded = True
Exit Function ' Quit function once form has been found.
End If
Next I
End Function
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Comment puis-je savoir si un rapport est affiché en mode prévisualisation ?
Debug.Print ReportIsLoaded("ReportName")
Function ReportIsLoaded(MyReportName) ' Determines if a report is loaded. Dim I As Integer ReportIsLoaded = False For I = 0 To Reports.Count - 1 If Reports(I).FormName = MyReportName Then ReportIsLoaded = True Exit Function ' Quit function once form has been found. End If Next I End Function
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
