Discussion :

[redstoff]

Bonjour,

J'aimerai réaliser une commande générale afin de l'affecter sur plusieurs boutons.

Le soucis est que je ne connais pas le moyen de le faire.
Car si j'utilise l'onglet evenement et je prend sur click il m'ouvre Private sub.

J'imagine que je pourrais utiliser le Private sub pour le renvoyer sur ma commande mais ce n'est pas ce que je recherche ^^

Sur Excel c'est facile avec la commande d'attribution de macro.
mais je ne sais pas le faire sur access

Merci pour votre aide.

[titi95]

Bonjour

Si tes boutons sont sur le même formulaire, tu peux créer un Public Sub Toto() sous ce formulaire, que tu appelles dans la procédure événementielle (Private Sub) par un Call Toto.

Si tes boutons sont dans des formulaires différents, ou si tu as besoin d'une Function (avec des arguments), il faut créer dans un module.

titi95

[redstoff]

Bonjour,

Ce que je cherche a faire ressemble a la solution de créer une fonction.

Comment fait on pour affecter un bouton d'un formulaire à une commande d'un module?

[titi95]

1) Crée la Function dans un module

Code :

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

1
2
3
4
Function Toto(Argument1 As xxx, Argument2 As xxx) As xxx
'xxx = Type à déclarer (String, Long...)
...
End Function

2) appelle la Function à partir de l'événement Sur clic du bouton

Code :

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

1
2
3
Private Sub NomBouton_Click()
   Call Toto(argument1, argument2)
End Sub

titi95

[redstoff]

je comprend ton idée mais c'est exactement ce que je voulais éviter.

Ma commande est déjà généralisée mais je ne sais pas affecter les boutons à celle la sans faire appel a la fonction Call

Voici ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub AjoutUn()
If Nz(Me.bpCorriger, 0) = 0 Then
    Me.ActiveControl = Me.ActiveControl + 1
Else
    If Me.ActiveControl > 0 Then
        Me.ActiveControl = Me.ActiveControl - 1
    End If
End If
End Sub

et j'aimerais que pour chaque bouton y affecter ca.

[titi95]

Ce que je cherche a faire ressemble a la solution de créer une fonction.

Donc ce n'est plus une Function ?

sans faire appel a la fonction Call

Il faut bien que tu appelles ton Sub si tu veux qu'il s'exécute !
Mais si vraiment tu ne veux pas de Call tu peux l'enlever, puisque cette instruction est en fait facultative... Mais il te faudra tout de même appeler par

Code :

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

1
2
3
Private Sub NomBouton_Click()
   AjoutUn
End Sub

Ou alors je n'ai pas compris qqchose que tu n'as pas assez précisé...

titi95