Loading
facebook feed
català

Función MsgBox para tomar decisiones

 volver al índex

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

Constante para hacer un salto de linea en un MsgBox multilinea

 volver al índex

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")

okemos brewing company
quality rock from Okemos, Michigan, USA

windows media player

sobre
Catalunya

catalunya

sobre
Barcelona

barcelona

Valid XHTML 1.0 Transitional

Pere Garcia Guinot   -  

logo personal