Dans une requ=EAte il est possible de saisir une variable =E0 la demande :
[nomVar].
Est il possible de changer le texte "Entrer une valeur de param=E9tre"
qui apparait dans la bande bleu sup=E9rieure du MsgBox ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
P3859
Le 04/03/2011 08:59, le Nordiste a écrit :
Bonjour à tous,
Dans une requête il est possible de saisir une variable à la demande : [nomVar]. Est il possible de changer le texte "Entrer une valeur de paramétre" qui apparait dans la bande bleu supérieure du MsgBox ?
Merci de votre aide.
j'ai trouvé
Vous devez dans un premier temps écrire une nouvelle fonction d'affichage de boite de message (MessageBox) :
Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function
Ensuite il ne vous reste qu'à appeler cette fonction depuis votre code :
Dans une requête il est possible de saisir une variable à la demande :
[nomVar].
Est il possible de changer le texte "Entrer une valeur de paramétre"
qui apparait dans la bande bleu supérieure du MsgBox ?
Merci de votre aide.
j'ai trouvé
Vous devez dans un premier temps écrire une nouvelle fonction d'affichage de boite de message (MessageBox) :
Function FormattedMsgBox( _
Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
If IsMissing(HelpFile) Or IsMissing(Context) Then
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
Ensuite il ne vous reste qu'à appeler cette fonction depuis votre code :
Dans une requête il est possible de saisir une variable à la demande : [nomVar]. Est il possible de changer le texte "Entrer une valeur de paramétre" qui apparait dans la bande bleu supérieure du MsgBox ?
Merci de votre aide.
j'ai trouvé
Vous devez dans un premier temps écrire une nouvelle fonction d'affichage de boite de message (MessageBox) :
Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As Variant) _ As VbMsgBoxResult If IsMissing(HelpFile) Or IsMissing(Context) Then FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """)") Else FormattedMsgBox = Eval("MsgBox(""" & Prompt & _ """, " & Buttons & ", """ & Title & """, """ & _ HelpFile & """, " & Context & ")") End If End Function
Ensuite il ne vous reste qu'à appeler cette fonction depuis votre code :