[VB] problème de condition dans un if

Résolu
chti_moon Messages postés 63 Date d'inscription   Statut Membre Dernière intervention   -  
vince190 Messages postés 687 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Une petite question à propos d'un if en VB.

Alors voilà le contaxte, das un formulaire, l'utilisateur aura à entrer différentes choses dont un numéro de plan et/ou une désignation.
Voilà le code que j'ai écrit lors du clic sur le bouton de validation :

If Texte5 = "" And Texte7 = "" Then
MsgBox ("Vous devez entrer un numéro de plan et/ou une ddésignation")
Else
DoCmd.GoToRecord, ,acNewRec
End If

Mais même si mais 2 champs Texte sont vide, je peux valider mon enregistrement.
Pourquoi ?

Merci
A voir également:

6 réponses

chti_moon Messages postés 63 Date d'inscription   Statut Membre Dernière intervention   4
 
J'ai donc pris le problème dans l'autre sens : voici la solution :

If Texte5 <> Null And Texte7 <> Null Then
DoCmd.GoToRecord, ,acNewRec
Else
MsgBox ("Vous devez entrer un numéro de plan et/ou une ddésignation")
End If

Voilà !
Merci
2
vince190 Messages postés 687 Date d'inscription   Statut Membre Dernière intervention   78
 
A la place de mettre "" à chaque fois tu devrais faire un truc du genre:
if textbox5 = NULL And Textbox7 = NULL then
....


Le reste à l'air correct.
0
chti_moon Messages postés 63 Date d'inscription   Statut Membre Dernière intervention   4
 
Ca ne marche pas non plus avec "= Null".
J'ai aussi essayé :
if Not Texte5 And Not Texte7 Then
...

Dans ce cas, ça fonctionne mais uniquement si je rentre des chiffres, sinon j'ai un incompatibilité de types.
Hors moi j'ai besoin des lettres aussi
0
vince190 Messages postés 687 Date d'inscription   Statut Membre Dernière intervention   78
 
Sinon tu peux prendre le pb à l'envers. Je veux dire tu peux mettre dans le sens:
if textbox5 NOT NULL then (ce que tu veux)

Je sais pas si tu vois...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
MrSlave Messages postés 2587 Date d'inscription   Statut Membre Dernière intervention   147
 
Essaye ça :

If Text5 = "" Then
       sup = MsgBox("Veuillez remplir le champ 5 :", vbCritical + vbOKOnly + 0, "Champ 5")
    Exit Sub
End If
0
vince190 Messages postés 687 Date d'inscription   Statut Membre Dernière intervention   78
 
Niquel donc un nouveau problème résolu à plusieurs! C'est beau les forums!
0