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&pg=439
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 ...
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
ze Titi
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 du mardi
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
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 <uvJIkokhHHA.4952@TK2MSFTNGP02.phx.gbl> du mardi
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
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 du mardi
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
.../... 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
.../...
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
.../... 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