Frage : Gültigkeitserklärung-Mitteilungen

Z.Z. habe ich meine Gültigkeitserklärung gründe so dann sie concatinates eine Schnur und gebe dann eine Mitteilung aller Felder, die in einem Zug nicht auf dem BeforeUpdate Ereignis ausgefüllt.  Ist hier der Code:

verdunkeln valMessage als String
schwaches valInvolvement als String
schwaches valFirstName als String
schwaches valLastName als String

valMessage = ""

wenn IsNull (Me.txtInvolvement.Value) Then
valMessage = valMessage u. „Miteinbeziehung, „
Ende If

wenn IsNull (Me.txtFirstName.Value) Then
valMessage = valMessage u. „erster Vorname, „
Ende If

, wenn IsNull (Me.txtLastName.Value) Then
valMessage = valMessage u. „Nachname, „
Ende If

, wenn Len (valMessage) > 0 Then
MsgBox valMessage u. „ergänzt werden muss, bevor eine Person gespeichert werden kann. „
Löschen = True
Ausgang Sub
Ende If

The Fehlermeldung aussieht wie dieses es: wie

Involvement, erster Vorname, Nachname, muss ergänzt werden, bevor eine Person saved.
But sein kann, was ich dass möchte, die Mitteilung ist dieser aussieht:

These Felder müssen ergänzt werden, bevor eine Person gespeichert werden kann:

Involvement
First Name
Last Name

Where verzeichnet es alle Felder auf ihrer eigenen Linie.  Irgendein Rat auf, wie man dies tut?

Antwort : Gültigkeitserklärung-Mitteilungen

vbCRLF hinsichtlich benutzen setzen eine carraige Rückkehr und Zeilenvorschub zwischen diese.

       valMessage als Schnur verdunkeln
        valInvolvement als Schnur verdunkeln
        valFirstName als Schnur verdunkeln
        valLastName als Schnur verdunkeln

        valMessage = ""

        Wenn IsNull (Me.txtInvolvement.Value) dann
            valMessage = valMessage u. „Miteinbeziehung“ u. crlf
        Beenden wenn

        Wenn IsNull (Me.txtFirstName.Value) dann
            valMessage = valMessage u. „erster Vorname“ u. crlf
        Beenden wenn

        Wenn IsNull (Me.txtLastName.Value) dann
            valMessage = valMessage u. „Nachname“ u. crlf
        Beenden wenn

        Wenn Len (valMessage) > 0 dann
            MsgBox „diese Felder muss ergänzt werden, bevor eine Person gespeichert werden kann: “ u. crlf u. crlf u. valMessage
            Löschen = ausrichtet et
            Unterseeboot herausnehmen
        Beenden wenn