Mettre à jour une table avec une liste déroulante [Résolu]

[pat17]

Bonjour le forum,

J'ai surfé sur le forum mais je n'arrive pas à trouver ma réponse.

Dans un formulaire, j'ai une liste déroulante avec 2 colonnes (Noms et prénom). Sur le forum, j'ai bien trouvé la solution pour afficher le prénom dans une zone de texte.

Mon problème, j'arrive bien à enregistrer le (Nom) dans ma table mais pas le (prénom). Je précise que dans la table se sont deux champs différents.

Bonne journée à tous

[Jeannot45]

Tu peux compléter la procédure de la que tu utilises déjà :

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) 
    Dim l_strNom as String
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?",  _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then 
        l_strNom = InputBox("Saisir le Nom")
        DoCmd.RunSQL "INSERT INTO tblPrenoms ( Prénom, Nom ), SELECT '" & NewData & "', '" & l_strNom & "';" 
        Response = acDataErrAdded 
    Else 
        Response = acDataErrContinue 
        Modifiable0.Undo 
    End If 
End Sub

Je n'ai pas testé

[loufab]

Bonjour,

Crée un champ texte caché lié au prénom.
nom = txtPrenom
source = prenom
visible = false

Sur Après MAJ de ta liste affecte le prénom à ce champ.

Exemple :
Le prénom est dans la 2ème colonne de la liste.

Code :

me.txtPrenom = me.liste.column(1)

Si la table du champ prénom n'est pas la même que celle de la source du formulaire, il te faut ouvrir un recordset pour insérer la valeur.

Cordialement,
PS : salut Jeannot ! on se croise sur ce post

[pat17]

Bonjour et merci loufab et Jeannot45 pour votre aide.

Je pense que je me suis mal expliquer.
Ce n'est pas la table (Nom et Prenom) que je veux modifier mais après avoir sélectionné le Nom et le prénom dans une liste déroulante, je veux mettre à jour une autre table (générale).

[Jeannot45]

[pat17]

Plus de précision.

Dans mon formulaire j'ai une liste déroulante avec deux colonnes (Nom,Prenom). Avec source contrôle (Nom) de la table (générale).

J'ai ajouté une zone de texte avec la ligne de commande (=ListeNom.Column(1)) dans (source contrôle) afin de voir le Prenom quand je sélectione le Nom dans la liste déroulante.

J'ai aussi d'autres champs de la table (générale) qui sont à renseigner.

Quand j'enregistre ma saisie, dans la table (générale) je retrouve bien le Nom ainsi que les autres champs mais pas le Prénom.

Voilà

[pat17]

Re,

J'ai résolu mon problème d'alimentation de la table (générale) en utilisant les conseils de Loufab.

Merci à tous et bonne journée