Discussion :

[joe370]

j'essai d'utiliser la fonction Len() pour verifier si une zone de texte a été remplie mais je ne trouve pas la bonne syntaxe j'ai essayer ceci mais sans succès :

Code :

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

1
2
 
Len([Secteur])

[Secteur] etant le nom de ma zone de texte

[lola06]

Salut,
Essaye de regarder si ta zone de texte est vide, sans regarder la longueur :

Code :

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

1
2
secteur = ""
secteur.value = 0

Enfin un truc du style.
A plus

P.S: ca serait plus agréable si tu disais bonjour ou merci (que tu ne balance pas ton problème comme ça)

[lola06]

sa ne marche pas
non lorsque je met

Code :

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

1
2
3
4
 
If [Secteur] = "" Then 
Cpt = 1
End If

cpt reste a zero alors que mon controle secteur est vide

Essaye plutôt :

Code :

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

1
2
3
If Me.Secteur = "" Then
Cpt = 1
End If

Ou

Code :

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

1
2
3
If Me.Secteur.Value = "" Then
Cpt = 1
End If

Tu veux que ton Cpt soit égal à 1 ou alors qu'il s'incrémente de 1 à chaque zone de texte vide ?

[joe370]

le Me represente le nom de mon formulaire c'est sa??

[lola06]

Le ME ne correspond pas au nom du formulaire, en fait c'est une fonction qui te permet de dire que le nom du contrôle (ici Secteur) est dans le formulaire, mais tu ne dois pas le changer.
Est ce que tu as bien mis ton code dans la partie spéciale pour le formulaire? Il ne faut pas le mettre dans un module normal.

[Larson2007]

hello !

et avec :

Code :

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

1
2
3
if IsNull(Me.Secteur) then
  Cpt = 1
End If

ca ne le fait pas ?

[Invité]

Bonjour,

Personnellement j'utilise

Code :

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

1
2
3
if IsNull(Me.Secteur) or me.Secteur.value = "" then
  Cpt = 1
End If

Tu peux aussi avec

Code :

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

1
2
3
if Len(Me.Secteur) = 0 then
  Cpt = 1
End If

Fais le test.

Starec