Discussion :

[christian ler]

Bonjour

par défaut la boite de dialogue sous access apparait eu milieu de l'écran


quelles commandes peut on utiliser pour préciser le positionnement de la boite de dialogue ?

la faire apparaître en bas de l'écran par exemple

je vous remercie

[Invité]

Bonjour

De quelle boite parles-tu ?

MsgBox ? (il me semble que ce n'est pas possible)
InputBox ? (il y a des paramètres pour cela)
Un formulaire ?

Philippe

[Domi2]

Bonjour,

Il ne me semble pas qu'il soit possible d'intervenir sur le positionnement des MsgBox et Inputbox.

En tous cas pas de manière simple (en passant par des Apis, peut-être).

Solution de contournement. Utiliser des formulaires reproduisant les boîtes de dialogue. Il serait alors possible de les positionner à ta convenance.

Domi2

[FreeAccess]

Bonjour,

Position d'un InputBox : (ACC2007)

InputBox(invite, [titre], [par défaut], [posx], [posy], [fichier d'aide], [contexte])

posx Facultatif. Expression numérique qui spécifie, en twips, la distance horizontale qui sépare le bord gauche de la boîte de dialogue du bord droit de l'écran. Si l'argument posx n'est pas spécifié, la boîte de dialogue est centrée horizontalement.

posy Facultatif. Expression numérique qui spécifie, en twips, la distance verticale qui sépare le bord supérieur de la boîte de dialogue du haut de l'écran. Si l'argument posy n'est pas spécifié, la boîte de dialogue est positionnée verticalement à environ un tiers du bas de l'écran.

Pour un Msgbox, la solution proposée par Domi2 est la plus simple...

[christian ler]

Bonjour
en utilisant les commandes ci dessus la boite de dialogue s'affiche au milieu de l'écran

Code :

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

1
2
3
Dim vreponse As Byte       
 
vreponse = MsgBox("Impresson du Chèque ", vbYesNo + vbQuestion + vbDefaultButton2, "Impression ", [2])

mais en incluant inputbox , cette ligne de commande ci dessous ne fonctionne pas

existe il une solution pour pour pouvoir positionner la boite de dialogue ?

Code :

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

vreponse = InputBox("MsgBox("Impression du Chèque ", vbYesNo + vbQuestion + vbDefaultButton2, "Impression ", [2])", , 900, 1500)

Merci

[Invité]

Re

Pour la MsgBox, ce n'est pas possible, de plus tu ne peux inclure les deux lignes comme cela une InputBox dans une MsgBox, ce n'est pas possible.

Comme le disent les autres membres qui ont participé à cette discussion, il faut que tu passes par un formulaire.

Philippe