Question : Messages de validation

Actuellement, j'ai ma validation l'installe tellement puis des concatinates une corde et puis donne un message de tous les champs qui ne sont pas complétés d'un seul trait sur l'événement de BeforeUpdate.  Voici le code : le

obscurcissent le valMessage comme faible valInvolvement de String
comme faible valFirstName de String
comme faible valLastName de String
comme valMessage =

de String

de "" si valMessage d'IsNull (Me.txtInvolvement.Value) Then
= valMessage et « participation, « extrémité If

du
si valMessage d'IsNull (Me.txtFirstName.Value) Then
= valMessage et « prénom, « extrémité If

du
s'IsNull (valMessage de Me.txtLastName.Value) Then
= valMessage et « nom de famille, « extrémité If

de
si Len (valMessage) > 0 valMessage de Then
MsgBox et « doit être complété avant qu'une personne puisse être sauvée. « le message d'erreur d'If

The de fin de Sub
d'annulation du
= de sortie de True
ressemblera à ceci : le

Involvement, prénom, nom de famille, doit être complété avant qu'une personne puisse être saved.
But à ce que je voudrais que le message ressemble est ceci : des champs du

These doivent être complétés avant qu'une personne puisse être sauvée : le

Involvement
First Name
Last Name

Where il énumère tous les champs sur leur propre ligne.  Un conseil sur la façon dont faire ceci ? class= de

Réponse : Messages de validation

Employer le vbCRLF quant à mettent un retour et retour à la ligne de carraige entre ces derniers.

       Obscurcir le valMessage comme corde
        Obscurcir le valInvolvement comme corde
        Obscurcir le valFirstName comme corde
        Obscurcir le valLastName comme corde

        valMessage = ""

        S'IsNull (Me.txtInvolvement.Value) puis
            valMessage = valMessage et « participation » et crlf
        Finir si

        S'IsNull (Me.txtFirstName.Value) puis
            valMessage = valMessage et « prénom » et crlf
        Finir si

        S'IsNull (Me.txtLastName.Value) puis
            valMessage = valMessage et « nom de famille » et crlf
        Finir si

        Si Len (valMessage) > 0 puis
            MsgBox « ces champs doit être complété avant qu'une personne puisse être sauvée :  » et crlf et crlf et valMessage
            L'annulation = rectifient
            Sortir le sous-marin
        Finir si