Access = fonction IF/THEN suivant textbox Fermé

Question

Bonjour a tous,

J'ai une petite question de code.
J'ai un formulaire de saisie qui contient un champ obligatoire = Fx
En bas de ce formulaire, j'ai un bouton sur lequel je souhaiterais affecter la fonction suivante :

Si Fx n'est pas rempli, alors ouvrir le form ERRORFX qui est un message d'erreur
Sinon
Ouvrir la requete Advanced Search

J'ai essaye ca mais ca ne marche pas...

Private Sub Search_Click()
If Forms![finder SL]![fx] = "Null" Then
DoCmd.OpenForm (Forms![errorfx]),
Else
DoCmd.OpenQuery(Queries![AdvancedSearch]), acViewNormal, acReadOnly)
End If

End Sub

Merci pour votre aide!

tarek_dotzero · Answer

Salut,

Je ne suis pas vraiment un programmeur VBA, mais je vois que vous avez comparez avec "Null": donc la valeur de la chaine de caractère "Null", je pense que vous devez comparez avec "" (chaine vide) ou utiliser is nothing pour la valeur null.

blux · Answer

Salut,

le test null se fait avec la fonction IsNull...

IF IsNull(pouet.value) THEN
...

tobec · Answer

Salut,

je ne sais pas si "is null" est reconnu.

essaye quelque chose comme

if fx.text = ""  then
.
.
else
.
.
end if

blux · Answer

IsNull (en un seul mot) est une des nombreuses fonctions d'access...

HELD_tokyo · Answer

marche pas avec la syntaxe Is null...
je dois etre null aussi :)

Private Sub Search_Click()
If IsNull([Forms]![finder SL]![fx]) Then
DoCmd.OpenForm ([Forms]![errorfx])
Else
DoCmd.OpenQuery ([Queries]![AdvancedSearch]), acViewNormal, acReadOnly
End If

End Sub

Ou est l'erreur ?

Merci beaucoup

Held

HELD_tokyo · Answer

Bonjour Blux

Dabord merci pour ton suivi.

Je viens de tester les deux fonctions et ca ne marche toujours pas.

En fait pour faire simple, j'ai un petit formulaire avec 3 criteres. En bas, un bouton pour lancer la requete associee au 3 criteres en question.

2 criteres sont des menus liste et fonctionnent tres bien. le troisieme est un champ de saisie, et ce champ est obligatoire.
je souhaite simplement rendre cette cellule obligatoire. Or dans les proprietes de ma cellule, je ne trouve pas l'option qui permet de rendre la saisie obligatoire, elle a disparue semble t-il.

Comment faire ? J'ai creer un petit message d'erreur, et jessaye d'appliquer cette formule : 
sur click, si le champ de saisie est vide, alors lance le message derreur qui est un petit formulaire.
sinon, lancer la requete.

Merci pour tes lumieres!

Helder

Access = fonction IF/THEN suivant textbox

6 réponses

Discussions similaires