Les boîtes de dialogue

Mise en oeuvre de la propriété TagRetour au menu Contrôles divers

        Mettre dans la propriété Tag de tous les champs obligatoires la valeur Obligatoire.
        Pour guider l'utilisateur en cas d'omission de saisie, on mettra dans la propriété
        ControlTipText de tous ces champs obligatoires le nom équivalent :
                - Nom pour la TextBox intitulée txtNom
                - Prénom pour la TextBox intitulé txtPrénom
                - Adresse pour la TextBox intitulée txtAdresse1, etc...
        Cela permettra d'afficher le message correspondant au nom du champ non rempli.
        Cette option n'est pas obligatoire mais elle guidera l'utilisateur lors de la saisie.

Le formulaire (frmCoordonnees)

Le code du formulaire

 

Private Sub cmdValider_Click()

   For Each Ctrl In frmCoordonnees.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

            Exit Sub

         End If

      End If

   Next Ctrl

   Unload Me

End Sub

Retour au début de document

Retour au début du document