DBInvisible2K avec états affichables

Le
LLaurent
BONJOUR

je viens de tester le moyen de rendre seuls les formulaires visibles via le
site de Access-3stone
par l'exemple suivant
http://www.3stone.be/access/download.php?lng=fr&pgC9

l'idée est de placer le formulaire en question en fenêtre indépendante ou
modale
c'est SUPER !!!

tout fonctionne OK même quand plusieurs formulaires indépendants enchaînent
mon problème est que les états n'apparaissent pas

Merci pour vos idées ou vos pistes éventuelles
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ze Titi
Le #6264431
Bonjour LLaurent

Dans ce cas, colle le code suivant dans un module quelconque. Pour
ouvrir un état:

OpenReport "reportName",acViewPreview

******* Couper ici ***********
'Ce code fut originalement écrit par Terry Kreft.
'Il ne peut être altéré ni distribué autrement
'qu'à l'intérieur d'une autre application.
'Vous êtes libre de l'utiliser dans votre application
'en autant que cette note demeure inchangée.
'
'Code Courtesy of
'Terry Kreft

Sub OpenReport(ReportName As String, Optional View As Integer, Optional
_
FilterName As String, Optional WhereCondition As String)

Dim loFormArray() As String
Dim loform As Form
Dim intCount As Integer
Dim intX As Integer
For Each loform In Forms
If loform.Visible Then
ReDim Preserve loFormArray(intCount)
loFormArray(intCount) = loform.Name
loform.Visible = False
intCount = intCount + 1
End If
Next
DoCmd.OpenReport ReportName, View, FilterName, WhereCondition
Do While IsVisible(acReport, ReportName): DoEvents: Loop
For intX = intCount - 1 To 0 Step -1
Forms(loFormArray(intX)).Visible = True
Next
End Sub

Function IsVisible(intObjType As Integer, strObjName As String) As
Boolean
Dim intObjState As Integer
intObjState = SysCmd(acSysCmdGetObjectState, intObjType,
strObjName)
IsVisible = intObjState And acObjStateOpen
End Function

********** fin du couper *********


Dans ton message
BONJOUR

je viens de tester le moyen de rendre seuls les formulaires visibles via le
site de Access-3stone
par l'exemple suivant
http://www.3stone.be/access/download.php?lng=fr&pgC9

l'idée est de placer le formulaire en question en fenêtre indépendante ou
modale
c'est SUPER !!!

tout fonctionne OK même quand plusieurs formulaires indépendants enchaînent
mon problème est que les états n'apparaissent pas ...

Merci pour vos idées ou vos pistes éventuelles


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

ze Titi
Le #6264411
.../...
avec un complément d'infos ici:
http://www.mvps.org/accessfr/reports/rpt0003.htm

En ce jour mémorable du mardi 24/04/2007, tu as entrepris la lourde
tâche de taper sur ton clavier :
BONJOUR

je viens de tester le moyen de rendre seuls les formulaires visibles via le
site de Access-3stone
par l'exemple suivant
http://www.3stone.be/access/download.php?lng=fr&pgC9

l'idée est de placer le formulaire en question en fenêtre indépendante ou
modale
c'est SUPER !!!

tout fonctionne OK même quand plusieurs formulaires indépendants enchaînent
mon problème est que les états n'apparaissent pas ...

Merci pour vos idées ou vos pistes éventuelles


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Publicité
Poster une réponse
Anonyme