Rechercher : dans
Par :

Comment ecrire une requete en VBa sous access

Dernière réponse le 20 mar 2007 à 16:06:44 fl0, le 8 mar 2007 à 10:07:53 
 Signaler ce message aux modérateurs

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

Configuration: Windows XP
Internet Explorer 6.0

1

rasta67, le 8 mar 2007 à 10:11:38

Salut

si je comprends bien, c'est un :

select 'champ que tu veux' from PC where 'champ' = 'ce qui est selectionné'

Répondre à rasta67

2

fl0, le 8 mar 2007 à 10:20:25

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

Répondre à fl0

3

rasta67, le 8 mar 2007 à 10:26:38
  • +1

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

Répondre à rasta67

4

fl0, le 8 mar 2007 à 10:29:00

G deja regarder
mais faut il appeler une biblioteque special pour recordset ?

Répondre à fl0

5

rasta67, le 8 mar 2007 à 10:38:51

Il faut faire dim rc as ADODB.recordset si je me souviens bien
les classes sont dans la bibli ADODB je crois

Répondre à rasta67

6

 fl0, le 20 mar 2007 à 16:06:44

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

Répondre à fl0