Discussion :

[marion.delaunay]

Bonjour à tous,

Je construis actuellement une application de gestion de coordonnées clients et partenaires.
Dans ma base, il y a plus de 200 requêtes auxquelles mes collègues doivent pouvoir accéder. La liste des requêtes leur est accessible dans un formulaire nommé F_EXTRACTIONS.

Je souhaite que ces requêtes s'ouvrent en lecture seule évidemment, mais surtout dans une fenêtre indépendante.

1ere idée :

J'utilise OpenQuery. La requête s'ouvre en lecture seule, mais pas dans une fenêtre indépendante !

Code :

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

1
2
3
4
5
6
7
 
 Dim stDocName As String
 
' ouvre la requête sélectionnée en lecture seule
 
    stDocName = Me.Liste_extractions
    DoCmd.OpenQuery stDocName, acNormal, acReadOnly

2ème idée :

J'ai créé un formulaire F_REQUETE, vierge

Mon objectif, c'est qu'en fonction de la requête sélectionnée dans la liste sur F_EXTRACTIONS, le formulaire F_REQUETE s'ouvre et que l'ensemble des champs de la requête sélectionnée s'y ajoutent.

Mon code à ce stade... ne fait rien à part ouvrir F_REQUETE :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim stDocName As String
 
stDocName = Me.Liste_extractions
 
Dim sql As String
sql = "Select " & stDocName & ".* From " & stDocName & ";"
 
DoCmd.OpenForm "F_REQUETE"
 
Forms!F_REQUETE.RecordSource = sql
 
Form.Requery
Form.Refresh

Des idées pour m'aider ?
Merci d'avance à tous ceux qui me liront et/ou qui répondront !

[marot_r]

Bonjour.

Changer dynamiquement les champs dans un formulaire, c'est un peu l'enfer.

Je te suggère de faire différemment :

1. créer un formulaire : F_REQUETE vierge.
2. Définir ce formulaire comme fenêtre indépendante.
3. Ensuite tu vas ajouter un sous-formulaire, et tu vas annuler le processus, juste pour garder le cadre vide du sous-formulaire (SF_Requete).
   Il n'y aura pas vrai formulaire associé.
4. Après dans la propriété Objet Source du sous-formulaire tu vas mettre quelque chose comme [Requête].[NomUneRequete].
   Cela va te permettre de vérifier que cela marche.
5. Et Access va gérer cela comme un sous-formulaire dynamique.
6. Tu auras juste à changer la propriété objet source par VBA au moment de l'ouverture pour changer de requête.

En utilisant les ancrages dans l'onglet Organiser tu peux faire en sorte que le sous-formulaire prenne toute la place disponible.

A+

[Invité]

Bonjour,
Je rejoint marot_r, créer un formulaire dynamiquement,c'est pas simple mais jouable! Qu'il soit convivial et ergonomique moins, mais en plus pour 200 requête ...!

A choisir je placerai des frames visible ou pas! A implémenter c'est fouillis mais jouable.

[Gfacro]

En plus de cela, trouver la bonne requête parmi 200 en liste déroulante, cela m'a l'air l'enfer.

Vous devriez pouvoir mettre en place une table des requetes qui organise vos requetes et permettrait de les classer.
A vous lire, je me demande aussi si vous n'avez pas des requetes redondantes, avec des paramètres écrits en dur au lieu de les paramétrer.

Ex : liste des fournisseurs du 69, du 33. Vous devriez n'en faire que seule qui demande sur quelle région elle doit s'appliquer. 200 requêtes m'a l'air beaucoup pour simplement gérer des clients fournisseurs.

[marion.delaunay]

Super, merci marot_r, ça marche ! Parfait pour démarrer un lundi matin...

Au final, ça donne ça :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Private Sub Ouvrir_Click()
 
On Error GoTo Err_Ouvrir_Click
 
'ouvre le formulaire F_REQUETE et modifie la source des données du sous-formulaire F_REQUETE_SF_REQUETE
 
Dim stDocName As String
 
stDocName = Me.Liste_extractions
 
sourc = "Requête." & stDocName
 
DoCmd.OpenForm "F_REQUETE"
 
Forms![F_REQUETE]![F_REQUETE_SF_REQUETE].SourceObject = sourc
 
Form.Requery
Form.Refresh
 
Exit_Ouvrir_Click:
    Exit Sub
 
Err_Ouvrir_Click:
    MsgBox Err.Description
    Resume Exit_Ouvrir_Click
 
End Sub

Gfacro, je prévoyais déjà une zone de recherche pour limiter l'affichage de la liste déroulante des requêtes, mais tu as raison je vais essayer d'optimiser tout ça !

Merci à tous et bon lundi !