Access = fonction IF/THEN suivant textbox
HELD_tokyo
Messages postés
51
Date d'inscription
Statut
Membre
Dernière intervention
-
blux Messages postés 27141 Date d'inscription Statut Modérateur Dernière intervention -
blux Messages postés 27141 Date d'inscription Statut Modérateur Dernière intervention -
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!
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!
A voir également:
- Access = fonction IF/THEN suivant textbox
- Fonction si et - Guide
- Fonction miroir - Guide
- Fonction moyenne excel - Guide
- Acer quick access - Forum Logiciels
- Miswiring check wiring then power on - Forum Autoradio
6 réponses
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
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 nothingpour la valeur null.
Salut,
je ne sais pas si "is null" est reconnu.
essaye quelque chose comme
if fx.text = "" then
.
.
else
.
.
end if
je ne sais pas si "is null" est reconnu.
essaye quelque chose comme
if fx.text = "" then
.
.
else
.
.
end if
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
En informatique, null n'est du tout équivalent à vide. Dansn un cas, la valeur null peut vouloir dire : n'a jamais été utilisé, alors que la valeur vide peut vouloir dire : ne contient rien, ce qui est qand même différent.
As-tu testé comme l'indiquait tobec en message 3, la syntaxe :
If ([Forms]![finder SL]![fx].text) = "" ou
If ([Forms]![finder SL]![fx].value) = ""
As-tu testé comme l'indiquait tobec en message 3, la syntaxe :
If ([Forms]![finder SL]![fx].text) = "" ou
If ([Forms]![finder SL]![fx].value) = ""