Re : afficher une fenetre
Re le Forum
ca y est j ai reussi une bonne partie j arrive a obtenir mon lien dans la message box, maintenant je voudrais comprendre cela:
IV-C. Chargement à partir d'une table
Vous pouvez stocker vos textes RTF dans un champ Mémo d'une table.
Par exemple une table TTextRTF qui contiendra tous les textes de nos messages :
- un champ texte Id, clé primaire de la table
- un champ mémo TextRTF
On retrouvera chaque texte par son Id.
Pour visualiser le texte formaté, utilisez un éditeur de texte simple, comme Notepad.
Voici à quoi ressemble un texte RTF
{\rtf1\ansi\ansicpg1252\deff0\deflang1036\deflangfe1036
{\fonttbl{\f0\froman\fprq2\fcharset0 Times New Roman;}
{\f1\fswiss\fprq2\fcharset0 Arial;}{\f2\fnil\fcharset2 Symbol;}}
\viewkind4\uc1\pard\nowidctlpar\b\f0\fs24
L\rquote application s\rquote est arr\'eat\'e9e suite \'e0 une erreur d\rquote ex\'e9cution.\par
\par
\pard{\pntext\f2\'B7\tab}
{\*\pn\pnlvlblt\pnf2\pnindent0{\pntxtb\'B7}}
\nowidctlpar\fi-720\li720\ul\b0\fs20 Proc\'e9dure ou fonction\ulnone : [ProcName]\par
\ul{\pntext\f2\'B7\tab}Num\'e9ro de l'erreur \ulnone : [ErrNumber]\par
\ul{\pntext\f2\'B7\tab}Description de l'erreur \ulnone : [ErrDescription]\b\par
\pard\nowidctlpar\fs24\par
\pard\nowidctlpar\qc\b0\f1\fs16
[hyperlien=mailto:mailsupport@mail.com?subject=(MailSubject)]
Cliquer ici pour envoyer un mail au support[/hyperlien]\f0\fs24\par
\pard\nowidctlpar\par
}
Copiez-collez ce texte dans le champ mémo.
Ensuite on peut par exemple utiliser la fonction DLookup pour rechercher le texte RTF associé à un Id.
Affiche une boîte de message à partir du contenu RTF d'un champ mémo
Dim ltexte as String
ltexte = DLookup("TextRTF", "TTextRTF", "Id='MonId'")
Call MsgBoxEx(ltexte, vbQuestion Or vbAbortRetryIgnore Or vbDefaultButton3, "Test MsgBoxEx", , , _
RGB(250, 250, 240), , 20, " ([Time] sec)", True)
et c est reparti, la je rame pour creer ce champ DEMO
svp si vous voyez la solution a mon probleme.
Merci d avance