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
Hns-self-wan-access-ipv6 ✓ - Forum Réseau
Avis stream access ✓ - Forum Virus
Bios access - Guide
You don't have permission to access this resource.server unable to read htaccess file, denying access to be safe ✓ - Forum Debian

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

Exemple de base de données access

Erreur 403: You don't have permission to access on this server ?

[VBA] format de date dans textbox

Acer quick access

C'est quoi le runtime Access ?

Discussions similaires

Newsletters