Comment ecrire une requete en VBa sous access

Résolu
fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention   -  
fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention   -
salut

g un gros probleme je doit faire une gestion de parc informatique
en fesant tous sous access

voila mon probleme g un formulaire avec un zone de liste que je rempli grace a une requete sous access (jusqu'ici pas de probleme)

mais maintenant je voudrais ecrire une requete pour que lorseque je clique sur un nom dans ma zone de liste j'affiche une information d'une table (nom_PC dans PC) dans un texte par rapport au nom que j'aurais selectionner dans la liste

par exemple

txtnom_PC=(requete)

Aidez moi a creer cette requete s'il vous plait
A voir également:

2 réponses

rasta67
 
salut

si je comprends bien, c'est un :

select 'champ que tu veux' from PC where 'champ' = 'ce qui est selectionné'
0
fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention   209
 
je sais ecrire la requete mais je ne sais pas l'ecrire sous le VB disponible sous access
voici ma erquete
SELECT PC.nom_PC FROM PC WHERE utilisateur = lstnom
0
rasta67
 
ok je comprends un peu mieux
tu peux pas ecrire 'variable' = select ... from ...

il faut un utiliser un objet recordset que j'appelle ici rc par exemple.
ensuite tu dois ecrire 'variable' = rc!nom_PC

ca fait très longtemps que j'ai pas fait de VB je peux pas de decrire tout en detail mais je sais que tu dois suivre cette piste du recordset... tu dois pouvoir trouver des exemples sur le net
0
fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention   209
 
g deja regarder
mais faut il appeler une biblioteque special pour recordset ?
0
rasta67 > fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention  
 
il faut faire dim rc as ADODB.recordset si je me souviens bien
les classes sont dans la bibli ADODB je crois
0
fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention   209 > fl0 Messages postés 357 Date d'inscription   Statut Membre Dernière intervention  
 
probleme resolu

Sql = "SELECT PC.Date_garantie_PC FROM PC"
Sql = Sql & " WHERE (((PC.utilisateur) = """ & Me.lstnom & """)) "

DoCmd.DeleteObject acQuery, "garantiepcutilisateurs" 'supprime requete
CurrentDb.CreateQueryDef "garantiepcutilisateurs", Sql'creer une requete
0