Access, textbox et listbox
Eric200
Messages postés
4
Date d'inscription
Statut
Membre
-
patout60110 Messages postés 1 Date d'inscription Statut Membre -
patout60110 Messages postés 1 Date d'inscription Statut Membre -
Bonjour à tous,
je travaille avec VB6 et une base de données Access. J'ai une table Access avec comme champs Code, Nom, Prénom, Adresse et Téléphone. Le Code n'est pas forcémént renseigné.
J'affiche dans 1 listbox le code, nom et prénom des membres.
Je voudrais dés que je sélectionne une ligne dans la listbox, les éléments de la table s'affichent dans des textbox prévus à cet effet.
Merci de me renseigner sur la procédure à écrire.
je travaille avec VB6 et une base de données Access. J'ai une table Access avec comme champs Code, Nom, Prénom, Adresse et Téléphone. Le Code n'est pas forcémént renseigné.
J'affiche dans 1 listbox le code, nom et prénom des membres.
Je voudrais dés que je sélectionne une ligne dans la listbox, les éléments de la table s'affichent dans des textbox prévus à cet effet.
Merci de me renseigner sur la procédure à écrire.
Configuration: access 2000 visual basic 6
2 réponses
-
Dim db As Database Dim rech_pers As Recordset Set db = OpenDatabase("u:\ParcInformatique\ParcIn.mdb") Set t_pers = db.OpenRecordset("Personnel", dbOpenTable) VarRecherche = maForm.listbox.text ' t_pers.Refresh 'Rafraichissement de la table t_pers.Recordset.MoveLast 'Va jusqu'à la fin t_pers.Recordset.MoveFirst 'Va jusqu'au début 'Définition du critère de recherche Critere1 = "MEMBNO LIKE '" & VarRecherche & "'" t_pers.Recordset.FindFirst Critere1
si tes autres objets (textbox) sont aussi accroché sur la table alors,
ça devrait ressembler à quelque chose comme cela !
Lupin
-
Salut,
Comment es-tu connecté à la BD, par objet DATA, ou par
code?
Si tu es par objet DATA, ça pourrait ressembler à :
Dim Critere1 As Variant maForm.monData.DatabaseName = Chemin 'Accroche la BD VarRecherche = maForm.listbox.text monData.Refresh 'Rafraichissement de la table monData.Recordset.MoveLast 'Va jusqu'à la fin monData.Recordset.MoveFirst 'Va jusqu'au début Critere1 = "MEMBNO LIKE '" & VarRecherche & "'" 'Définition du critère de recherche monData.Recordset.FindFirst Critere1 ' recherche
Lupin
