Hay una forma muy facil de hacer un mensaje
Msgbox "Escribir el Mensaje"
y listo.
Ahora se puede hacer un mensaje mas elaborado, dando a elegir 2 opciones y tambien agregar la criticidad
al mensaje:
Dim Mensaje, Estilo, Título, Ayuda, Ctxt, Respuesta, MiCadena
Mensaje = "ANTES DE CREAR NUEVO SEGUIMIENTO," & vbCrLf _
& "REVISAR BASE DE DATOS E INFORMACION CRUZADA CON SAP," & vbCrLf _
& "PARA NO REPETIR DATOS. " & vbCrLf & vbCrLf _
& "¿DESEA SEGUIR Y AGREGAR NUEVO SEGUIMIENTO MANUAL ?"
Estilo = vbYesNo + vbCritical + vbDefaultButton2
Título = "AGREGARÁ NUEVO SEGUIMIENTO MANUAL !"
Ayuda = "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el tema
' el contexto
' Muestra el mensaje.
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If Respuesta = vbYes Then ' El usuario eligió el botón Sí.
On Error GoTo Err_Command520_Click
DoCmd.OpenForm "SeguimientoManualF2"
DoCmd.GoToRecord , , acNewRec
Exit_Command520_Click:
Exit Sub
Err_Command520_Click:
MsgBox Err.Description
Resume Exit_Command520_Click
Else ' El usuario eligió el botón No.
MiCadena = "No" ' Ejecuta una acción.
End If
Los niveles de criticidad son el dibujo rojo que aparece en la figura
este sería Critico vbCritical
este sería de pregunta vbQuestion
y este sería de exclamacion vbExclamation
