Discussion :

[law56100]

Bonjour

J'ai un petit souci lorsque que j'utilise la fonction DeBloquerCombo cela fonctionne mais pour ma fonction BloquerSaisie cela ne fonctionne pas

Dans cete fonction je met un combobox en paramètre

Code :

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

1
2
3
4
Friend Sub DeBloquerCombo(p_NomCombo As ComboBox)
    p_NomCombo.Locked = False
    p_NomCombo.BackStyle = fmBackStyleOpaque
End Sub

Dans cete fonction je met une textbox en paramètre

Code :

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

1
2
3
4
Friend Sub BloquerSaisie(p_NomSaisie As TextBox)
    p_NomSaisie.Locked = True
    p_NomSaisie.BackStyle = fmBackStyleTransparent
End Sub

message d'erreur : '13' incompatibilité de type

cordialement law56100

[law56100]

cela fonctionne

Code :

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

1
2
3
4
Friend Sub BloquerSaisie(p_NomSaisie)
    p_NomSaisie.Locked = True
    p_NomSaisie.BackStyle = fmBackStyleTransparent
End Sub