Los MSGBOX son cuadros de mensaje que nos permiten mostrar un mensaje y un par de botones para tomar alguna decisión al respecto.
Por ejemplo:
Pero ante la imposibilidad de mostrar más botones, o de personalizar los textos de los mismos, utilizaremos un pequeño objeto del tipo Userform para simular justamente el uso de un MsgBox.
En este modelo de ejemplo, colocamos un control Label donde mostramos el mensaje. Y cuatro controles del tipo CommandButton para ejecutar las distintas opciones. Cada botón dentro del formulario tendrá una instrucción para llamar a su proceso.
Private Sub CommandButton1_Click()
'MsgBox "A continuación se procede a GUARDAR la
factura.", , "Información"
Call GuardaFact
End Sub
Private Sub CommandButton2_Click()
Call ImprimeFact
End Sub
Private Sub CommandButton3_Click()
Call CopiaFact
End Sub
Private Sub CommandButton4_Click()
Unload Me
End Sub
Y los diferentes procesos los dejaremos en un módulo, junto con las instrucciones para llamar al Userform:
Sub llamaUF()
UserForm1.Show
End Sub
Sub GuardaFact()
'.... código que guarda la factura
End Sub
Sub ImprimeFact()
'.... código que imprime la factura
End Sub
Sub CopiaFact()
'.... código que guarda una copia de la factura
End Sub
Ver video N° 63 desde aquí.
