Discussion :

[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.

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 :

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

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 :

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

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

[marot_r]

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 :

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

1
2
 
=MaFonctionAppelee(2006)

Je viens de faire un test et cela marche.

[Invité]

Bonjour

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

[kebab666]

Merci pour vos réponses,

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

Starec

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

[Invité]

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

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

Starec

[marot_r]

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+

[kebab666]

Ca ne fonctionne toujours pas...

Voici mon code de création du bouton de commande

Code :

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

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 :

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

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 ?

[marot_r]

Essaye cela

Code :

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

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

[kebab666]

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 :

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

[marot_r]

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

Cela devrait être un bouton dont le OnClick vaut

Code :

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

=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+

[kebab666]

Euréka

voici le code

Code :

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

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

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

Merci pour votre aide