Discussion :

[logidev]

bonjour,

soitle champ "champ1" de mon formulaire "form1": je souhaiterai cliquer sur un bouton qui executerai les tâches suivantes:
- lancer la requête "req1" (sans l'afficher)
- récupérer le résultat dans le champ1 du formulaire form1

Pourriez-vous me donner un exemple de code VBA?

merci d'avance.

cdt

[al_bert]

Bonjour,

voici une possibilité qui pourrait répondre à tes besoins :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim table As DAO.Database
Dim enregistrement As DAO.Recordset
 
Set table = CurrentDb 'La table est référencé à la base de donné courante
 
Set enregistrement = table.OpenRecordset(req1, dbOpenSnapshot) 'On récupère le résultat de la requête 'req1' dans la variable enregistrement
 
champ1.value = enregistrement.Fields ("champ") 'Comme enregistrement contient tous les champs de l'enregistrement trouvé, on affiche seulement le champ ("champ") désiré

Ce code présuppose que ta requête ne retourne qu'une valeur. Si jamais tu t'attends à recevoir plus d'une valeur et que tu désires toutes les affichées, tu peux faire une boucle for basé sur le nombre d'enregistrements trouvés pour tous les affichés. ll pourrait être judicieux ici de vérifier que la propriété recordCount de enregistrement n'est pas à 0 avant de faire la dernière ligne pour éviter les erreurs.

Bonne chance pour la suite

[logidev]

Merci de t'être penché sur mon pb.

En utilsant ton code avec mes données, j'ai un message d'erreur: "type defini non défini par l'utilisateur".
Faut-il déclarer les variable autrement?

merci

cdt

[Pierre Fauconnier]

Bonjour

Il faut cocher la référence à Microsoft DAO 3.6

[logidev]

bonjour,

ok, j'ai coché "Microsoft DAO".

Une erreur me dit que le moteur Jet ne trouve pas la requête (par contre si je la remplace par le nom d'une table, je n'ai pas le msg d'erreur).

D'autre part, pour afficher le résultat de la requête dans un champ de mon formulaire, faut-i écrire ceci:

monform!champ1.value = enregistrement.Fields ("champ_requête") ?

merci encore

cdt

[al_bert]

Bonjour,

Une erreur me dit que le moteur Jet ne trouve pas la requête

Il faut t'assurer que la requête contenue dans la variable req1 ait une syntaxe valide en SQL. Sinon, des erreurs du genre peuvent être levées.

D'autre part, pour afficher le résultat de la requête dans un champ de mon formulaire, faut-i écrire ceci:

monform!champ1.value = enregistrement.Fields ("champ_requête") ?

En fait, si tu inscrit ton code dans le formulaire courant, la partie "monform!" devient inutile puisqu'elle sera sous-entendu, tu pourras donc écrire simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

champ1.value = enregistrement.Fields ("champ_requête")

Par contre, si tu appelles cette procédure depuis un autre formulaire, si je ne me trompes pas, tu n'auras pas le choix d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
monform![champ1].value = enregistrement.Fields ("champ_requête")

En espérant que cela t'aide à avancer,
Salutations

[Pierre Fauconnier]

Bonjour

Il faut encadrer le nom de la requête par des guillemets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set enregistrement=table.openrecordset("req1",dbOpenSnapshot)

Il y a aussi moyen d'adresser un champ comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

enregistrement!monchamp

[logidev]

Bonjour,

merci pour votre aide. Effectivement, toutes vos astuces fonctionnent dans le cas d'une table.
Mais lorsque c'est une requête, j'ai le message:"trop peu de paramètres 2 attendu".
En attendant, je construis une table temporaire avec le résultat de ma requête. Ce champ unique de la table alimente mon champ du formulaire.

merci.

cdt.

[Pierre Fauconnier]

Vu la ligne sur laquelle le code plante, je dirais que la requête ne fonctionne pas non plus dans Access, suite par exemple à une modification dans la structure des tables.

Vérifie déjà que la requête s'ouvre dans Access