Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être effectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement
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
JB
Bonjour,
Dans le code du bouton Valider:
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
JB
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement
Bonjour,
Dans le code du bouton Valider:
Private Sub B_validation_Click()
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
If c.Value = "" Then
MsgBox "Saisir cette zone!"
c.SetFocus
Exit Sub
End If
End Select
Next c
MsgBox "ok"
End Sub
JB
On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:
Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement
Private Sub B_validation_Click() Dim c As Control For Each c In Me.Controls Select Case TypeName(c) Case "TextBox", "ComboBox" If c.Value = "" Then MsgBox "Saisir cette zone!" c.SetFocus Exit Sub End If End Select Next c MsgBox "ok" End Sub
JB
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement
lSteph
Bonjour,
Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5) Case "Combo", "TextB", "ListB" If Len(Me.Controls(i)) = 0 Then Me.Controls(i).SetFocus MsgBox ("saisie incomplète") Exit Sub End If End Select
Next 'ici proc de validation MsgBox "saisie validée" End Sub
'lSteph
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement
Bonjour,
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5)
Case "Combo", "TextB", "ListB"
If Len(Me.Controls(i)) = 0 Then
Me.Controls(i).SetFocus
MsgBox ("saisie incomplète")
Exit Sub
End If
End Select
Next
'ici proc de validation
MsgBox "saisie validée"
End Sub
'lSteph
On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:
Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement
Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5) Case "Combo", "TextB", "ListB" If Len(Me.Controls(i)) = 0 Then Me.Controls(i).SetFocus MsgBox ("saisie incomplète") Exit Sub End If End Select
Next 'ici proc de validation MsgBox "saisie validée" End Sub
'lSteph
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être eff ectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement
Michel69
C'est génial, ça marche, merci encore à tous les 2 Michel
Bonjour,
Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5) Case "Combo", "TextB", "ListB" If Len(Me.Controls(i)) = 0 Then Me.Controls(i).SetFocus MsgBox ("saisie incomplète") Exit Sub End If End Select
Next 'ici proc de validation MsgBox "saisie validée" End Sub
'lSteph
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être effectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement
C'est génial, ça marche, merci encore à tous les 2
Michel
Bonjour,
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5)
Case "Combo", "TextB", "ListB"
If Len(Me.Controls(i)) = 0 Then
Me.Controls(i).SetFocus
MsgBox ("saisie incomplète")
Exit Sub
End If
End Select
Next
'ici proc de validation
MsgBox "saisie validée"
End Sub
'lSteph
On 10 sep, 14:40, Michel69 <Miche...@discussions.microsoft.com> wrote:
Bonjour à toutes et à tous,
Dans une form, je souhaiterais que toutes les zones (txtbox, combo....)
soient rendues obligatoires. Effet : un enregistrement ne peut être effectué
s'il manque une info.
Ou mettre ce morceau de code ?
En vous remerciant par avance
Cordialement
C'est génial, ça marche, merci encore à tous les 2 Michel
Bonjour,
Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To Me.Controls.Count - 1
Select Case Left(TypeName(Me.Controls(i)), 5) Case "Combo", "TextB", "ListB" If Len(Me.Controls(i)) = 0 Then Me.Controls(i).SetFocus MsgBox ("saisie incomplète") Exit Sub End If End Select
Next 'ici proc de validation MsgBox "saisie validée" End Sub
'lSteph
On 10 sep, 14:40, Michel69 wrote:
Bonjour à toutes et à tous, Dans une form, je souhaiterais que toutes les zones (txtbox, combo....) soient rendues obligatoires. Effet : un enregistrement ne peut être effectué s'il manque une info. Ou mettre ce morceau de code ? En vous remerciant par avance Cordialement