Discussion :

[adelsunwind]

Bonjour,
j aimerai faire un test sur l'ensemble des controles d'un formulaire sans les parcourir l'un après l'autres mais en utilisant un FOR EACH et là j ai un souci car apres ce code :

Code :

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

1
2
3
4
5
6
 
For Each oControl In Me.Controls
  If oControl = "µA" Then
  oControl = " non mesuré"
  End If
  Next oControl

j'ai le message suivant :
" Erreur d'execution 438
Propriété ou méthode non gérée par cet objet"

Merci de m'éclairer

[FreeAccess]

Re..

Je pense que tu fais un contrôle par rapport a un champ texte (TextBox)..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande14_Click()
Dim oControl As Control
For Each oControl In Me.Controls
'Si le contrôle est de type TextBox....
If oControl.ControlType = acTextBox Then
    If oControl.Value = "µA" Then
        oControl = " non mesuré"
    End If
End If
Next
End Sub

...

[adelsunwind]

Excellent ca marche.
J ai bien oublié qu il fallait testé le controltype.
Sinon sais tu quel test je peux faire pour utiliser la valeur numérique d une zone de texte quand j'ai l unité avec . Exemple : 1000µA
Merci 1000 fois FreeAccess