Discussion :

[vortexlechien]

Bonsoir à la communauté,

Etant débutant, je sollicite vos lumières pour mon petit problème.
Je voudrais inclure la valeur de plusieurs champs dans le message de MSGBOX. De plus ma msgbox doit demander une confirmation par Oui ou Non

Exemple de Message à afficher :

Vous donnez le téléphone (NUMERO) à (NOM) (PRENOM) ?
OUI / NON

Si OUI, enregistrer les données
Si NON, fermer la msgbox et rester sur le formulaire.

NUMERO, NOM et PRENOM sont les champs1,2,3 de ma tablePORTABLE
Voici mon code :

Code :

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

msgbox ("Vous donnez le téléphone",&NUMERO.value "à" &NOM.value "espace "&PRENOM.value "?",vbYESNO)

case yes =??????
case No =??????

Merci

[Jean-Philippe André]

salut
tu as déjà trouvé la partie du type de message,
le retour du message sera donc soit vbyes soit vbno,
voir d'une part l'aide en ligne,
et sinon le très bon article de Loufab
http://loufab.developpez.com/#LB

[vortexlechien]

J'ai bien lu la page de LouFab qui est vraiment très bien mais je n'ai pas trouvé ma réponse.
Je ne comprends pas comment faire pour insérer la valeur d'un champ dans le message. Où et quand positionner les "&" , guillemet et virgule ?

[Invité]

Bonjour

Je pense que tu n'as pas compris le lien que t'a donné jpcheck

En effet, sur le site de Loufab tu trouveras une petite application qui est un générateur de lignes pour les MsgBox.

Je t'invite également à lire ce tuto de Fring : La MsgBox décortiquée

Ton problème est l'utilisation de la virgule, en effet celle-ci doit séparer les arguments, hors dans ton cas elle sépare des termes du premier argument qui est le message à afficher.

Philippe

[vortexlechien]

Ce que LouFab a fait est super ! Et cela aide bcp mais je n'ai toujours pas trouvé ma réponse, peut être que je comprends de travers les tuto mais

Ce que je ne veux faire est simple pourtant !
Afficher un message comme suit :

"Vous donnez le téléphone" [numero.table] "à" [Nom.table] "espace" [Prénom]

Quelle est la différence entre msgbox(" blablabla ") et msgbox "blablabla" ?

Tout ce que je veux c'est insérer la valeur de certains champs dans un message via MSGBOX. Peut être que ce n'est pas MSGBOX que je dois utiliser mais alors Quoi ?

[Jean-Philippe André]

la différence entre
NomdeFonction(blabla) et NomedeFonction blabla
est que dans un cas tu attends un résultat (cas avec les parenthèses)
dans l'autre tu t'en "fiches"

[vortexlechien]

Donc il faut que j'utilise msgbox "blablabla" mais comment inclure la valeur des champs de ma table ? J'ai du mal avec les "&". Où et quand les mettre ?

[Jean-Philippe André]

un peu de lecture sur le très utile cours de VBA d'Olivier Lebeau
http://heureuxoli.developpez.com/off...?page=sommaire
exemple
compare

Code :

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

1
2
3
Msgbox "a" & "b"
'et
Msgobx "ab"

[loufab]

bonjour,

Il existe un assistant pour créer des msgbox sur mon espace perso.
Il te construit le message avec une fonction que tu n'as plus qu'à remplacer par ton champ.

Code :

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

1
2
3
4
dim rst as recordset
set rst = currentdb.openrecordset(......
...
msgbox "...." & rst.fields("monchamp") & "....

[vortexlechien]

Merci au grand LouFab de vous intéresser à mon problème. J'ai utilisé votre super application pour me générer le code de ma msgbox mais j'ai encore 2 problèmes avec msgbox :

1) Comment placer un "espace" entre l'affichage de 2 champs. Exemple :

"Vous donnez le téléphone" [numero.table] "à" [Nom.table] "espace" [Prénom]
Comment introduire le "à" et "espace"

2) J'ai une erreur "Objet Requis"
Lorsque j'introduis le champ [numero.table] dans msgbox. Sachant que [numero.table] est une valeur que je sélectionne dans une liste déroulant de mon formulaire de saisie.

Voici mon code :

Code :

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

1
2
If MsgBox("Vous donnez un téléphone " &Numero.value "à" Prénom.Value & Nom.Value, vbOKCancel + vbDefaultButton1 + vbQuestion, "Message de SORTIE") = vbOK Then
Etat.Value = "SORTI"

Merci à vous encore de votre aide.

[Invité]

Bonjour

Code :

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

1
2
3
 
If MsgBox("Vous donnez un téléphone " & Numero.value & "à " & Prénom.Value & Nom.Value, vbOKCancel + vbDefaultButton1 + vbQuestion, "Message de SORTIE") = vbOK Then
Etat.Value = "SORTI"