Discussion :

[AlainL]

Bonjour

Je n'arrive pas à trouver le bon code pour le travail suivant:

J'ai un formulaire, qui devrait:
1/ sur clic d'un bouton;
2/ générer via procedure vba un sql, et ouvre le RecordSet correspondant;
3/ puis active l'affichage de l'état en utilisant ce RecordSet spécifique.

C'est le point 3 que je ne sais pas faire.

Le problème se situe
soit au niveau du clic bouton:
- comment lui dire: va placer mon sql dans le champ "Source" de mon état, avant de l'ouvrir et de l'exécuter ?

soit au niveau du formatage de l'état:
- comment lui dire: va me chercher mon sql dans ma zone de travail du clic-bouton ? (dans ce cas, le dit sql n'est pas affiché sur le formulaire)

Merci de votre toujours précieuse aide

[azertix]

Je travaille sur ce problème aussi.
Théoriquement, l'argument OpenArgs d'OpenReport doit nous permettre d'envoyer le paramètre qui nous affichera les infos du bon enregistrement, mais je n'y parviens pas.
Dis-moi si tu trouve

Sinon pour spécifier la source d'un contrôle, c'est :

Code :

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

monform.RowSource = "SELECT * FROM maTable;"

Pour ta 3ème question, tu peux créer une requête dans Access et y faire appel dans ton état en complétant la propriété Source contrôle par :

Code :

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

nomRequête.nomChamp

[Domi2]

Bonjour Alain,

As-tu vu ce tutoriel de jeannot45 :

Comment utiliser plusieurs requêtes pour un même état

Cela devrait te donner quelques pistes (au minimum).

Bon dév !

Domi2

[AlainL]

Azertix: En principe, le tuto indiqué par Domi2 répond à ce que je veux faire, mon cas étant plus simple...

Domi2: ... mais il ne semble pas trouver la requete... J'obtiens un erreur "... ne peut pas trouver la requete source...", dans le code:

- code du bouton:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub PRT_List_Click()
Dim SqlImp As String
Dim W_An_Min As String
Dim W_An_Max As String
W_An_Min = Right(Me.SEL_An.Value, 2) & "0000-000000"
W_An_Max = Right(Me.SEL_An.Value, 2) & "9999-999999"
SqlImp = "SELECT * FROM Vent_Prod WHERE COM_Num >= '" & W_An_Min & "' AND COM_Num <= '" & W_An_Max & "' ORDER BY DET_PRO"
DoCmd.OpenReport "VENT_PROD", acPreview
End Sub

- code à l'ouverture de l'état:

Code :

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

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
Dim rsImp As DAO.Recordset
Set rsImp = CurrentDb.OpenRecordset(SqlImp)
Reports("VENT_PROD").RecordSource = SqlImp
Me.Txt_An = Forms("VENT_Prod").Form.SEL_An.Value
End Sub

Donc il y a quelque chose que je n'ai pas compris, il ne passe visiblement pas la requete crée dans le bouton à la procédure de l'état.

Heu... dans la procédure du bouton, je suis avec Option Explicit, alors que dans l'état, je suis sans ... cela a-t-il un rôle ?

Merci

[Domi2]

Bonjour,

Code :

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

Option Explicit

oblige à déclarer toutes les variables.

En cas d'erreur, cela facilite grandement le travail lors de la compilation du code.

On devrait l'utiliser de manière systématique (c'est mon avis...).

Pour le problème de la requête, cela semble être un problème de portée de ta variable "sqlImp".

Telle que déclarée, elle n'est reconnue que dans la procédure sur clic du bouton.

Essaie de faire la déclaration dans la section déclaration d'un module standard.

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Public sqlImp As String
 
'Ici, la première procédure ou fonction

Domi2

[azertix]

Bonjour,

Code :

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

Option Explicit

oblige à déclarer toutes les variables.

En cas d'erreur, cela facilite grandement le travail lors de la compilation du code.

On devrait l'utiliser de manière systématique (c'est mon avis...).

C'est vrai que je la mets systématiquement, personnellement ...

[AlainL]

Oui, normalement moi aussi... raison pour laquelle je me suis dit que si la variable était déclarée ailleurs, ben, ça risquait pas de fonctionner j'ai donc aussi tenté sans le Explicit.

Domi2: Ch'tit problème de phraséo: que veux exactement tu dire par:

la déclaration dans la section déclaration d'un module standard.

Le terme "module standard" m'est encore étranger...

Merci

[azertix]

Oui, normalement moi aussi... raison pour laquelle je me suis dit que si la variable était déclarée ailleurs, ben, ça risquait pas de fonctionner j'ai donc aussi tenté sans le Explicit.

Domi2: Ch'tit problème de phraséo: que veux exactement tu dire par:

Le terme "module standard" m'est encore étranger...

Merci

En fait, suivant l'endroit où tu déclare ta variable elle n'a pas la même portée.
Si tu déclare une variable dans une procédure, elle ne sera valable que dans cette procédure.
Si tu tente de récupérer sa valeur dans une autre procédure, Access te dira que la variable est inconnue.
C'est la différence entre une variable locale (procédure, fonction) et une variable globale (valable pour tout le module).
Pour déclarer une variable globale, il faut la mettre tout en haut de ton code, juste en dessous de tes options (Compare Database et Explicit).

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Public sqlImp As String
 
'Ici, la première procédure ou fonction

Sinon, un module est un regroupement de toutes tes procédures évènementielles (Click, Load, Open ...).
Quand tu ajoute un évènement à un formulaire, un module est créé automatiquement par Access.
Sinon, tu peux créer un module en allant dans le menu Insertion > Module si tu veux créer des procédures/fonctions appelables depuis n'importe quelle procédure de ton projet

[Domi2]

Bonjour,

Le terme "module standard" m'est encore étranger...

En complément aux infos données par azertix, j'entend par module "standard" un module autre que ceux des formulaires et états.

tu peux créer un module en allant dans le menu Insertion > Module si tu veux créer des procédures/fonctions appelables depuis n'importe quelle procédure de ton projet

D'autre part, je viens juste de regarder à nouveau le tuto.

jeannot 45 utilise une constante publique (voir III-C-1-d-i) pour sa requête.

Regarde attentivement comme c'est fait, notamment la récupération à l'ouverture de l'état.

Domi2

[AlainL]

Ah, merci, compris Domi2 et Azertix: je l'avais placée au mauvais endroit. Et j'ai remis le Explicit.

Mais...

J'ai donc déclaré cette variable en tête du module concernant le formulaire, elle se place alors juste après les Option, et avant le trait horizontal de séparation.

L'état se contente d'y faire appel (pas de déclaration de la variable publique SqlImp).

Et, grâce à ces merveilleuses MsgBox, on voit dans ce cas que:
- au niveau du formulaire, impeccable, ladite variable contient bien ce que l'on souhaite;
- au niveau de l'état, par contre, elle ne contient strictement rien
... ce qui bien entendu génère après une erreur.

Dans ce cas, il m'indique "variable non définie". Et... non, le nom et la casse sont bien respectés dans les deux...

Pige pas !

[Domi2]

Bonsoir,

Tu as toujours un problème avec la portée de ta variable...

L'état se contente d'y faire appel

Mais il ne la reconnaît pas, visiblement...

Un peu de lecture :

Fondements sur les variables et les constantes

Et je me demande si tu as bien lu le tuto de jeannot45...

As-tu essayé d'utiliser la constante publique ?

Courage...

Domi2

[AlainL]

Bonjour Domi2

Ben oui, je pense avoir suivi vos indications et celles des tutos. Voilà l'état actuel du code:

Pour le bouton:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
Option Explicit
Public SqlImp As String
 
.... autres procedures entre-deux .....
 
Private Sub PRT_List_Click()
Dim W_An_Min As String
Dim W_An_Max As String
W_An_Min = Right(Me.SEL_An.Value, 2) & "0000-000000"
W_An_Max = Right(Me.SEL_An.Value, 2) & "9999-999999"
 
SqlImp = "SELECT * FROM Vent_Prod WHERE COM_Num >= '" & W_An_Min & "' AND COM_Num <= '" & W_An_Max & "' ORDER BY DET_PRO"
MsgBox (SqlImp)
DoCmd.OpenReport "VENT_PROD", acPreview
End Sub

La variable est bien déclarée Public en en-tête. La MsgBox m'indique qu'elle contient bien ce que je voulais.

Maintenant, le code de l'état:

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub Report_Open(Cancel As Integer)
Dim rsImp As DAO.Recordset
MsgBox (SqlImp)
Set rsImp = CurrentDb.OpenRecordset(SqlImp)
Reports("VENT_PROD").RecordSource = SqlImp
Me.Txt_An = Forms("VENT_Prod").Form.SEL_An.Value
End Sub

Que je mette la MsgBox de contrôle au-dessus ou au-dessous de l'instruction Set, il me dit que la variable n'est pas définie.

Le fait de déclarer SqlImp come Public, dans le second tuto, indique que tant sa portée que sa durée de vie sont sur l'ensemble du projet. Du moins, c'est ce que je comprend.

Il me semble logique, dans ce cas, de ne pas avoir à la redéclarer en en-tête de l'état... puisqu'elle est censée avoir valeur sur l'ensemble du projet. Et si je la re-déclare en en-tête de l'état, elle est logiquement vide.

Je ne vois donc pas où se trouve l'erreur, désolé.

Merci de tes aimables lumières

[Domi2]

Bonjour,

Bon...

Essaie ceci. Tu supprimes ta variable de l'entête du formulaire, puis tu modifies une ligne de code de la procédure du bouton :

Code :

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

1
2
Public Const SqlImp As String = "SELECT * FROM Vent_Prod WHERE COM_Num >= '" & W_An_Min & "' AND COM_Num <= '" & W_An_Max & "' ORDER BY DET_PRO"
MsgBox (SqlImp)

Qu'est-ce que cela dit ?

Domi2

[AlainL]

Ahem... Cela dit que ce n' "....est pas autorisé comme membre Public de module d'objet".

Et je ne comprend pas bien pourquoi tu me demandes de faire cet essai: Azertix et toi, plus haut, m'avez indiqué que le seul endroit pour déclarer une variable globale, donc utlisable partout, était dans l'en-tête.

Là, tu me demandes de l'inclure dans la partie locale... et le vérificateur ne l'accepte pas, ce qui me semble logique compte tenu de ce qui précède.

J'ai encore tout faux ????

[Domi2]

Bonjour,

Je me suis fourvoyé dans mon post précédent, sorry...

On reprend à zéro...

Si la requête source de ton état est toujours identique, tu peux simplement essayer d'utiliser l'argument OpenArgs (tu peux supprimer la variable publique)

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub PRT_List_Click()
Dim SqlImp As String
Dim W_An_Min As String
Dim W_An_Max As String
W_An_Min = Right(Me.SEL_An.Value, 2) & "0000-000000"
W_An_Max = Right(Me.SEL_An.Value, 2) & "9999-999999"
SqlImp = "SELECT * FROM Vent_Prod WHERE COM_Num >= '" & W_An_Min & "' AND COM_Num <= '" & W_An_Max & "' ORDER BY DET_PRO"
DoCmd.OpenReport "VENT_PROD", acPreview, , , , SqlImp 'SqlImp est passé en argument
End Sub

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = Me.OpenArgs 'On utilise l'argument comme source de l'état
Me.Txt_An = Forms("VENT_Prod").Form.SEL_An.Value
End Sub

J'espère que cela va répondre à ton besoin.

Domi2

[AlainL]

Merci beaucoup Domi2

Cela a l'air de fonctionner.

[pier.antoine]

Avez vous essayé de faire un nouveau module (Menu Insertion/Module) dans lequel placer les déclarations publiques?
Normalement, cela ne doit pas avoir d'influence, mais....


Pierre