Bonjour,
Ce matin lorsque j'ai voulu ouvrir un formulaire en cliquant sur le bouton d'un frm de démarrage j'ai eu cette erreur et je ne vois pas d'où elle peut venir.
Sur ce forme j'ai plusieurs bouton avec le même code seul le nom frm à ouvrir change.
Sur la dizaine de boutons seul un fonctionne.
Le code de ceux qui fonctionnent pas :
Quand je fais ctrl+pause, c'est la ligne
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
17 Private Sub Commande17_Click() On Error GoTo Err_Commande17_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "_yyyy" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Commande17_Click: Exit Sub Err_Commande17_Click: MsgBox Err.Description Resume Exit_Commande17_Click End Sub
qui est surlignée
Code : Sélectionner tout - Visualiser dans une fenêtre à part Resume Exit_Commande17_Click
Et le code de celui qui fonctionne :
Tout cela fonctionné très bien avant avant.
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
17 Private Sub Commande18_Click() On Error GoTo Err_Commande18_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "_xxxx" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Commande18_Click: Exit Sub Err_Commande18_Click: MsgBox Err.Description Resume Exit_Commande18_Click End Sub
Heureusement j'avais une copie de la base contenant les frm et les requetes.
D'ailleurs à partir de celle ci ça fonctionne bien.
Si vous pouviez m'aider à comprendre.
merci d'avance
Partager