Msgbox afficher valeur d'un champ texte

Bonjour,

Je souhaiterais afficher la valeur d'un champ [Rem Mut] dans un Msgbox.
Ce champs est un champ Texte.


Voici le code que j'ai déjà dans mon formulaire (se référant à une case à cocher ) :

Code:

---

1 2 3 4 5

Private Sub Form_Current()   If Me.[Pas en règle] Then MsgBox "Attention !", vbExclamation   End Sub

---

Quelqu'un peut m'aider ?

merci.

Bonne journée

Je souhaiterais afficher la valeur d'un champ [Rem Mut] dans un Msgbox.
Ce champs est un champ Texte.

Il faut le concatener le texte avec la valeur de ton champ

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Current()   Dim sMsg as string   sMsg = "Attention !" & Me![Rem Mut] If Me.[Pas en règle] Then MsgBox sMsg, vbExclamation   End Sub

---

Petit problème... ne fonctionne pas.

Citation:

---

Envoyé par Access

erreur d'exécution 94
Utilisation incorrecte de Null

---

j'ai regardé plus en détail :

Le champ [Rem Mut] fait partie d'une autre table "MUT".

Ce que je recherche :

Msgbox apparaît si le champ [Rem Mut] est rempli (après la sélection d'un nom dans une liste déroulante)

Merci

Sur l’événement onChange de ton champ texte tu ajoutes ton appel au message en testant la valeur de ton champ texte

Je vais voir cela.

Je commence seulement avec le VBA...... j'essaie de m'y retrouver mais pas facile

Merci

Tu es le bienvenu.;)

Bonjour,


Je commence à comprendre certaines choses petit à petit ...

Voici les codes actuels :

Code:

---

1 2 3 4 5

Private Sub Form_Current() If Me.[Pas en règle] Then MsgBox "Pas en règle !", If Me.[Changementsection] Then MsgBox "Changé de section !" If Me.[Pas de vignettes] Then MsgBox "Pas de vignettes mutuelle !" End Sub

---

Je voudrais rajouter, toujours dans mon formulaire Curent (voir si c'est possible), un code permettant d'afficher dans un Msgbox le contenu de mon champ [Rem Mut]

j'ai essayé plusieurs tentatives ... mais....

Voici ce que j'ai pour l'instant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Form_Current()   Dim Msg As String   If [Rem Mut] = [Rem Mut] Then   MsgBox "Attention infos '"   End If   End Sub

---

Merci.

Bonne journée

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Form_Current()   Dim Msg As String   If [Rem Mut] = [Rem Mut] Then ' ---->>>> c'est toujours vrai quelque chose égale à elle meme   End If   End Sub

---

Oui, c'est vrai.

Je pensait que cela allait afficher le contenu du champ ...



"La nuit, qu'il est beau de croire en la lumière..."

Olivier,

Je ne comprends pas ta demande

Citation:

---

Je voudrais rajouter, toujours dans mon formulaire Curent (voir si c'est possible), un code permettant d'afficher dans un Msgbox le contenu de mon champ [Rem Mut]

---

Veux tu dire une valeur de [Rem Mut]? Sinon quelle est la source de ce code?

Lorsque je sélectionne un nom via une liste déroulante, une ou plusieurs Msgbox citées ci-desosus apparait/ssent suivant si la case à cocher est cochée.

Code:

---

1 2 3 4 5

Private Sub Form_Current() If Me.[Pas en règle] Then MsgBox "Pas en règle !", If Me.[Changementsection] Then MsgBox "Changé de section !" If Me.[Pas de vignettes] Then MsgBox "Pas de vignettes mutuelle !" End Sub

---

Tout fonctionne super bien.


Je voudrais faire de même avec le champ [Rem Mut] qui est une champs texte.

Par exemple, je sélectionne un nom dans ma liste déroulante et une Msgbox apparaît avec le contenu du champ.

Ex. : "Ne pas oublier de contacter Mme X"


Pour info, le champ [Rem Mut] fait partie d'une autre table "Mutuelle"
Le contenu du champ est rempli directement dans la table.


Merci

Une solution appeler un objet recordset sur l’événement OnClick de la liste déroulante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim oRst as DAO.Recordset Dim oDb as DAO.Database Dim sSql as string   sSql = "SELECT ....." Set oDb=CurrentDb Set oRst=oDb.OpenRecordset(sSql) If oRst.RecordCount= 1 then Msgbox "Mon message : " & Rst!nomDuChamp ‘ si plus d’un enregistrement retourné se poser des questions sur la requête sql ou la structure de la base de données   'Libération des objets oRst.Close oDb.Close Set oRst=Nothing Set oDb=Nothing

---

Une autre solution est d’utiliser DCount voir ici

Merci

Bonjour,

J'ai créé un requête et recopié le code SQL. SELCET ........

Problème à la ligne

Code:

---

If oRst.RecordCount = 1 Then MsgBox "VOIR Remarque MUTUELLE" & Rst.nomDuChamp

---

Message :

Erreur d’exécution ‘424’ :

Objet requis


Voici mon code au complet que j'ai mis sur Clic de mon champ [Rem Mut] dans mon formulaire:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Choix_Click() Dim oRst As DAO.Recordset Dim oDb As DAO.Database Dim sSql As String sSql = "SELECT [Coordonnées enfants].Nomenfant, Mutuelles.[Rem Mut]FROM [Coordonnées enfants] INNER JOIN Mutuelles ON [Coordonnées enfants].Mutuelle = Mutuelles.Mutuelle" Set oDb = CurrentDb Set oRst = oDb.OpenRecordset(sSql) If oRst.RecordCount = 1 Then MsgBox "VOIR Remarque MUTUELLE" & Rst!nomDuChamp 'Libération des objets oRst.Close oDb.Close Set oRst = Nothing Set oDb = Nothing End Sub

---

j'ai mis en bleu l'erreur.

Merci

oRst!nomDuChamp ---> Il faut changer [nomDuChamp] par le champ du recordset c.a.d. un des champs ou une concaténation de champs de ton SELECT que tu veux afficher !

Donc

• oRst!Nomenfant
• oRst![Rem Mut]
• oRst!Nomenfant & " - " & oRst![Rem Mut]

Merci