Comment ecrire une requete en VBa sous access

Résolu/Fermé
fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 - 8 mars 2007 à 10:07
fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 - 20 mars 2007 à 16:06
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

Réponse 1 / 2
rasta67
8 mars 2007 à 10:11
salut

si je comprends bien, c'est un :

select 'champ que tu veux' from PC where 'champ' = 'ce qui est selectionné'
0
Réponse 2 / 2
fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
8 mars 2007 à 10:20
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
8 mars 2007 à 10:26
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 lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209
8 mars 2007 à 10:29
g deja regarder
mais faut il appeler une biblioteque special pour recordset ?
0
rasta67 > fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021
8 mars 2007 à 10:38
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 lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021 209 > fl0 Messages postés 357 Date d'inscription lundi 5 mars 2007 Statut Membre Dernière intervention 10 novembre 2021
20 mars 2007 à 16:06
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
~comment ecrire arobase clavier hp
pecos -
Philippe5998 -

Bonjour, ~comment ecrire arobase clavier hp



Configuration: Windows XP / Firefox 3.5.7

9 réponses
Comment faire arobase sur mon hp
Arobase -
Ossi -

Bonjour, J'ai acheté un ordinateur HP on me demande de créér un compte email mais je n'arrive pas à écrire arobase , j'ai essayé alt gr avec@ ça ne marche pas, veuillez m'aider svp

3 réponses
Écrire le signe racine carrée sur le clavier d’un iPhone 5
Birdy -
Allo2020 -

Bonjour,

Comment écrire le signe racine carrée avec le clavier d’un IPhone 5 ?
Merci de me répondre.

Configuration: iPhone / Safari 11.0

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses