controls + userform

Le
Michel69
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4751271
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
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
Le #4751241
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
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
Le #4751211
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
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







Publicité
Poster une réponse
Anonyme