Vraag : De Berichten van de bevestiging

Momenteel, heb ik mijn bevestigingsopstelling zo toen het concatinates een koord en geef dan een bericht van alle gebieden die niet alles in één keer op de gebeurtenis BeforeUpdate worden ingevuld.  Hier is de code: /> Schemerige valMessage

Schemerige valInvolvement String
Schemerige valFirstName String
Schemerige valLastName String

= ""

als (Me.txtInvolvement.Value) Then
valMessage IsNull = valMessage & „Betrokkenheid, „
Eind If

als (Me.txtFirstName.Value) Then
valMessage IsNull = valMessage & „Voornaam, „
Eind If

als (Me.txtLastName.Value) Then
valMessage IsNull = valMessage & „Familienaam, „
Eind If

valMessage als van Len (valMessage) > 0 Then
MsgBox & „vóór een Persoon moet worden ingevuld kan zijn gespaard. „
annuleert =/> de foutenmelding/>The van If

zal kijken als dit:

Involvement, Voornaam, Familienaam, moet worden ingevuld alvorens een Persoon saved.
But kan zijn wat ik het bericht zou willen kijken als ben dit:

These- gebieden worden ingevuld alvorens een persoon kan worden gered:

Involvement
First Name
Last Name

Where het maakt een lijst van alle gebieden op hun eigen lijn.  Om het even welke raad op hoe te om dit te doen?

Antwoord : De Berichten van de bevestiging

Gebruik vbCRLF om een van de carraigeterugkeer en lijn voer tussen deze te zetten.

       Schemerige valMessage als Koord
        Schemerige valInvolvement als Koord
        Schemerige valFirstName als Koord
        Schemerige valLastName als Koord

        valMessage = ""

        Als IsNull (Me.txtInvolvement.Value) toen
            valMessage = valMessage & „Betrokkenheid“ & crlf
        Eind als

        Als IsNull (Me.txtFirstName.Value) toen
            valMessage = valMessage & „Voornaam“ & crlf
        Eind als

        Als IsNull (Me.txtLastName.Value) toen
            valMessage = valMessage & „Familienaam“ & crlf
        Eind als

        Als Len (valMessage) > 0 toen
            MsgBox „deze gebied moet worden ingevuld alvorens een Persoon kan worden gered: “ & crlf & crlf & valMessage
            Annuleer = Waar
            Ga Sub weg
        Beëindig als