reprendre les memes informationsRésolu

Question

Messieurs,Mesdames les developpeurs,developtrices,

J'ai cree une table Client en Access avec Nom,Prenom,Rue,Code postal,Commune et Pays. J'ai crée dans un formulaire un listbox reprenant tous les noms de Client.et je voudrai faire que quand je clique sur l'un des noms dans la zone Listbox, les donnees correspondantes rempliront automatiquement les champs adequates dans le formulaire sans à resaisir une nouvelle fois.
Vos promptes réponses me serait très reconnaissants

merci mille fois.A b ientôt

Sniper_Vgaerr · Accepted Answer

Salut,

Voila queqlue chose qui t'interessera :

Private Sub List1_Click() //Lors d'un clic sur le nom du client dans la listbox
Set db = OpenDatabase("MaBase.mdb") //Ouvre la Bdd
Set rst = db.OpenRecordset("Client") //Ouvre la table
NomClient=List1.List(List1.ListIndex) //Permet d'avoir le nom du client

With rst
    .MoveFirst //Aller au premier enregistrement
    Do While Not (.EOF) //Tant que l'on a pas atteint la fin de la Bdd
        If NomClient = ![R&#233;f] Then //Si le nom du client est dans la base de donn&#233;e
            Text1.Text = ![Nom] //On rempli Text1.Text avec son Nom
            Text2.Text = ![Pr&#233;nom] //On rempli Text2.Text avec son Pr&#233;nom
            Text3.Text = ![Rue] //On rempli Text3.Text avec son Rue
            Text4.Text = ![Code Postal] //On rempli Text4.Text avec son Code Postal
            Text5.Text = ![Commune] //On rempli Text5.Text avec son Commune
            Text6.Text = ![Pays] //On rempli Text6.Text avec son Pays
         End If
    .MoveNext //Aller &#224; l'enregistrement suivant
    Loop
End With
End Sub

Voila en esperant que je t'ai aid&#233; avec &#231;a.
@+

Reprendre les memes informations

1 réponse

Discussions similaires