Discussion :

[harjer]

bonjour,

voici mon code:

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
40
41
42
43
44
45
46
Private Sub toolbar1_ButtonMenuClick(ByVal Button As Object)
On Error GoTo HandleErr
If Me!status <> "VID" Then ConfigIhm "savecolonne"
 
Select Case Button.Key
    Case "IMP1"
    API_Savesetting "HORIO", "IHM", "ETATANOMLISTE", "N"
    Commande107_Click
    Case "IMP2"
    API_Savesetting "HORIO", "IHM", "ETATANOMLISTE", "O"
    DoCmd.OpenReport "AnomaliesListe2", acViewPreview
    Case "IMP3"
    API_Savesetting "HORIO", "IHM", "ETATANOMLISTE", "O"
    DoCmd.OpenReport "AnomaliesListe3", acViewPreview
       Case "VALIDANOM"
        ANOM_ValiderAnomalies
    Case "APPLIABS"
        ANOM_MajTableTempo
        ModeFermeturePlanAuto = Null
        DoCmd.OpenForm "planningauto", , , , , acDialog, "anomalie#abs"
        If Not IsNull(ModeFermeturePlanAuto) Then
                      DoEvents
            ANOM_RecalculGeneral
            End If
 
    Case "APPLIMODJ"
        ANOM_MajTableTempo
        ModeFermeturePlanAuto = Null
        DoCmd.OpenForm "planningauto", , , , , acDialog, "anomalie#modj"
        If Not IsNull(ModeFermeturePlanAuto) Then
                     DoEvents
            ANOM_RecalculGeneral
            End If
 
 
    End Select
 
ExitHere:
    Exit Sub
 
HandleErr:
    Select Case Err.number
        Case Else
            MsgBox "Erreur " & Err.number & ": " & Err.Description, vbCritical, "Form_Anomaliesliste.toolbar1_ButtonMenuClick"      
End Select
End Sub

j'ai le numero d'erreur 2467 expression entree fait reference a un objet ferme ou supprime
pouvez vous m'aider a resoudre cela?

[Dolphy35]

Salut,

Où est l'erreur ?
Où s'arrete le débogueur ?

Dolphy

[harjer]

justement il ne passe pas par la fonction c'est pour ca que je ne comprend pas alors Form_Anomaliesliste.toolbar1_ButtonMenuClick

[Dolphy35]

Salut,

où s'arrete le débogueur ?

à l'appel de ton Sub ?

en lève la gestion d'erreur cela t'aiguillera sur la ligne incriminée

Dolphy

[harjer]

oui mais il ne passe pas par cette fonction alors que j'ai une erreur exactement sur cette fonction

merci

[Dolphy35]

oui mais il ne passe pas par cette fonction alors que j'ai une erreur exactement sur cette fonction

merci

comprends pas

ton problème vient de l'appel de ton sub alors.

Button correspond à quoi éxactement ?

Dolphy

[harjer]

button corespond a un bouton quand on clic sur ce bouton

[Dolphy35]

button corespond a un bouton quand on clic sur ce bouton

je verrais plus ceci alors :

Code :

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

ByVal Button As CommandButton

et ton Select Case

Code :

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

Button.Key

cela correpond à quoi exactement ? si c'est le nom du bouton je metterais ceci :

Code :

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

Button.Name

Dolphy