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.
A voir également:
- Access, textbox et listbox
- Access appdata - Guide
- Maintenance access ✓ - Forum Access
- Restructuration base de données access - Forum Access
- Migration base access vers sql server - Télécharger - Gestion de données
- Get access - Télécharger - Récupération de données
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
