Discussion :

[fred98]

Bonjour,

Etant nouveau sur ce forum, je tiens tout d'abord à remercier tous les modérateurs et contributeurs de ce site qui est pour moi (débutant en vba access) une véritable mine d'or. Malheureusement après 2 jours de recherches infructueuses, je me résous à exposer mon problème:

J'ai une table Personne dans laquelle j'ai une liste de locataires, j'ai une autre table Biens avec une liste d'appartement. Dans cette dernière table j'ai établis une relation avec la 1ère table en prenant les colonnes ID, nom, prénom que je mets dans la colonne Locataire de ma table Immobilier (graçe à l'assistant liste de choix). Ainsi je peux choisir un locataire dans cette liste à affecter à un appartement.

Je souhaiterai récupérer le champ nom pour l'afficher dans un textbox d'un formulaire mais je ne parviens qu'à retourner la valeur de l'ID. Comment puis-je obtenir le nom associé se situant dans la 2ème colonne.

Voici mon code:

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
''''''''''''Lire un enregistrement dans BDD
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Dim IDadresse As Integer
Set oDb = CurrentDb
IDadresse = Me.btn_adresse_bien.Column(0)
Set oRst = oDb.OpenRecordset("SELECT * FROM Biens WHERE biens_N°=" & IDadresse, dbOpenDynaset)
 
'La valeur retournée est l'ID de la personne or je voudrais son nom ??
    Me.edit_locataire1.Value = oRst.Fields("biens_locataire_1")
 
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
 
End Sub

Merci d'avance pour votre aide

[loufab]

Bonjour,

Pour accéder aux colonnes d'une liste ou d'une liste déroulante il faut utiliser la propriété column, comme ceci :

Code :

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

1
2
3
me.maliste.column(0)  'retourne la 1er colonne
 
me.maliste.column(10) 'retourne la 11ème colonne

Cordialement,

[fred98]

Bonjour,

Merci pour votre aide mais je souhaite récupérer la valeur "nom" de mon champ biens_locataire_1 (

Code :

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

oRst.Fields("biens_locataire_1")

) contenant 3 colonnes issue d'une relation ("ID", "nom", "prénom"). Pour l'instant il me retourne l'"ID", j'ai essayé en faisant

Code :

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

oRst.Fields("biens_locataire_1").column(1)

mais ça ne fonctionne pas.

Cordialement

[loufab]

column n'est pas une propriété de DAO.fields mais des zones liste.

La liste de locataire ne serait donc pas une liste mais un recordset ?!

Dans ce cas il suffit de donner le bon nom de champ au fields.

[fred98]

Le nom du champ que j'essaie de récupérer est bien "biens_locataire_1" mais dans ce champs il y a 3 colonnes (ID, nom, prénom) et je souhaiterai obtenir le nom et pas l'ID. J'ai mis en pièce jointe un exemple du champ que j'aimerais récupérer.

[loufab]

Tu utilises des champs multivalués, c'est par cette information qu'il fallait commencer.

Voici un tuto qui va surement t'aider :

http://warin.developpez.com/access/multivalue/

Cordialement,

[fred98]

Effectivement après lecture du tuto j'aurai dû commencer par là
Cependant je ne parviens malheureusement toujours pas à atteindre cette maudite colonne, il me fait une erreur "Elément non trouvé dans cette collection" quand j'essaie d'atteindre la colonne contenant le nom (oRstChamp.Fields(1)).

Code vba :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim oRst As DAO.Recordset, oRstChamp As DAO.Recordset
Dim oDb As DAO.Database
Dim IDpersonne As Integer
Set oDb = CurrentDb
IDadresse = Me.btn_adresse_bien.Column(0)
Set oRst = oDb.OpenRecordset("SELECT * FROM Biens WHERE biens_N°=" & IDadresse, dbOpenDynaset)
 
'J'ouvre un recordset sur le champ multi-valué
Set oRstChamp = oRst.Fields("biens_locataire_1").Value
 
'J'affecte le contenu de la colonne contenant le nom du locataire dans l'editbox de mon formulaire
Me.edit_locataire1.Value = oRstChamp.Fields(1)
 
oRstChamp.Close
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing

[loufab]

Je me demande si tu te compliques pas la tâche.

Dans ton formulaire d'affichage, pour choisir ton locataire, logiquement tu devrais avoir une liste déroulante avec le contenu de la table Personnes et au moins les 3 colonnes ID, nom, prénom.

Pourquoi ne fais-tu pas simplement ceci pour renseigner ta zone de texte :

Code :

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

me.mazonedetexte = me.listeLocataire.column(1)

Sans ouvrir de recordset puisque tu as déjà l'information dans la liste déroulante de sélection.

[fred98]

Bonjour,


N'ayant pas réussi j'ai donc contourné le problème en ouvrant un premier recordset sur la table "biens"vou je récupère l'ID puis en ouvrant un 2ème recordset sur la table "personne" où je récupère son nom. Je peux donc ainsi afficher le nom dans le champ "Me.edit_locataire1.Value".

Je passe en résolue.

Merci @loufab