Cuestión : Mensajes de la validación

Actual, tengo mi validación la fijo tan entonces los concatinates una secuencia y después doy un mensaje de todos los campos que no se completan de una vez en el acontecimiento de BeforeUpdate.  Aquí está el código: el

amortigua valMessage como valInvolvement dévil de String
como valFirstName dévil de String
como valLastName dévil de String
como el valMessage =

de String

del "" si valMessage de IsNull (Me.txtInvolvement.Value) Then
= valMessage y “implicación, “extremo If

del
si valMessage de IsNull (Me.txtFirstName.Value) Then
= valMessage y “nombre, “extremo If

del
si IsNull (valMessage de Me.txtLastName.Value) Then
= valMessage y “apellido, “extremo If

del
si Len (valMessage) > 0 valMessage de Then
MsgBox y “debe ser completado antes de que una persona pueda ser ahorrada. “el mensaje de error de If

The del final de Sub
de la cancelación del
= de la salida de True
parecerá esto: el

Involvement, nombre, apellido, debe ser completado antes de que una persona pueda ser saved.
But qué quisiera que el mensaje pareciera soy éste: los campos del

These deben ser completados antes de que una persona pueda ser ahorrada: el

Involvement
First Name
Last Name

Where enumera todos los campos en su propia línea.  ¿Consejo sobre cómo hacer esto? class= del

Respuesta : Mensajes de la validación

Utilizar el vbCRLF en cuanto a ponen una vuelta y avance de línea del carraige entre éstos.

       Amortiguar el valMessage como secuencia
        Amortiguar el valInvolvement como secuencia
        Amortiguar el valFirstName como secuencia
        Amortiguar el valLastName como secuencia

        valMessage = ""

        Si IsNull (Me.txtInvolvement.Value) entonces
            valMessage = valMessage y “implicación” y crlf
        Terminar si

        Si IsNull (Me.txtFirstName.Value) entonces
            valMessage = valMessage y “nombre” y crlf
        Terminar si

        Si IsNull (Me.txtLastName.Value) entonces
            valMessage = valMessage y “apellido” y crlf
        Terminar si

        Si Len (valMessage) > 0 entonces
            MsgBox “estos campos debe ser completado antes de que una persona pueda ser ahorrada: ” y crlf y crlf y valMessage
            La cancelación = verdad
            Salir el submarino
        Terminar si