|
|
|
|
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.
Configuration: access 2000 visual basic 6
Salut,
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 ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |
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 ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |
Access "zone de liste" selection multiple simple etendu Access to c:program files (x86)emuleconfigserver.met was denied Apprendre l'access Comment enregistrer une table access en mdb Convertir une base de données access en oracle 10g Didacticiel access Lier 2 tables sous access Microsoft access mac Network access management nvidia Téléchargement gratuit access 2007 Télécharger access évaluation Utiliser di624 comme access point
