Discussion :

[vba_lieb]

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 :




Et j'ai bien mis ma relation en place :



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

Code :

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

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 :



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 :

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

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

J'ai tenté aussi ceci :

Code :

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

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.

[ExcelTastic]

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

[laurent_ott]

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



Et ce genre de code :

Code VBA :

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

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.