RE:clic aparezca pantalla
Hay varias formas...
como te comentaron los amigos anteriormente....
Ahora Si deseas hacerlo por VBA, le colocas algo asi
msgbox " lo que tu quieras "
Si lo quieres hacer mas largo y como error
msgbox " lo que tu quieras" & vbcrlf & _
" lo que tu quieras " & vbcrlf & _
" lo que tu quieras " , vbcritical , " Escoje un encabezado"
Si lo quieres complicar mas
' Declaramos la variante
Dim Pregunta As Integer
' Lanzamos cualquier pregunta
Pregunta = Eval("MsgBox('Cualquier pregunta' " & _
"& chr(13) & chr(10) & " & _
"'la que tu quieras....???? @" & _
"¿Pulse una Opcion?@', 4,'Aviso')")
' Si la Opcion es Si entonces abrimos un form, informe, macro, etc... lo que tu quieras
' en este caso lanzo otro mensaje
If Pregunta = 6 Then
MsgBox " Abrimos un formulario ", vbInformation, " Escoje un encabezado "
End If
' Si la Opcion es No hacemos lo mismo...
If Pregunta = 7 Then
MsgBox " Abrimos un Informe " & vbCrLf & _
"o un formulario, o lo que tu quieras... ", vbExclamation, " Sugerencia "
End If
EN FIN PUEDES HACER LO QUE SEA......
Solo ve practicando un poco
Espero haberte Ayudado
Desde Venezuela
Jefferson