textbox

[apdf1]

Bonjour,

J'aimerais connaitre le code pour obliger de renseigner tous les texbox et combobox pour pouvoir valider.

Si quelqu'un peut me donner code je le remercie d'avance

Cordialement

Max

 

[DL_13]

Re : textbox

Bonjour,

Peut-être ces quelques lignes de Codes a mettre au début, sur ton Bouton de Validation

Private Sub CommandButton1_Click()
Dim X As Control
 For Each X In Me.Controls
    Select Case TypeName(X)
        Case "TextBox", "ComboBox" ' a ajouter éventuellement d'autres Objets
            If X.Value = "" Then
               MsgBox "Veuillez Saisir cette zone!"
               X.SetFocus
               Exit Sub
            End If
     End Select
   Next X
End Sub

Bonne Journée

 

[Gorfael]

Re : textbox

Salut apdf1 et le forum

J'aimerais connaitre le code pour obliger de renseigner tous les texbox et combobox pour pouvoir valider.

Tu vérifies le contenu des contrôles et s'il n'est pas satisfaisant, tu envoies un message d'erreur, et tu retournes sur le contrôle incriminé.
A+

 

[apdf1]

Re : textbox

Bonjour et merci boucoup DL_13, Gorfael

Pour votre aide

Bonne journée
Max