Fråga : Godkännandemeddelanden

För närvarande jag har mitt godkännande att ställa in så därefter det concatinates en stränga och ger därefter ett meddelande allra sätter in som inte fylls sammanlagt strax på den BeforeUpdate händelsen.  Är här kodifiera: den dunkla valMessagen för

som String
den dunkla valInvolvementen som String
dunkel valFirstName som String
dunkel valLastName som den String

valMessagen = ""

, om den IsNull (Me.txtInvolvement.Value) Then
valMessagen = valMessagen & ”medverkan, ”
avslutar If

om den IsNull (Me.txtFirstName.Value) Then
valMessagen = valMessagen & ”förnamn, ”
avslutar If

, om den IsNull (Me.txtLastName.Value) Then
valMessagen = valMessagen & ”efternamn, ”
avslutar If

, om Len (valMessage) > 0 Then
MsgBox valMessage & ”måste fyllas ut, för en person kan vara sparat. ”annulleringen för
= True
går ut Sub
avslutar något liknande för look för If

The felmeddelande ska detta:

Involvement, förnamnet, efternamn, måste fyllas ut, för en person kan vara saved.
But vad jag skulle något liknande meddelandet för att se något liknande är denna:

These sätter in måste fyllas ut, för en person kan sparas:

Involvement
First Name
Last Name

Where som den listar alla, sätter in på deras eget fodrar.  Några råder på hur man gör detta? " klar "

Svar : Godkännandemeddelanden

Använd vbCRLF om sätter en carraigeretur och fodrar matning mellan dessa.

       Dunkel valMessage som stränger
        Dunkel valInvolvement som stränger
        Dunkel valFirstName som stränger
        Dunkel valLastName som stränger

        valMessage = "",

        Om IsNull (Me.txtInvolvement.Value) därefter
            valMessage = valMessage & ”medverkan” & crlf
        Avsluta om

        Om IsNull (Me.txtFirstName.Value) därefter
            valMessage = valMessage & ”förnamn” & crlf
        Avsluta om

        Om IsNull (Me.txtLastName.Value) därefter
            valMessage = valMessage & ”efternamn” & crlf
        Avsluta om

        Om Len (valMessage) > 0 därefter
            MsgBox ”dessa,” & crlf & crlf & valMessage
            Annulleringen = True
            Gå ut suben
        Avsluta om