Vérifier les saisies

Vérifier la saisies dans les zones de texte.

Dans la mesure du possible, il faut définir les bonnes propriétés des champs directement dans la table.

Or, il peut arriver que l'on souhaite vérifier si l'utilisateur n'a pas oublié de renseigner une zone de texte et de l'y renvoyer le cas échéant en y repositionnant le curseur.

Le meilleur endroit pour faire cette vérification, est l'événement "Avant mise à jour" du formulaire.

Le code a placer dans la Sub de cet événement serait  :
 

Dim ctl As Control
For Each ctl In Me.Controls
    If TypeOf ctl Is TextBox Then
        If IsNull(ctl) Then
            Cancel = True
            MsgBox "Vous devez saisir les données de ce champ !"
            ctl.SetFocus
            Exit For
        End If
    End If
Next

Dernière modification : 15/04/2007 17:45
Catégorie : Les mémos - Formulaires
Page lue 8464 fois