Access, textbox et listbox

Fermé

Eric200 Messages postés 5 Date d'inscription vendredi 29 juillet 2005 Statut Membre Dernière intervention 23 août 2005 - 18 août 2005 à 08:42
patout60110 Messages postés 1 Date d'inscription lundi 2 avril 2007 Statut Membre Dernière intervention 2 avril 2007 - 2 avril 2007 à 19:19

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.

A voir également:

Access, textbox et listbox
Access appdata - Guide
Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
Acer quick access ✓ - Forum Windows
Quick acces ✓ - Forum Windows
Quick Access service ✓ - Forum PC portable

2 réponses

Réponse 1 / 2

Utilisateur anonyme
19 août 2005 à 16:28

   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

Réponse 2 / 2

Utilisateur anonyme
18 août 2005 à 16:08

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

Eric200 Messages postés 5 Date d'inscription vendredi 29 juillet 2005 Statut Membre Dernière intervention 23 août 2005
19 août 2005 à 09:07

Salut,

Je suis connecté comme cela.
t_pers est une table qui appelle la vraie table "personnel".

Dim db As Database
Dim rech_pers As Recordset
Set db = OpenDatabase("u:\ParcInformatique\ParcIn.mdb")
Set t_pers = db.OpenRecordset("Personnel", dbOpenTable)

patout60110 Messages postés 1 Date d'inscription lundi 2 avril 2007 Statut Membre Dernière intervention 2 avril 2007
2 avril 2007 à 19:19

salut, j'ai vu ton post mais je ne sais pas si je peut l'inserer dans prog.
je suis en vb6 est accesse 2000

j'ai un module qui me connect a ma base de donné.

et je veut crée un listbox qui va afficher un seul champ.

ok merci si tu peut m'aider

Discussions similaires

C'est quoi le runtime Access ?

Acer quick access

Désinstaller ACER QUICK ACCESS

Acer Quick Access - affichage CapsLock, VerrNum

Sécurité réseau