je tente cette question ????

Bonjour

A priori non mais tu peux concevoir un formulaire qui remplacerait
la boîte de message et ainsi tu pourrais afficher et traiter les choix
de l'utilisateur comme bon te semble.
--
Cordialement

Jeff

Charte du forum : http://users.skynet.be/mpfa/

"Natou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0c2001c3b332$8e1edd70$a301280a@phx.gbl...
Bonjour à tous,
Mon programme access grâce à votre aide arrive à son point
final, c'est la cerise sur le gâteau maintenant, dans
cette base j'ai construits deux menus un pour la
production et l'impression sur des machines spécifiques et
un autre qui ne sert à imprimer que des petites étiquettes
sur une imprimante à transfert thermique, ce que je
souhaite c'est qu'à l'ouverture de la base l'opératrice
est le choix de ce qu'elle veut utiliser comme imprimante,
donc j'avais mis sur ouverture la fonction suvante :
Function menuchoix()
If MsgBox(" Veuillez choisir votre menu ; OUI pour
imprimer sur les RANKS ; NON pour imprimer sur la NOVEX",
vbYesNo) = vbYes Then
DoCmd.OpenForm "Switchboard"
Else
DoCmd.OpenForm "Menu Général"
End If
End Function
la question est ? Je voudrais avoir à la place des boutons
OUI/NON - les boutons RANK/NOVEX comment faire pour créer
un "vbRankNovex" ??? est-ce possible ????
Merci
Natou

Bonjour Natou,

Je crois qu'il est possible de modifier l'intitulé des
boutons d'une boite de dialogue standard en passant pas
les API Windows.

Tu peux simuler le procédé en créant un formulaire
ressemblant à une boite de dialogue, et:
1) Dans un module standard (Onglet module de la fenêtre
base de données), tu déclares une variable public comme
suit:
Public ChoixImprimante as String

2) Dans le formulaire simulant la boite de dialogue, tu
auras 2 boutons. Il suffit d'alimenter strChoixImprimante
dans les évènement Sur_Click des boutons:

Private Sub Cmd01_Click()
ChoixImprimante = "Imprimante1"
DoCmd.Close acForm, Me.Name, acSavePrompt
End Sub

Private Sub Cmd02_Click()
ChoixImprimante = "Imprimante2"
DoCmd.Close acForm, Me.Name, acSavePrompt
End Sub

3) Dans le formulaire qui doit appeler ta pseudo boite
de dialogue, au lieu de

If MsgBox(" Veuillez choisir votre menu ; OUI pour
imprimer sur les RANKS ; NON pour imprimer sur la NOVEX",
vbYesNo) = vbYes Then

Tu ouvres ton formulaire en mode boite de dialogue.

ChoixImprimante = ""
DoCmd.OpenForm "ChoixImprimante", acNormal, , ,
acFormPropertySettings, acDialog
... Le résultat est dans ChoixImprimante

Cordialement.

Merci je vais oeuvrer dans ce sens ...
cordialement
Natou

-----Message d'origine-----
Bonjour Natou,

Je crois qu'il est possible de modifier l'intitulé des
boutons d'une boite de dialogue standard en passant pas
les API Windows.

Tu peux simuler le procédé en créant un formulaire
ressemblant à une boite de dialogue, et:
1) Dans un module standard (Onglet module de la fenêtre
base de données), tu déclares une variable public comme
suit:
Public ChoixImprimante as String

2) Dans le formulaire simulant la boite de dialogue, tu
auras 2 boutons. Il suffit d'alimenter strChoixImprimante
dans les évènement Sur_Click des boutons:

Private Sub Cmd01_Click()
ChoixImprimante = "Imprimante1"
DoCmd.Close acForm, Me.Name, acSavePrompt
End Sub

Private Sub Cmd02_Click()
ChoixImprimante = "Imprimante2"
DoCmd.Close acForm, Me.Name, acSavePrompt
End Sub

3) Dans le formulaire qui doit appeler ta pseudo boite
de dialogue, au lieu de

If MsgBox(" Veuillez choisir votre menu ; OUI pour
imprimer sur les RANKS ; NON pour imprimer sur la
NOVEX",

vbYesNo) = vbYes Then

Tu ouvres ton formulaire en mode boite de dialogue.

ChoixImprimante = ""
DoCmd.OpenForm "ChoixImprimante", acNormal, , ,
acFormPropertySettings, acDialog
... Le résultat est dans ChoixImprimante

Cordialement.
.