Bonjour,
en ce dernier dimanche de janvier je tapote mon clavier pour
vous transmettre tous mes voeux
voila ma demande
comment faire pour obliger un utilisateur a remplir des champs
obligatoires dans un formulaire de saisie
j'ai vu dans les proprietes de l'usf le tag et le controltiptext
a renseigner c'est apres au niveau du code que ca se corse
je n'ai pas trouve grand chose sur le net sauf dernierement un message
qui pose probleme a son auteur
merci
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
MichDenis
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus.
"eneric" a écrit dans le message de news:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
-- eneric
Il s'agit de faire une procédure générale de vérification pour chacun des
contrôles que l'usager doit renseigner. Le contenu de chaque contrôle
doit correspondre au type de données qui convient au
contrôle .. si ce n'est pas le cas, tu renvoies un message approprié
à l'usager pour qu'il corrige la situation et tu empêches l'usager
de passer à l'étape suivante du processus.
"eneric" <eneric.v@cegetel.net> a écrit dans le message de news:
mn.e4277d71162d0013.51150@cegetel.net...
Bonjour,
en ce dernier dimanche de janvier je tapote mon clavier pour
vous transmettre tous mes voeux
voila ma demande
comment faire pour obliger un utilisateur a remplir des champs
obligatoires dans un formulaire de saisie
j'ai vu dans les proprietes de l'usf le tag et le controltiptext
a renseigner c'est apres au niveau du code que ca se corse
je n'ai pas trouve grand chose sur le net sauf dernierement un message
qui pose probleme a son auteur
merci
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus.
"eneric" a écrit dans le message de news:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
-- eneric
eneric
eneric à dit
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus. bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire) ensuite j'ai mis ce bout de code qui ne donne rien For Each Ctrl In Facture.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive que des formulaires soient mal remplis a+
-- eneric
eneric à dit
Il s'agit de faire une procédure générale de vérification pour chacun des
contrôles que l'usager doit renseigner. Le contenu de chaque contrôle
doit correspondre au type de données qui convient au
contrôle .. si ce n'est pas le cas, tu renvoies un message approprié
à l'usager pour qu'il corrige la situation et tu empêches l'usager
de passer à l'étape suivante du processus.
bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire)
ensuite j'ai mis ce bout de code qui ne donne rien
For Each Ctrl In Facture.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive
que des formulaires soient mal remplis
a+
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus. bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire) ensuite j'ai mis ce bout de code qui ne donne rien For Each Ctrl In Facture.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive que des formulaires soient mal remplis a+
-- eneric
MichDenis
A ) tu dois savoir quel contrôle doit être obligatoirement renseigné.
B ) Tu dois alors dans une "longue procédure" passer en revue chacun des contrôles et vérifier si l'usager s'est chargé de renseigner convenablement chacun des contrôles.
C ) Pourquoi utiliser une autre propriété que celle qui retourne la valeur du contrôle. Exemple : Si un usager doit saisir une date dans un textbox.. tu dois de contrôler si le contenu du textbox correspond bien à une date et si cette date fait du sens (situé entre x et y par exemple.)
Et pour ta procédure, essaie ceci que tu assignes à un bouton de commande:
Sub test() For Each c In Me.Controls If TypeName(c) = "TextBox" Then If c.Tag = "Obligatoire" And c.Text = "" Then MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & c.ControlTipText & "> ", _ vbCritical, "Attention" c.SetFocus c.SelStart = 1 c.SelLength = Len(c) Exit For End If End If Next End Sub
"eneric" a écrit dans le message de news:
eneric à dit
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus. bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire) ensuite j'ai mis ce bout de code qui ne donne rien For Each Ctrl In Facture.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive que des formulaires soient mal remplis a+
-- eneric
A ) tu dois savoir quel contrôle doit être obligatoirement renseigné.
B ) Tu dois alors dans une "longue procédure" passer en revue
chacun des contrôles et vérifier si l'usager s'est chargé de
renseigner convenablement chacun des contrôles.
C ) Pourquoi utiliser une autre propriété que celle qui retourne
la valeur du contrôle. Exemple : Si un usager doit saisir une
date dans un textbox.. tu dois de contrôler si le contenu du
textbox correspond bien à une date et si cette date fait du sens
(situé entre x et y par exemple.)
Et pour ta procédure, essaie ceci que tu assignes à un bouton de commande:
Sub test()
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
If c.Tag = "Obligatoire" And c.Text = "" Then
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & c.ControlTipText & "> ", _
vbCritical, "Attention"
c.SetFocus
c.SelStart = 1
c.SelLength = Len(c)
Exit For
End If
End If
Next
End Sub
"eneric" <eneric.v@cegetel.net> a écrit dans le message de news:
mn.e4697d71ca349e35.51150@cegetel.net...
eneric à dit
Il s'agit de faire une procédure générale de vérification pour chacun des
contrôles que l'usager doit renseigner. Le contenu de chaque contrôle
doit correspondre au type de données qui convient au
contrôle .. si ce n'est pas le cas, tu renvoies un message approprié
à l'usager pour qu'il corrige la situation et tu empêches l'usager
de passer à l'étape suivante du processus.
bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire)
ensuite j'ai mis ce bout de code qui ne donne rien
For Each Ctrl In Facture.Controls
If TypeName(Ctrl) = "TextBox" Then
If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then
Ctrl.SetFocus
MsgBox "Vous devez obligatoirement remplir" & vbCr _
& "le champ <" & Ctrl.ControlTipText & "> ",
vbInformation
End If
End If
Next Ctrl
sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive
que des formulaires soient mal remplis
a+
A ) tu dois savoir quel contrôle doit être obligatoirement renseigné.
B ) Tu dois alors dans une "longue procédure" passer en revue chacun des contrôles et vérifier si l'usager s'est chargé de renseigner convenablement chacun des contrôles.
C ) Pourquoi utiliser une autre propriété que celle qui retourne la valeur du contrôle. Exemple : Si un usager doit saisir une date dans un textbox.. tu dois de contrôler si le contenu du textbox correspond bien à une date et si cette date fait du sens (situé entre x et y par exemple.)
Et pour ta procédure, essaie ceci que tu assignes à un bouton de commande:
Sub test() For Each c In Me.Controls If TypeName(c) = "TextBox" Then If c.Tag = "Obligatoire" And c.Text = "" Then MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & c.ControlTipText & "> ", _ vbCritical, "Attention" c.SetFocus c.SelStart = 1 c.SelLength = Len(c) Exit For End If End If Next End Sub
"eneric" a écrit dans le message de news:
eneric à dit
Il s'agit de faire une procédure générale de vérification pour chacun des contrôles que l'usager doit renseigner. Le contenu de chaque contrôle doit correspondre au type de données qui convient au contrôle .. si ce n'est pas le cas, tu renvoies un message approprié à l'usager pour qu'il corrige la situation et tu empêches l'usager de passer à l'étape suivante du processus. bonjour michdenis
j'ai bien renseigné le champ tag par (obligatoire) ensuite j'ai mis ce bout de code qui ne donne rien For Each Ctrl In Facture.Controls If TypeName(Ctrl) = "TextBox" Then If Ctrl.Tag = "Obligatoire" And Ctrl.Text = "" Then Ctrl.SetFocus MsgBox "Vous devez obligatoirement remplir" & vbCr _ & "le champ <" & Ctrl.ControlTipText & "> ", vbInformation End If End If Next Ctrl sachant que j'ai 8 champs obligatoires a renseigner et qu'il arrive que des formulaires soient mal remplis a+
-- eneric
JB
Bonsoir,
Le bouton de validation n'est activé que si les zones obligatoires ont étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie Private Sub UserForm_Initialize() For i = 1 To 3 Set Txt(i).GrSaisie = Controls("Oblig" & i) Next i End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox Private Sub GrSaisie_Change() témoin = True For i = 1 To 3 If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False Next i F_Validation_toutes_zones.B_valid.Enabled = témoin End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric wrote:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
-- eneric
Bonsoir,
Le bouton de validation n'est activé que si les zones obligatoires ont
étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie
Private Sub UserForm_Initialize()
For i = 1 To 3
Set Txt(i).GrSaisie = Controls("Oblig" & i)
Next i
End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
témoin = True
For i = 1 To 3
If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False
Next i
F_Validation_toutes_zones.B_valid.Enabled = témoin
End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric <eneri...@cegetel.net> wrote:
Bonjour,
en ce dernier dimanche de janvier je tapote mon clavier pour
vous transmettre tous mes voeux
voila ma demande
comment faire pour obliger un utilisateur a remplir des champs
obligatoires dans un formulaire de saisie
j'ai vu dans les proprietes de l'usf le tag et le controltiptext
a renseigner c'est apres au niveau du code que ca se corse
je n'ai pas trouve grand chose sur le net sauf dernierement un message
qui pose probleme a son auteur
merci
Le bouton de validation n'est activé que si les zones obligatoires ont étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie Private Sub UserForm_Initialize() For i = 1 To 3 Set Txt(i).GrSaisie = Controls("Oblig" & i) Next i End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox Private Sub GrSaisie_Change() témoin = True For i = 1 To 3 If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False Next i F_Validation_toutes_zones.B_valid.Enabled = témoin End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric wrote:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
-- eneric
eneric
Merci JB je m'ymets des demain bonne nuit
Bonsoir,
Le bouton de validation n'est activé que si les zones obligatoires ont étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie Private Sub UserForm_Initialize() For i = 1 To 3 Set Txt(i).GrSaisie = Controls("Oblig" & i) Next i End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox Private Sub GrSaisie_Change() témoin = True For i = 1 To 3 If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False Next i F_Validation_toutes_zones.B_valid.Enabled = témoin End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric wrote:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
-- eneric
-- eneric
Merci JB
je m'ymets des demain
bonne nuit
Bonsoir,
Le bouton de validation n'est activé que si les zones obligatoires ont
étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie
Private Sub UserForm_Initialize()
For i = 1 To 3
Set Txt(i).GrSaisie = Controls("Oblig" & i)
Next i
End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
témoin = True
For i = 1 To 3
If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False
Next i
F_Validation_toutes_zones.B_valid.Enabled = témoin
End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric <eneri...@cegetel.net> wrote:
Bonjour,
en ce dernier dimanche de janvier je tapote mon clavier pour
vous transmettre tous mes voeux
voila ma demande
comment faire pour obliger un utilisateur a remplir des champs
obligatoires dans un formulaire de saisie
j'ai vu dans les proprietes de l'usf le tag et le controltiptext
a renseigner c'est apres au niveau du code que ca se corse
je n'ai pas trouve grand chose sur le net sauf dernierement un message
qui pose probleme a son auteur
merci
Le bouton de validation n'est activé que si les zones obligatoires ont étés saisies:
Dim Txt(1 To 3) As New ClasseSaisie Private Sub UserForm_Initialize() For i = 1 To 3 Set Txt(i).GrSaisie = Controls("Oblig" & i) Next i End Sub
Module de classe: ClasseSaisie
Public WithEvents GrSaisie As MSForms.TextBox Private Sub GrSaisie_Change() témoin = True For i = 1 To 3 If F_Validation_toutes_zones("oblig" & i) = "" Then témoin = False Next i F_Validation_toutes_zones.B_valid.Enabled = témoin End Sub
http://cjoint.com/?bCuHKRyNW6
Cordialement JB
On 28 jan, 17:43, eneric wrote:
Bonjour, en ce dernier dimanche de janvier je tapote mon clavier pour vous transmettre tous mes voeux voila ma demande comment faire pour obliger un utilisateur a remplir des champs obligatoires dans un formulaire de saisie j'ai vu dans les proprietes de l'usf le tag et le controltiptext a renseigner c'est apres au niveau du code que ca se corse je n'ai pas trouve grand chose sur le net sauf dernierement un message qui pose probleme a son auteur merci
