Discussion :

[s.jean]

Bonjour,

Ma base est utilisée sur plusieurs postes sans soucis, je viens de l'installer sur un nouveau poste et j'ai une erreur d'incompatibilité type 13 sur le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Active_Controle()
Dim oCtrl As Control
   For Each oCtrl In Me.Controls
        If (oCtrl.Name <> "Cocher35") And (oCtrl.ControlType <> acLabel) And (oCtrl.ControlType <> acRectangle) And (oCtrl.ControlType <> acTabCtl) And (oCtrl.Name <> "Commentaires") Then
          oCtrl.Enabled = Not (Cocher35 = -1)
    End If
   Next
End Sub

Est ce que vous avez une explication sur le fait que j'ai cette erreur sur un poste seulement et comment la corriger ?

merci
Sandrine

[agamitsudo]

Bonjour,

En général, ce problème est lié à la priorité des références utilisées.
Voir l'article msdn dédié:
http://support.microsoft.com/kb/181542/en-us/

Cordialement,
A.

[argyronet]

Bonjour,

Un contrôle possède comme propriété par défaut, la propriété Value.
Ton Cocher35 (que tu pourrais renommer, humm) est-il sollicité par sa valeur ou par son état.
S'il est NULL, e.g; pas sollicité, il est évident que la propriété Enabled ne peut recevoir un NULL comme valeur.

Il t'appartient, quelque soit le poste utilisé d'affecter False à cette case à cocher si elle est est à NULL (pseudo grisée).

Par ailleur, ton bloc de code serait plus lisible ainsi :

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
Private Sub Active_Controle()
    Dim oCtrl  As Control
 
    For Each oCtrl In Me.Controls
        Select Case oCtrl.Name
            Case "Cocher35", "Commentaires"
            Case Else
                Select Case oCtrl.ControlType
                    Case acLabel, acRectangle, acTabCtl
                    Case Else
                        oCtrl.Enabled = Not (Me!Cocher35 = -1)
                End Select
        End Select
    Next
End Sub

Argy

[Tofalu]

Je remplacerais juste :

Code :

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

oCtrl.Enabled = Not (Me!Cocher35 = -1)

Par

Code :

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

oCtrl.Enabled = Nz(Me!Cocher35,false)

Histoire de se prémunir des NULL une bonne fois pour toute sachant que cela ne remet pas en question les remarques d'Argy.