Data ACCESS dans USERFORM Excel m'affiche l'ID

3 pièce(s) jointe(s)

Bonjour,

Voici mon nouveau souci que j'arrive pas à résoudre :
Ma table OF_GENERAL, j'ai un champ ID_STATUT qui est en relation avec la table REF_STATUTS

Dans la table REF_STATUTS j'ai indiquer les statuts possible :

Pièce jointe 665396

Et j'ai bien mis ma relation en place :

Pièce jointe 665397

Dans la table OF_GENERAL, j'ai mis mon champ ID_STATUT en Liste déroulante avec comme commande sql :

Code:

SELECT [REF_STATUTS].[ID_STATUT], [REF_STATUTS].[ETAT_STATUT] FROM REF_STATUTS ORDER BY [ETAT_STATUT];

Ainsi, au lieu de l'ID du statut, dans la table il s'affiche le nom de mon statut :

Pièce jointe 665398

Bon pour l'instant tout est OK...

Toutefois, dans un USERFORM de mon fichier Excel, je souhaite afficher le statut d'un OF, j'ai donc mis ceci :

Code:

TextBox17 = ADO.Enr_Info(Cnn1, "OF_GENERAL", "ID_OF=" & ID_OF, valeur, "ID_STATUT")

J'ai tenté aussi ceci :
Code:

1 2 3 MsgBox Enr_Info(Cnn1, StrTableSource:="OF_GENERAL", _ SQLWhere:="ID_STATUT=" & ID_OF, TypeInfoEnr:=valeur, _ StrNomChamp:="ID_STATUT")
Mais ça m'affiche toujours 1 (qui est l'id du statut En attente)

Bref, malheureusement, dans mon TextBox17, il s'affiche uniquement l'ID (clé primaire de mon statut) et non pas, pour cet exemple, "En attente"

Si quelqu'un pourrait m'apporter de l'explication.

Voilou, j'espere vous avoir assez donné de détail.

Au plaisir de vous lire et merci pour votre retour.

Bonjour vba_lieb

C'est normal, puisque vous demandez l'ID_STATUT !

Mais le retour, n'est pas ce qui est affiché, mais ce que contient le champ, donc un numéro

1 pièce(s) jointe(s)

Bonjour,
Pour récupérer l'information "ETAT_STATUT" qui est issue d'une relation, il faut créer une requête.
Exemple :

Pièce jointe 665487

Et ce genre de code :
Code:

1 2 3 4 5 6 7 Sub Démo() Dim ID_OF As Long ID_OF = 1 Debug.Print Enr_Info(Cnn1, "Requête1", "ID_OF=" & ID_OF, Valeur, "ETAT_STATUT") End Sub
Bonne programmation.