[AC-2007] plusieurs bouton, 1 code ..est-ce possible? [Résolu]

[robyseb]

Bonjour ! J'ai une question peut-être banale pour certain mais je recherche un exemple de code que je pourrait écrire dans un module afin de l'utiliser ensuite pour plusieurs bouton dans mes formes.

j'ai cherché et re-cherché ici sur google depuis maintenant 3 jours sans succès lolll Donc voici mon idée:

j'ai 3 formulaires menu général avec chacun au moin 20 boutons donc imaginé la longueur du code le pire se sont pratiquement tous le meme avec une variable. voici le code :

Code :

1
2
3
4
5
6
7
8
Private Sub optionreport10_Click()
Dim strNomForm As String
 
strNomForm = Nz(DLookup("Argument", "Switchboarditemsreport", "itemnumber=10"), "")
 If strNomForm = "" Then
        MsgBox "Il n'y a aucune Option Disponible!", vbInformation, "Option non Valide!"
    Exit Sub
End If

j'aimerai créer un module ou je pourrait l'appeller de mon formulaire en spécifiant la variable "itemnumber" ce qui organiserait mes codes. la gestion d'erreur par le fait meme serait plus facile.

[helas]

Bonjour,
Cela se traduit par

Code :

1
2
3
4
 
Private Sub optionreport10_Click()
 Call Action(10)
End If

et dans le module

Code :

1
2
3
4
5
6
7
8
9
 
Sub Action(byval itemnumber As long)
 Dim strNomForm As String
 
strNomForm = Nz(DLookup("Argument", "Switchboarditemsreport", "itemnumber=" & itemnumber),"")
 If strNomForm = "" Then
        MsgBox "Il n'y a aucune Option Disponible!", vbInformation, "Option non Valide!"
    Exit Sub
End Sub

si les noms de controles sont sous le même format, on peut ecrire

Code :

1
2
3
4
 
Private Sub optionreport10_Click()
 Call Action(Mid$(ActiveControl.Name, 13))
End Sub

ce qui permet de copier la ligne sans modification pour chaque bouton

[robyseb]

Merci pour la réponse très apprécier j'ai finalement compris le bout de code avec le MID.

Une question ? j'ai créer mes groupes de boutons et merci encore il reste un problème.

j'ai créer des requêtes paramétrable si je clique annullé au textbox de la requête j'ai un message d'erreur '2001' opération annulé comment empêcher cette erreur ?

[robyseb]

Problème réglé j'ai enrobé l'erreur

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub boutonquery(ByVal itemnumber As Long)
Dim strnomForm As String
On Error GoTo err_boutonquery
 
strnomForm = Nz(DLookup("Argument", "Switchboarditemsquery", "itemnumber=" & itemnumber), "")
 If strnomForm = "" Then
        MsgBox "Il n'y a aucune Option Disponible!", vbInformation, "Option non Valide!"
    Exit Sub
 
    End If
 
  DoCmd.OpenQuery [strnomForm], acViewNormal
 
exit_boutonquery:
Exit Sub
err_boutonquery:
MsgBox Err.Description
Resume exit_boutonquery
 
End Sub

Merci de votre aide à date un des meilleurs forum