Comment maintenir des formulaires en réduit (mode indépendant)
1 réponse
Guy
Bonjour à tous
voila j'ai un probleme et pour cela j'ai récuperer du code ci dessous mais
mes compétances sont assez limité aussi qui peut m'aider a me dire ou le
coller
Bonjour Pierre,
Il y a quelque temps vous avez conseillé ceci pour les formulaires afin
qu'ils reste en position reduite
Mais comment positionner ce code avec un lancement depuis la barre des menus
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'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
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,
| voila j'ai un probleme et pour cela j'ai récuperer du code ci dessous mais | mes compétances sont assez limité aussi qui peut m'aider a me dire ou le | coller
Tout est expliqué ici : http://www.mvps.org/accessfr/reports/rpt0003.htm
Si tu ne comprend pas et que tu n'arrive pas à le mettre en oeuvre, n'utilise pas de formulaire modal ou ferme ton formulaire pendant que l'état est affiché.
| voila j'ai un probleme et pour cela j'ai récuperer du code ci dessous mais
| mes compétances sont assez limité aussi qui peut m'aider a me dire ou le
| coller
Tout est expliqué ici :
http://www.mvps.org/accessfr/reports/rpt0003.htm
Si tu ne comprend pas et que tu n'arrive pas à le mettre en oeuvre,
n'utilise pas de formulaire modal ou ferme ton formulaire pendant
que l'état est affiché.
| voila j'ai un probleme et pour cela j'ai récuperer du code ci dessous mais | mes compétances sont assez limité aussi qui peut m'aider a me dire ou le | coller
Tout est expliqué ici : http://www.mvps.org/accessfr/reports/rpt0003.htm
Si tu ne comprend pas et que tu n'arrive pas à le mettre en oeuvre, n'utilise pas de formulaire modal ou ferme ton formulaire pendant que l'état est affiché.