Access - VB (contrôle)
Bonjour,
J'ai un souci sous Access:
2 tables Maisons (MaisonA, MaisonB) et Infgen (Libellé, NotesA, NotesE).
J'ai fait une liste avec MaisonA, et MaisonB. Et ce que j'aimerais c'est que si je choisis MaisonA, le texte adéquat apparaisse à savoir NotesA. Et si c'est MaisonB, NotesB apparaît.
Malgré mes efforts, seul NotesE apparaît.
Private Sub Avertissement_GotFocus()
If IsNull(Me!Avertissement) Or Len(Me!Avertissement) = 1 Then
Me!Avertissement = DFirst("NotesA", "Infgen")
Else If
Me!Avertissement = DFirst("NotesE", "Infgen")
End If
End Sub
Merci pour votre aide,
J'ai un souci sous Access:
2 tables Maisons (MaisonA, MaisonB) et Infgen (Libellé, NotesA, NotesE).
J'ai fait une liste avec MaisonA, et MaisonB. Et ce que j'aimerais c'est que si je choisis MaisonA, le texte adéquat apparaisse à savoir NotesA. Et si c'est MaisonB, NotesB apparaît.
Malgré mes efforts, seul NotesE apparaît.
Private Sub Avertissement_GotFocus()
If IsNull(Me!Avertissement) Or Len(Me!Avertissement) = 1 Then
Me!Avertissement = DFirst("NotesA", "Infgen")
Else If
Me!Avertissement = DFirst("NotesE", "Infgen")
End If
End Sub
Merci pour votre aide,
2 réponses
-
Bonjour,
Tu as fait une liste, une liste de quoi ??
Tes tables sont-elles liées ? Par quel champ ?
-
Slt Laonei,
En supposant que MaisonA et MaisonB sont dans un contrôe ListBox ou ComboBox, il suffira tout simplement d'écrire la requête suivante dans l'évènement Click :
With rs
If ListBox1 (ou ComboBox1) = "MaisonA" Then
.Open "Select NoteA, ... from MaisonA Where LibMaison=' " & ListBox1 (ou ComboBox1) & " ';",cnn
Else
.Open "Select NoteA, ... from MaisonB Where LibMaison=' " & ListBox1 (ou ComboBox1) & " ';",cnn
End If
End With
Où rs est un objet Recordset déjà déclaré et cnn un objet Connection.
J'espère que j'ai clairement repondu à ta question.
Bonne chance.
