Discussion :

[Baba75AB]

Bonjour,
j'ai un form avec plusieurs boutons, des le click il me fait apparaitre un controle zone liste déroulante basé sur une requête.
Mais comme j'utilise le même contrôle pour les autres boutons, j'ai déclaré pour chaque bouton le filtre à appliquer pour la requête de la zone liste.

Soit le code suivant :

Code :

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

1
2
3
Dim Filtre As String
Filtre = "CAT*"
Me.ChoixDossier.Visible = True

Ensuite dans la propriété de mon contrôle zone liste :

Code :

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

SELECT T_dossier.CodeDossier, T_dossier.CodeClient, T_dossier.PF FROM T_dossier WHERE (((T_dossier.CodeDossier)=Filtre));

Mais bien sûr ca ne marche pas,

[Baba75AB]

J'ai encore planché toute la journée sur un truc tout à fait élémentaire, mais devant le peux d'enjouements que suscite ce post, j'ai renoncé à ouvrir mon formulaire avec une requête ayant comme paramètre une variable déclaré dans une de mes procédures VBA du formulaire appelant...

J'ai essayé une autre piste :
j'ai 4 boutons et des le click sur un de ses boutons, visualisation de la liste des dossiers à traiter.
Soit pour le 1er bouton visualitation des fichiers "CAT*" ainsi dans la liste déroulante je filtre la requête sur touts les dossiers commençant par "CAT...." Après avoir déroulé la liste, je sélectionne une des lignes pour ouvrir un formulaire qui me visualise les informations nécessaires pour la visualisations des données de ce dossier.

Code :

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

1
2
3
4
5
6
7
Private Sub Commande94_Click()
'Click sur bouton CAT
'Déclaration variable pour le filtre de la zone de liste ChoixDossier
Dim ChoixBt As String
ChoixBt = "CAT"
Me.ChoixDossier.Visible = True
End Sub

Ensuite le code sur la liste déroulante:

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
Private Sub ChoixDossier_Click()
If ChoixBt = "CAT" Then
    Dim stLinkCriteria As String
        stLinkCriteria = "[CodeDossier]=" & "'" & Me![ChoixDossier] & "'"
 
        StDocName = "F_Devis_Contrat"
        DoCmd.OpenForm StDocName, , , stLinkCriteria
End If
If ChoixBt = "FH" Then
    Dim stLinkCriteria As String
        stLinkCriteria = "[CodeDossier]=" & "'" & Me![ChoixDossier] & "'"
 
        StDocName = "F_Devis_Contrat_Formule_Heure"
        DoCmd.OpenForm StDocName, , , stLinkCriteria
End If
End Sub

Mais hélas la variable que je déclare sur évenement click sur bouton, n'est pas prise en compte
Je tourne encore en rond
Merci pour votre aide !

[Baba75AB]

Je viens encore de trouver la solution comme un grand , j'ai pas trop de mérite c'était niveau CP de l'étudiant access !!!
Il faut juste déclarer la variable au sein d'un module

Code :

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

Public ChoixBt as string

Et de pas la re-déclarer à nouveau au sein d'une autre procédure...