La función MsgBox dentro de una estructura If End If sirve para mostrar un mensaje al usuario de la aplicación y darle la opción de decidir si quiere efectuar un procedimiento o otro. En el siguiente ejemplo, cuando hacemos clic en un commandbutton, llamado abririnforme, mostramos un mensaje en pantalla y damos la opción al usuario de abrir el informe si dice Sí o de no abrirlo si dice No:
Option Compare Database
Option Explicit
Private Sub abririnforme_Click()
If MsgBox("Quieres ver el informe? ", vbYesNo, "ATENCIÓN") = vbYes Then
instrucción...
instrucción...
Else
End If
End Sub
Por ejemplo se puede utilizar dentro de un MsgBox, cuando el texto que queremos mostrar en pantalla es demasiado largo:
Option Compare Database
Option Explicit
instrucción...
instrucción...
MsgBox("Este texto podemos hacer que se corte aquí " & vbCrLf & " y continuamos en la linea siguiente")