Cambiar el título de un MsgBox mediante un función de un módulo
estoy intentando cambiar el título de un MsgBox. Quiero que tome el nombre de la base de datos. Para ello, he creado esta función en un módulo normal:
Public Function Titulo() As String
Titulo = DLookup("TituloAplicacion", "T00Configuracion")
End Functiony en el Msgbox que hay en un formulario lo pongo así:
MsgBox "Introduce un valor entre 0 y 255", vbInformation, Titulo
Si lo intento en un módulo de clase, directamente me sale vacío el título.
¿Cómo puedo hacerlo?
1 Respuesta
Diego: Yo haría lo siguiente:
Public Function NombreDeEstaBD() As String Dim EstaBD As Database Set EstaBD = CurrentDb() NombreDeEstaBD = EstaBD.Name End Function
MsgBox "Esta base de datos tiene el siguiente directorio y Nombre: " & NombreDeEstaBD, vbInformation,"DATOS BD ACTUAL"
Un saludo >> Jacinto
Hola, Jacinto.
Estoy probándolo, pero me da un error:
Creo que falta alguna referencia.
Además, donde quiero que aparezca el título de la base de datos es donde te indico en esta imagen en rojo, no en el propio texto:
¡¡Mil gracias!!
Diego: Es posible que el Error sea debido a algún conflicto de librería pero no tiene importancia.
Mira de ésta otra forma:
Public Function NombreBDActual() As String NombreBDActual = Application.CurrentProject.Name 'Para el Directorio y Nombre 'NombreBDActual = CurrentProject.Path & Application.CurrentProject.Name End Function
Y para el Mensaje >>
MsgBox "El texto que quieras en tu mensaje...: ", vbInformation, NombreBDActual
El vbInformation lo sustituyes por el vbCritical o el tipo que necesites. Un saludo >> Jacinto
Muchas gracias. Solucionado.
Diego: Aunque realmente aparece el Nombre, en la opción Directorio y Nombre falta un "separador" inmmediatamente después de .. Path >>
NombreBDActual = CurrentProject.Path & "\" & Application.CurrentProject.Name
