Discussion :

[Junior_jef]

Bonjour tout le monde et merci de m'aider.


Apres avoir cherché dans la faq et sur le forum, je ne trouve pas de moyen simple afin de positionner un formulaire "calendrier" en dessous d'un champs texte d'un autre formulaire (appelant le formulaire calendrier).

Quelqu'un aurait il une idée?


Merci beaucoup

[marot_r]

Si c'est un form ordinaire tu peux utiliser MoveSize

Le code ci dessous devrait faire la job.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Sub DeplacerFormFils(prmForm As Form, prmControl as control, prmNomFormFils As String)
    Dim f As Form: Set f = Forms(prmNomFormFils)
    Call f.Move(prmForm.WindowLeft + prmControl.left, prmForm.WindowTop + prmControl.top + prmControl.height)
    Set f = Nothing
End Sub

A+

[Junior_jef]

Etant donné que le champs se trouve dans une section et que la propriété top du champs se fait par rapport à la section dans lequel il se trouve et non par rapport au formulaire dans lequel il se trouve, je pense que je dois faire comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call f.Move(prmForm.WindowLeft + prmControl.left, prmForm.WindowTop + prmControl.top + prmControl.height + NomDeSection.top)

Par contre, apparement, il faudrait rajouter la taille de la bordure du formulaire. quelqu'un saurait comment faire?