Discussion :

[maxime350]

Bonsoir,

Je souhaite filtrer l'affichage d'un formulaire en fonction de 2 clics sur bouton.
L'utilisateur, s'il souhaite chercher une offre, dans un premier temps doit sélectionner le lieu et dans un second temps le statut de l'offre.

1er clic : 4 choix / 4 boutons : Tous, Rennes, Lorient ou Brest.

S'il clique sur Rennes, je souhaite que cette valeur soit enregistrée.

Code :

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

1
2
3
4
5
6
7
Private Sub Commande236_Click()
 
Dim site As String
 
site = "rennes"
 
End Sub

De cette manière, il ne sauvegarde pas ma valeur "rennes" :/

Sur le second clic, c'est le même principe, 4 choix / 4 boutons :

En cours, gagnée, perdue ou sans suite.

Au final, en fonction du site et du statut, le formulaire devra afficher le résultat souhaité.

(ex: offres gagnées sur Rennes)

Merci de votre aide,
et bonne nuit à ceux qui vont se coucher !

[Invité]

Bonjour
A confirmer , mais je pense que tu as un problème de déclaration de ta variable

Telle qu'elle est là, elles est déclarée dans ta procédure "Click" et se termine donc aussitôt.
IL serait peut être judicieux de la déclarer à l'extérieur de tes procédures.

Voit le sujet "portée des variables".

[maxime350]

Bonsoir Gayot,

J'ai cherché le sujet "porté des variables" mais je n'ai pas trouvé.

Ma variable se déclare bien.
J'ai fait un petit test avec une zone de texte qui prend la valeur de ma variable.
Il prend bien la valeur en fonction de mon clique.

Dans ce cas le problème viendrais plus dans ma requête qui ouvre mon formulaire:

Code :

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

1
2
3
4
Dim sql As String
sql = "statut = 'en cours'"
DoCmd.OpenForm "suividesoffres", , , sql
Forms!suividesoffres![siteprincipal] = site

site étant ma variable.

Cdmlt

[Invité]

Bonjour
Oui mais tu seras obligé de déclarer ta variable "site" sur chaque bouton.
et si tu veux garder le résultat...
D'autre part tu ne peux ramener dans une requête que le contenu d'une variable issue d'une fonction.

Sinon en utilisant les fonctions filtres tu peux t'inspirer de ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim sql As String
sql = "statut = 'en cours'"
DoCmd.OpenForm "suividesoffres"

With Form_Suividesoffres 
.Filter = ""
.Filter = "TonchampVille Like " & site
.filter = Filter "And TonchampStatut Like " & sql
.FilterOn = True
End with

A adapter bien sûr

[maxime350]

Bonjour,

J'avais laissé un peu de côté ce problème afin d'avancer sur d'autres points de ce projet.

J'ai suivi les conseils de GAYOT et me retrouver avec l'erreur d'exécution 2248: impossible d'attribuer une valeur à cet objet.

Dans un 1er temps j'ai fait une variable public:

Code :

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

1
2
3
Option Compare Database
 
Public site As String

Dans un second temps, j'attribue une valeur à cette variable:

Code :

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

site = "rennes"

Enfin, sur le clique de mon dernier bouton j'utilise le filtre que m'a proposé GAYOT:

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 Commande240_Click()
 
Dim sql As String
Dim site As String
 
sql = "statut = 'gagnée'"
DoCmd.OpenForm "suividesoffres"
 
With Form_suividesoffres
.Filter = ""
.Filter = "siteprincipal Like" & site
.Filter = Filter And statut Like " & sql"
.FilterOn = True
 
End With
End Sub

L'erreur arrive au niveau de l'attribution de la variable site.

Merci de votre aide,

Maxime

[Invité]

Bonjour
La variable site est donc déclarée 2 fois?

[maxime350]

Bonjour,

Effectivement je l'avais déclaré 2 fois.
Voici mon code modifié (en enlevant ma déclaration inutile)

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
Private Sub Commande240_Click()
 
Dim sql As String
 
sql = "statut = 'gagnée'"
DoCmd.OpenForm "suividesoffres"
 
With Form_suividesoffres
.Filter = ""
.Filter = "siteprincipal Like" & site
.Filter = Filter And statut Like " & sql"
.FilterOn = True
 
End With
End Sub

Cependant j'ai la même erreur 2248: impossible d'attribuer une valeur à cet objet.

Si je ne me trompe pas, il n'arrive pas à définir la variable site dans mon formulaire.

Je ne vois pas trop comment faire là !

[Invité]

Pour trouver l'erreur
Re-intégrer la variable "site" dans la procédure.
Lui attribuer une valeur.
Ensuite avant la ligne .FilterOn = True

Code :

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

MsgBox Form_SuiviDesOffres.Filter

Cela va permettre de voir si la ligne de filtre est cohérente.
Vous verrez surement ainsi que vous avez deux fois Statut.