J'ai un souci tout con sur une boucle if. Je veux tester=20
mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf (Me.Entite Like "") Then
MsgBox "N'oubliez pas de renseigner une entit=E9"
ElseIf (Me.Rue =3D "") Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf ("'" & Me.Tel1 & "'" =3D "") Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
Dim strSQL As String
strSQL =3D "Insert Into Contacts(...) Values(...)
CurrentDb.Execute strSQL
MsgBox "Nouveau contact enregistr=E9"
End If
Mais =E0 chaque fois, il passe =E0 l'INSERT.
Sinon il y a la possibilt=E9 du switch case mais j'aimerais=20
bien savoir pourquoi ma boucle if ne marche pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
essaie plutôt ceci: If IsNull(Me.Surname ) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf Me.Entite = "" Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf Me.Rue = "" Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf Me.Tel1 = "" Then MsgBox "N'oubliez pas de renseigner un telephone" Else -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" a écrit dans le message de news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.
Merci d'avance
Bonjour.
essaie plutôt ceci:
If IsNull(Me.Surname ) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf Me.Entite = "" Then
MsgBox "N'oubliez pas de renseigner une entité"
ElseIf Me.Rue = "" Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf Me.Tel1 = "" Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" <xroux@bouyguestelecom.ornitorinc.fr> a écrit dans le message de
news:1bee201c42167$b2a51d50$a401280a@phx.gbl...
Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester
mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf (Me.Entite Like "") Then
MsgBox "N'oubliez pas de renseigner une entité"
ElseIf (Me.Rue = "") Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf ("'" & Me.Tel1 & "'" = "") Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
Dim strSQL As String
strSQL = "Insert Into Contacts(...) Values(...)
CurrentDb.Execute strSQL
MsgBox "Nouveau contact enregistré"
End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais
bien savoir pourquoi ma boucle if ne marche pas.
essaie plutôt ceci: If IsNull(Me.Surname ) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf Me.Entite = "" Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf Me.Rue = "" Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf Me.Tel1 = "" Then MsgBox "N'oubliez pas de renseigner un telephone" Else -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" a écrit dans le message de news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.
Merci d'avance
bipbipcoyote
Personnellement je ne placerais pas de ME. (puisque de toute façon, c'est le formulaire en cours d'utilisation) et je placerais le nom du champ entre crochets si ta procédure passe au else , c'est qu'elle n'a pas rencontré une condition énoncée avant lui et je pense qu'un like Null , ça ne marche pas non plus , un IS null , me semble plus correct
"xavier" a écrit dans le message de news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.
Merci d'avance
Personnellement je ne placerais pas de ME. (puisque de toute façon, c'est le
formulaire en cours d'utilisation) et je placerais le nom du champ entre
crochets
si ta procédure passe au else , c'est qu'elle n'a pas rencontré une
condition énoncée avant lui et je pense qu'un like Null , ça ne marche pas
non plus , un IS null , me semble plus correct
"xavier" <xroux@bouyguestelecom.ornitorinc.fr> a écrit dans le message de
news:1bee201c42167$b2a51d50$a401280a@phx.gbl...
Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester
mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf (Me.Entite Like "") Then
MsgBox "N'oubliez pas de renseigner une entité"
ElseIf (Me.Rue = "") Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf ("'" & Me.Tel1 & "'" = "") Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
Dim strSQL As String
strSQL = "Insert Into Contacts(...) Values(...)
CurrentDb.Execute strSQL
MsgBox "Nouveau contact enregistré"
End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais
bien savoir pourquoi ma boucle if ne marche pas.
Personnellement je ne placerais pas de ME. (puisque de toute façon, c'est le formulaire en cours d'utilisation) et je placerais le nom du champ entre crochets si ta procédure passe au else , c'est qu'elle n'a pas rencontré une condition énoncée avant lui et je pense qu'un like Null , ça ne marche pas non plus , un IS null , me semble plus correct
"xavier" a écrit dans le message de news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.
Merci d'avance
xavier
Ca roule, merci Raymond
-----Message d'origine----- Bonjour.
essaie plutôt ceci: If IsNull(Me.Surname ) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf Me.Entite = "" Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf Me.Rue = "" Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf Me.Tel1 = "" Then MsgBox "N'oubliez pas de renseigner un telephone" Else -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" a écrit dans le message de
news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.
Merci d'avance
.
Ca roule, merci Raymond
-----Message d'origine-----
Bonjour.
essaie plutôt ceci:
If IsNull(Me.Surname ) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf Me.Entite = "" Then
MsgBox "N'oubliez pas de renseigner une entité"
ElseIf Me.Rue = "" Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf Me.Tel1 = "" Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" <xroux@bouyguestelecom.ornitorinc.fr> a écrit
dans le message de
J'ai un souci tout con sur une boucle if. Je veux tester
mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then
MsgBox "N'oubliez pas de renseigner un nom"
ElseIf (Me.Entite Like "") Then
MsgBox "N'oubliez pas de renseigner une entité"
ElseIf (Me.Rue = "") Then
MsgBox "N'oubliez pas de renseigner une adresse"
ElseIf ("'" & Me.Tel1 & "'" = "") Then
MsgBox "N'oubliez pas de renseigner un telephone"
Else
Dim strSQL As String
strSQL = "Insert Into Contacts(...) Values(...)
CurrentDb.Execute strSQL
MsgBox "Nouveau contact enregistré"
End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais
bien savoir pourquoi ma boucle if ne marche pas.
essaie plutôt ceci: If IsNull(Me.Surname ) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf Me.Entite = "" Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf Me.Rue = "" Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf Me.Tel1 = "" Then MsgBox "N'oubliez pas de renseigner un telephone" Else -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"xavier" a écrit dans le message de
news:1bee201c42167$b2a51d50$ Bonjour
J'ai un souci tout con sur une boucle if. Je veux tester mes champs au cas ou ils seraient vides.
Je fais :
If (Me.Surname Like Null) Then MsgBox "N'oubliez pas de renseigner un nom" ElseIf (Me.Entite Like "") Then MsgBox "N'oubliez pas de renseigner une entité" ElseIf (Me.Rue = "") Then MsgBox "N'oubliez pas de renseigner une adresse" ElseIf ("'" & Me.Tel1 & "'" = "") Then MsgBox "N'oubliez pas de renseigner un telephone" Else Dim strSQL As String strSQL = "Insert Into Contacts(...) Values(...) CurrentDb.Execute strSQL MsgBox "Nouveau contact enregistré" End If
Mais à chaque fois, il passe à l'INSERT.
Sinon il y a la possibilté du switch case mais j'aimerais bien savoir pourquoi ma boucle if ne marche pas.