Bonjour a tous et a toutes,
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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 Private Sub Commande12_Click() On Error GoTo Err_Commande12_Click Dim stDocName As String Dim stLinkCriteria As String Dim Appli As Object Set Appli = CreateObject("Excel.Application") Dim ok As Boolean ok = False Dim Canal As String Appli.Workbooks.Open (CurrentProject.Path & "\Param_Veilleur.xls") If Me!Modifiable9 = Null Then MsgBox "Sélectionnez votre région" Else Canal = CurrentProject.Path & "\Sessions\" & Me!Modifiable9 & ".edp" ok = [RunMacro VerifCode(Me!Texte5, Me!Texte7, Canal)] If ok Then stDocName = "MENU" DoCmd.OpenForm stDocName, , , stLinkCriteria Else MsgBox "Mauvais Code et/ou Clef" End If End If Exit_Commande12_Click: Exit Sub Err_Commande12_Click: MsgBox Err.Description Resume Exit_Commande12_Click End Sub
Après avoir rempli mon formulaire quand je clic sur le bouton déclenchant le code ci dessus, il me sort une erreur.
Erreur : Impossible de Trouver le champ "|" auquel il est fait référence dans votre expression.
Merci d'avance
Partager