opérateur == en VBA?

bonjour,

désolé de cette question mais le == n'existe pas en VBA?

ou s'ecrit il différement?

je cherche à voir si un champs est vide donc je voudrais faire

Code:

---

if form.champs.value == "" then

---

au pire je peux faire

Code:

---

1 2 3

if form.champs.value <> "" then RIEN Else mon instruction....

---

mais c'est moche hein? :mouarf:

merci

Bonjour,
Le comparateur d'égalité en vba, c'est = pas plus !
Surprenant non ? ;)

euh,

il sait donc faire la distinction d'un = d'affectation et un = d'egalité?? 8O

il prend un '=' pour un '==' uniquement dans les structure if, while.... je suppose?

EDIT : j'ai un ptit pb, surement a cause du '=' :evilred:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Do While i <= NombrePartie And Rempli <> False 'nombre de lignes de la partie i If Forms(NomForm).Controls(3 + i * 5).Value = "" Then Rempli = False   Debug.Print i & " : " & Forms(NomForm).Controls(3 + i * 5).Value   'nombre de choix de la partie i If Forms(NomForm).Controls(4 + i * 5).Value = "" Then Rempli = False 'nom section la partie i If Forms(NomForm).Controls(5 + i * 5).Value = "" Then Rempli = False 'nom sous section la partie i If Forms(NomForm).Controls(6 + i * 5).Value = "" Then Rempli = False i = i + 1 Loop

---

j'ai remplis que mon premier control par un '1'

j'ai en debug :

Citation:

---

1 : 1
2 :
3 :
4 :
5 :

---

ensuite je fais un

Code:

---

1 2 3 4

If Rempli = False Then MsgBox "tous les champs ne sont pas remplis" Exit Sub End If

---

et pourtant je rentre pas dans le 'if' 8O

d'où qu'elle est l'erreur? :aie:

Citation:

---

Envoyé par Elstak

il sait donc faire la distinction d'un = d'affectation et un = d'egalité?? 8O

---

Voilà. Pas de "==" en vba, juste le "=", que ce soit pour les affectations ou les égalités.

Citation:

---

Envoyé par Elstak

ensuite je fais un

Code:

---

1 2 3 4

If Rempli = False Then MsgBox "tous les champs ne sont pas remplis" Exit Sub End If

---

et pourtant je rentre pas dans le 'if' 8O

d'où qu'elle est l'erreur? :aie:

---

Normale qu'il ne passe pas dans le if si Rempli reste à True, c'est d'ailleurs pour ça qu'il passe 5 fois dans ta boucle.
S'il n'affiche rien à partir de "2:", c'est que ton contrôle Forms(NomForm).Controls(3 + i * 5).Value est vide probablement.

Fais le tour en mode débug tu verras ce qui se passe exactement.

En espérant t'aider.

euh,

j'aurais dit pas normal moi :roll:

Code:

---

If Forms(NomForm).Controls(3 + i * 5).Value = "" Then Rempli = False

---

Citation:

---

c'est que ton contrôle Forms(NomForm).Controls(3 + i * 5).Value est vide probablement.

---

oui ils le sont tous sauf le premier !
donc comme value = "" je devrais avoir rempli = false non?? :roll:

Citation:

---

Envoyé par Elstak

j'aurais dit pas normal moi :roll:

---

Après réflexion ... pareil ! :p J'ai un peu trop lu entre les lignes de code.

Pour contrôler si c'est vide fais plutôt :

Code:

---

Nz(Forms(NomForm).Controls(3 + i * 5))

---

Ca vérifiera à la fois s'il est vide OU Null.

Bienvenu dans le monde cruel du VBA.

bon...

là on est d'accord :D

pourtant j'avais changé mon = "" par un = Null mais ca allait pas non plus...

enfin bon le Nz a résolu le problème :P

merci ;)

Citation:

---

Envoyé par Elstak

pourtant j'avais changé mon = "" par un = Null mais ca allait pas non plus...

---

Car ce n'est pas comme ça qu'on vérifie si un contrôle a la valeur null malheureux !!!!!! :p

La fonction isNull() est là pour ça ;)

Je te conseillerais de parcourir la FAQ Access qui est assez complète. Notament pour la manipulation des données, et la gestion dédiée au formulaires.

Bon courage à toi en tout cas.

Citation:

---

Car ce n'est pas comme ça qu'on vérifie si un contrôle a la valeur null malheureux !!!!!! :p

La fonction isNull() est là pour ça :)

---

:oops:

en plus je le savais :aie: