PROCÉDURE DE VÉRIFICATION DE REMPLISSAGE DES TEXTBOX OU AUTRE CHAMPS À REMPLIR

Procédure de vérification de remplissage des TextBox ou autre champs à remplir


Appel de la Proc

Nom Procédure, Texte message, Nom Form et TextBox

ManqueChamp "Genre non renseigné !", FrmFicheFilm.TxtGenre



Public Sub ManqueChamp(Text$, Box As Object)
    On Error GoTo TraiteErreur:

    Titre$ = "Champ non renseigné !" ' Donne le titre de la messageBox
    Style = vbInformation ' Lui donne le panneau
    Box.SetFocus ' Donne le focus à la textBox non renseignée
    MsgBox Text$, Style, Titre$
 Exit Sub
 
TraiteErreur:
    réponse = MsgBox(Err.Description, 34, "ATTENTION")
    
    Select Case réponse
        Case 4
            Resume
        Case 5
            Resume Next
    End Select
    
End Sub