Discussion :

[Imitator92]

Bonjour

Existe t il un moyen de changer les taille/couleur/police dans les MessageBox?

Je trouve la taille de la police utilisée un peeu petite et j'aimerai que certains messages d'avertissement soient nettement plus lisibles.


Merci de votre aide

[nico84]

Bonjour,

Je me souviens avoir croisé un bon tuto sur msgbox mais je ne retrouve plus où et il me semble que ce n'est pas possible.

Par contre il n'est pas très compliqué de créer sa propre MsgBox avec la police et les couleurs souhaitées, le message étant modifié dans le form_open.

Ensuite l'appel doit être ainsi pour qu'elle soit bloquante :

Code :

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

1
2
  DoCmd.OpenForm "MsgPerso",,,,,,"Mon message"
  Do While CurrentProject.AllForms("MsgPerso").IsLoaded: DoEvents: Loop

[fgiambelluco]

Bonjour

Ensuite l'appel doit être ainsi pour qu'elle soit bloquante :

Code :
DoCmd.OpenForm "MsgPerso",,,,,,"Mon message"
Do While CurrentProject.AllForms("MsgPerso").IsLoaded: DoEvents: Loop

Est ce que la syntaxe suivante ne suffit pas à rendre l'affichage bloquant ?

Code :

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

    DoCmd.OpenForm "MsgPerso", , , , , acDialog

[nico84]

J'adore me compliquer la vie

Le pire c'est que j'ai appris cette astuce récemment sur ce forum et depuis j'en ai mis de partout

[Invité]

Bonjour

Sinon tu as cela
http://arkham46.developpez.com/artic...sgboxplus/doc/

[nico84]

Merci

C'est mieux qu'une mine ici plus on creuse et plus il y en a

[Imitator92]

Bonjour

Sinon tu as cela
http://arkham46.developpez.com/artic...sgboxplus/doc/

effectivement cela doit correspondre à ce que je cherche, mais malgré le fait que j'ai suivi le tutoriel de bout en bout, je lance

Code :

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

1
2
3
4
5
6
7
8
9
   Dim ltexte As String
    ltexte = "{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fcharset0 Arial;}}" & vbCrLf & _
             "{\*\generator Msftedit 5.41.15.1515;}\viewkind4\uc1\pard\f0\fs20 " & vbCrLf & _
             "Ceci est un texte \ul format\'e9\ulnone  \'e9crit \b dans Worpad.\par" & vbCrLf & _
             "Utilisez par exemple NotePad pour visualisez le texte RTF.\par" & vbCrLf & _
             "\b0\par" & vbCrLf & _
             "}"
    Call MsgBoxEx(ltexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
                  RGB(250, 250, 240), , 20, " ([Time] sec)", True)

par un clic sur un bouton et j'obtiens un message d'erreur " Sub ou Fonction non définie..." sur le Call MsgBoxEx

pouvez vous me dire ce qui cloche ?

Merci

[Arkham46]

Bjr

j'obtiens un message d'erreur " Sub ou Fonction non définie..." sur le Call MsgBoxEx

Le module a-t-il bien été téléchargé et créé dans la base de données comme indiqué dans le chapitre "Installation"?

[Imitator92]

Le module a-t-il bien été téléchargé et créé dans la base de données comme indiqué dans le chapitre "Installation"?

Oui oui

[Arkham46]

Oui oui

le fonction est bien dans un module standard, et non dans un module de classe?

[Imitator92]

le fonction est bien dans un module standard, et non dans un module de classe?

Non c'était une erreur ...cela dit le tuto ne dit pas dans quel type de module il faut le mettre mais j'aurias dû y penser ....


Cependant j'ai maintenant une autre erreur.... "Nom ambigu détecté:MsgBoxEx"

[Arkham46]

Cependant j'ai maintenant une autre erreur.... "Nom ambigu détecté:MsgBoxEx"

Une autre fonctions MsgBoxEx quelque part?

Recherche msgboxex dans l'explorateur d'objet (F2) pour voir où il trouve la fonction.

Sinon pense à l'utilisation d'un formulaire personnalisé, c'est bien aussi si le besoin en mise en forme du texte n'est pas trop important (quoique avec Access 2007 on peut mettre des mémo formattés alors on peut tout faire avec un formulaire).

Je viens de mettre une contribution ici pour faire des formulaires de dialogue:
http://www.developpez.net/forums/d80...iable-globale/

Et il y a aussi un tuto ici :
http://argyronet.developpez.com/offi...ess/frmmsgbox/

[Imitator92]

Une autre fonctions MsgBoxEx quelque part?

Recherche msgboxex dans l'explorateur d'objet (F2) pour voir où il trouve la fonction.

C'etait exactement ca !!

Merci !!