Con el siguiente código se modifica la propiedad de la aplicación (AppTitle) que contiene el nombre de la misma, y que es el que se muestra en la barra del título de la aplicación.
Public Function EditTitleApp(strTitle As String)
Dim db As Database, prp As Property
Const conErrPropNonTrouvée = 3270
On Error GoTo Err_EditTitleApp
Set db = CurrentDb
db.Properties!AppTitle = strTitle
Application.RefreshTitleBar
db.Close: Set db = Nothing
Exit Function
Err_EditTitleApp:
If Err.Number = conErrPropNonTrouvée Then
Set prp = db.CreateProperty("AppTitle", dbText, strTitle)
db.Properties.Append prp
Set prp = Nothing
Else
MsgBox "Error : " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Function
Fuente: access.jessy.free.fr
