bonjour tous le monde
j'ai une table access qui s'appelle alliance et j'ai un formulaire alliance1 dans ce formulaire qui contient une zone de texte Nom et un bouton Bascule3_Click()
dans le bouton j'ai ecit le code vba , quand je saisie le nom et je valide il m'affiche un 0 ou 1 dans la zone de texte alors que moi je veux afficher l'enregistrement de table qui contient le nom saisie dans la zone de texte et voila le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  Option Compare Database
 
Private Sub Bascule3_Click()
 Dim requete As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim resultat As Text
 
    Set db = CurrentDb
 
    requete = "SELECT Prénom FROM alliance (avec la syntaxe inner join) WHERE (((Nom) Like '" & [Forms]![alliance1]![Nom] & "'));"
 
    Set rs = db.OpenRecordset(requete)
 
    resultat = ""
 
    While Not rs.EOF
        resultat = resultat & " " & rs![Nom] & " & vbCrLf"
        rs.MoveNext
    Wend
 
    Texte6 resultat
 
    rs.Close
    db.Close
 
    Set rs = Nothing
    Set db = Nothing
 
End Sub