Création d'un bouton de commande et d'un Event Procedure par le code

Bonjour,

j'ai réalisé une procédure qui crée un certains nombres de boutons de commandes sur un état en fonction d'une période choisi.

Exemple :
la période est 2006 - 2008, la procédure va donc créer trois boutons de commandes : 2006, 2007 et 2008

Une partie du code se présente de la sorte

Code:

---

1 2 3 4 5

With ctrl .Name = "cmd" & Me.txt_annee1 + j .Caption = Me.txt_annee1 + j .OnClick = "[Event Procedure]" End With

---

Ce que je cherche à savoir c'est comment faire pour ajouter à ces boutons une procédure que j'aurais au préalable créer et qui s'adapterait en fonction du bouton. Voici l'exemple du code pour le bouton "2006" :

Code:

---

1 2 3 4 5 6

SQL = SQL & " AND Year(Jour)=2006" If mois <> 0 Then SQL = SQL & " AND Month(Jour)=" & mois & ";" End If Report_RPT_depense.RecordSource = SQL annee = 2006

---

Je souhaite donc que cela s'adapte en fonction de l'année.
Je suppose que je dois remplacer "[Event Procedure]" par quelque chose d'autre mais je ne vois pas quoi.

Merci d'avance pour vos réponses

Je remplacerai le "Event procedure" par le nom d'une fonction public avec un paramêtre pour éviter d'écrire autant de fonction que d'année.

Un truc du genre

Code:

---

1 2	=MaFonctionAppelee(2006)

---

Je viens de faire un test et cela marche.

Bonjour

Citation:

---

Envoyé par kebab666

Bonjour,

j'ai réalisé une procédure qui crée un certains nombres de boutons de commandes sur un état en fonction d'une période choisi.

---

Es-tu sûr que c'est sur un état, car cela ne servira à rien, un bouton de commande sur un état n'a aucun effet, un état n'a pas vocation a être interactif.

Starec

Merci pour vos réponses,

marot_r, je voulais savoir quel type de données doit renvoyer la fonction ?

Starec

Citation:

---

un bouton de commande sur un état n'a aucun effet

---

Et bien moi ca marche pourtant, j'ai par exemple rajouter des boutons de commande sur cet état correspondant aux mois du calendrier et quand je clique dessus j'obtiens bien les lignes correspondant au mois choisi.
Je travaille sur Access 2007, peut-être est-ce nouveau depuis cette version.

Merci encore

Citation:

---

Envoyé par kebab666

Je travaille sur Access 2007, peut-être est-ce nouveau depuis cette version.

---

C'est possible, je n'ai pas Access 2007 :piou:

Starec

Citation:

---

Envoyé par kebab666

Merci pour vos réponses,

marot_r, je voulais savoir quel type de données doit renvoyer la fonction ?

---

Il n'est pas nécessaire que ta fonction renvoie quoique ce soit mais cela doit être une fonction public tout de même, on ne peut pas utiliser une Sub après un =.

A+

Ca ne fonctionne toujours pas...

Voici mon code de création du bouton de commande

Code:

---

1 2 3 4 5 6

With ctrl .Name = "cmd" & Me.txt_annee1 + j .Caption = Me.txt_annee1 + j an = Me.txt_annee1 + j .OnClick = choix_annee(an) End With

---

et celui de la fonction choix_annee, censé être associé au nouveau bouton de commande crée

Code:

---

1 2 3 4 5 6 7

Public Function choix_annee(an As Integer)   SQL = SQL & " AND Year(Jour)=" & an If mois <> 0 Then SQL = SQL & " AND Month(Jour)=" & mois & ";" End If Report_RPT_depense.RecordSource = SQL

---

Seul le premier bouton de commande est crée et la fonction ne lui est pas associé.
Quelqu'un voit-il l'erreur ?

Essaye cela

Code:

---

1 2	.OnClick = "=choix_annee(" & an & ")"

---

On doit être que la bonne voie, tous les boutons sont crées, cependant lors du click sur le bouton 2006 par exemple j'ai ceci :

Citation:

---

Microsoft Office Access ne peut pas trouver l'objet <<choix_annee(2006)>>.
Si <<choix_annee(2006)>> est une nouvelle macro ou un nouveau groupe de macros, vérifiez qu'il (elle) est enregistré(e) et que vous avez correctement tapé son nom

---

Je fais plusieurs test pour résoudre le problème

Ok, le plus simple est que tu crées bouton qui fonctionne à la main.

Cela devrait être un bouton dont le OnClick vaut

Code:

---

=choix_annee(2006)

---

Un fois que tu as trouvé la bonne façon tu ne devrais plus qu'à avoir à écrire le code qui génère ton bouton avec le bon paramêtre.

A+

Euréka

voici le code

Code:

---

.OnClick = "=choix_annee(" & an & ")"

---

Bizarre on l'avait déjà utilisé avant mais j'avais du oublier le =

Merci pour votre aide :ccool: