Access, textbox et listbox
Eric200
Messages postés
5
Statut
Membre
-
patout60110 Messages postés 1 Statut Membre -
patout60110 Messages postés 1 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.
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 à :
Lupin
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
