Discussion :

[Alinou64]

Bonjour a tous,

Je suis débutant Access . Je vais donc peut être vous embêter avec une question dont la réponse est évidente mais je tourne pas mal en rond avec ca.
Voici mon problème :

J'ai une table avec des valeurs (banal).
Je compte le nombre d'enregistrements satisfaisant un critere avec une simple requete contenant un count.
Cette requette ne retourne qu'une seule valeur (normal) dans le champ calculé [Expr1].

Ce que je souhaiterai c'est transferer le résultat de cette requête dans une variable que je pourais afficher dans un formulaire et aussi traiter pour faire des calculs.

J'ai pensé a un Text box mais je n'arrive pas a le faire fonctionner.
Le seul truc que j'ai réussi a faire est d'afficher le résultat du count dans une zone de liste en placant dans son 'Contenu' un select sur le champ calculé du count de la requete:

Origine : Table/Requete
Contenu : SELECT[NOM_REQUETE_DE_COMPTAGE].[Expr1] FROM [NOM_REQUETE_DE_COMPTAGE]

C'est un premier résultat encourageant mais, ensuite je n'arrive pas a relire cette valeur stockée dans la zone de liste pour faire un traitement dessus..
Je voudrais par exemple faire un calcul sur cette valeur et afficher le resultat dans un text box.

Merci de vos aides

[tarnx]

Tu peux exécuter ta requête de cette façon (par exemple sur l'évènement Form_Load() ou autre ) :

Code :

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

1
2
3
4
Dim RcdSet As DAO.Recordset
 
Set RcdSet = CurrentDb.QueryDefs("TaRequete").OpenRecordset
Me.UneZoneDeTexte= RcdSet![ChampARécupérer]

Ton résultat apparaîtra dans la zone de texte.

[Manhexter]

Salutations,

Juste pour compléter la réponse de tarnx, je rajouterai une condition if dans le code pour éviter un message d'erreur en cas de résultat vide (si la requête ne renvoie aucune ligne par exemple)

Code :

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

1
2
3
4
5
6
Dim RcdSet As DAO.Recordset
 
Set RcdSet = CurrentDb.QueryDefs("TaRequete").OpenRecordset
If not RcdSet.EOF Then
    Me.UneZoneDeTexte= RcdSet![ChampARécupérer]
End If

Cordialement,

[Jean-Philippe André]

salut,
autre piste, les fonctions de domaines