Discussion :

[CLASSIQUE]

Bonjour,

Je suis en difficulté pour Créer une Zone Liste Déroulante.

Comment Afficher les Valeurs des Champs de 2 Tables sur la Sélection d’un Enregistrement d’une Zone liste Déroulante.
J’ai créé le Contenu :
Crée un code événementiel sur Private Sub After Update
Mais çà ne fonctionne Pas
Si vous avez une idée pour m’aider sur le Sujet

Ci joint les ScreenShots

Cordialement


Zone de Texte :
Numero_De_Serie = Affiche_NumSerie
DESIGNATION
Origine
TypePanne
INTITULEDEF

Contenu : Zone Liste déroulante : NBR_SERIE_FEEDER

Code :

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

SELECT T_Mise_Reparation.Numero_de_Serie, T_enregistrement_Feeders.DESIGNATION, T_enregistrement_Feeders.Origine, T_Mise_Reparation.INTITULEDEF, T_Mise_Reparation.TYPEPANNE FROM T_enregistrement_Feeders INNER JOIN T_Mise_Reparation ON T_enregistrement_Feeders.Numero_de_Serie = T_Mise_Reparation.Numero_de_Serie;

Code :

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

1
2
3
4
5
6
7
Private Sub NBR_SERIE_FEEDER_AfterUpdate()
Affiche_NumSerie = Numero_de_Serie
 Me.DESIGNATION = DLookup("DESIGNATION", "T_enregistrement_Feeders", "Numero_de_Serie='" & Numero_de_Serie & "'")
    Me.Origine = DLookup("Origine", "T_enregistrement_Feeders", "Numero_de_Serie='" & Numero_de_Serie & "'")
    Me.INTITULEDEF = DLookup("INTITULEDEF", "T_Mise_Reparation", "Numero_de_Serie='" & Numero_de_Serie & "'")
     Me.TypePanne = DLookup("TYPEPANNE", "T_Mise_Reparation", "Numero_de_Serie='" & Numero_de_Serie & "'")
End Sub

[titi95]

Bonjour

1) DESIGNATION et origine apparaissent dans les 2 tables : si mêmes données, 1 fois de trop, revoir les tables et jointures
2) la jointure entre les 2 tables est-elle appropriée ?

3) pour récupérer la valeur d'un champ d'une liste déroulante dans une zone de texte :

Code :

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

Me.NomZoneTexte = NomListe.Column(NumColonne)

La numérotation des colonnes de la liste commence à 0. Soit Column(1) pour DESIGNATION

[CLASSIQUE]

Bonjour Titi95,

je vous remercie de votre aide.
Je me pose une question.
Il n'est pas possible de créer le même mécanisme en VBA
sur un Dlookup de manière à Remplacer les Column (0)

Cordialement

[titi95]

Bonjour

l n'est pas possible de créer le même mécanisme en VBA
sur un Dlookup de manière à Remplacer les Column (0)

Quel intérêt ?

[CLASSIQUE]

Bonjour,

Merci de votre aide.

J'ai fini par effectuer le Mouvement ,comme ci-dessous.
Cà fonctionne.

Cordialement

Code :

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

SELECT T_Mise_Reparation.Numero_de_Serie, T_enregistrement_Feeders.DESIGNATION, T_enregistrement_Feeders.Origine, T_Mise_Reparation.INTITULEDEF, T_Mise_Reparation.TYPEPANNE FROM T_enregistrement_Feeders INNER JOIN T_Mise_Reparation ON T_enregistrement_Feeders.Numero_de_Serie = T_Mise_Reparation.Numero_de_Serie;

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NBR_SERIE_FEEDER_BeforeUpdate(Cancel As Integer)
Me.Numero_de_Serie = Me.NBR_SERIE_FEEDER
 Me.DESIGNATION = DLookup("DESIGNATION", "T_enregistrement_Feeders", "[Numero_de_Serie]='" & Forms![F_INTERVENTION]![Numero_de_Serie] & "'")
    Me.Origine = DLookup("Origine", "T_enregistrement_Feeders", "[Numero_de_Serie]='" & Forms![F_INTERVENTION]![Numero_de_Serie] & "'")
    Me.INTITULEDEF = DLookup("INTITULEDEF", "T_Mise_Reparation", "[Numero_de_Serie]='" & Forms![F_INTERVENTION]![Numero_de_Serie] & "'")
     Me.TypePanne = DLookup("TYPEPANNE", "T_Mise_Reparation", "[Numero_de_Serie]='" & Forms![F_INTERVENTION]![Numero_de_Serie] & "'")
     Me.Affiche_NumSerie = DLookup("Numero_de_Serie", "T_enregistrement_Feeders", "[Numero_de_Serie]='" & Forms![F_INTERVENTION]![Numero_de_Serie] & "'")
 
End Sub