Access - VB (contrôle)
Laonei
-
RicHamilton Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
RicHamilton Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
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,
A voir également:
- Access - VB (contrôle)
- Vb - Télécharger - Langages
- Fan controle - Télécharger - Optimisation
- Controle parental disney plus - Guide
- Vb cable - Télécharger - Audio & Musique
- Controle parental sur pc - Guide
2 réponses
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.
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.