Discussion :

[liazidf]

[VB6]
Lors de compilation d'1 programme, j'ai un message d'erreur:
'Erreur d''execution 438:

Code:

Code :

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

1
2
3
Dim Ct as Control
 
Ct.value =''

si qqun a une idée Merci.

[DAUDET78]

et si tu mettais
Code:

Code :

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

Ct.value =0 'mettre une valeur numérique

La propriété Value est numérique

[liazidf]

et si tu mettais
Code:

Code :

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

Ct.value =0 'mettre une valeur numérique

La propriété Value est numérique

Merci de ta réponse, mais le message est: ' l''objet ne gère pas la propriété ou la méthode'
Là la procédure:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
'Vide les controles
Dim ctlT As Control
For Each ctlT In Me.Controls
If TypeOf ctlT Is TextBox Then
ctlT.Value = ""
If ctlT.Name <> "Fichier" Then ctlT.Enabled = False
End If
Next ctlT
ListeSecu = "Aucune"
End Sub

[DAUDET78]

Une TexteBox n'a pas de propriété Value ....

[ProgElecT]

Salut

Une TexteBox n'a pas de propriété Value ....

A moins de programmer en VBA quelque chose.
Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?

[DarkVader]

Une TexteBox n'a pas de propriété Value ....

Plus précisément un VB.TextBox n'a pas de propriété Value
contrairement au MSForms.TextBox qui a une propriété Value en plus de la propriété Text

[ThierryAIM]

Si c'est du VB6, tu remplaces ctlT.Value = "" par ctlT.Text= "" et ça devrait le faire