Réponse n° 3 -------- le 15/12/2017 : 18:55 par 3Stone
Administrateur
|
Bonjour,
Ok.
En fait le fomulaire2 ne sait pas ou se trouve le formulaire1.
Il faut donc lui dire...
Pour cela, tu place dans le code du formulaire le code suivant:
'/position et taille du formulaire
Dim sFrmPos As String
sFrmPos = Me.WindowLeft & "," & Me.WindowWidth & "," & Me.WindowTop & "," & Me.WindowHeight
Puis, tu complète ta commande OpenForm...
DoCmd.OpenForm "formulaire2", , , , , acDialog, sFrmPos
et tu sauve.
Ouvre ton "formulaire2" et dans l'événement "Sur ouverture" tu mets :
Dim SrcPos As Variant
Dim SrcL As Long, SrcW As Long, SrcT As Long, SrcH As Long
Dim MeL As Long, MeW As Long, MeT As Long, MeH As Long
'récupérer les valeurs dans un tableau
SrcPos = Split(Me.OpenArgs, ",")
MeW = Me.WindowWidth
MeH = Me.WindowHeight
MeL = SrcPos(0) + ((SrcPos(1) / 2) - (MeW / 2))
MeT = SrcPos(2) + ((SrcPos(3) / 2) - (MeH / 2))
'positionner le formulaire
Me.Move MeL, MeT
C'est tout, mais fais attention au copié/collé du code ici !!
Dis moi si cela fonctionne...
Pierre (3Stone)
|