[Resolvido]Titulo do Aplicativo personalizado

Bom dia a todos, seguinte criei um modulo para capturar a ultima empresa logada chamada getEmpresaAtual(), e gostaria de mostrar o retorno deste modulo no titulo do aplicativo, tipo ("Nome do sistema - " & getEmpresaAtual), então achei um código aqui no fórum mas não consegui adaptar, se alguém puder me ajudar.

Falta o código que achou para podermos adaptar e qual a versão do seu Access.

Boas Mestre JP é o MSO 2013 e achei dois códigos um feito por você:

Código:

Mudar o Título do Banco Ms Access

Dentro do VBA do form principal, cole:

Sub MudarTituloMDB()
Dim obj As Object
Dim dbs As Database
Const conPropNotFoundError = 3270
On Error GoTo ErrorHandler
Set dbs = CurrentDb
dbs.Properties!AppTitle = "By JPaulo"
Application.RefreshTitleBar
Exit Sub
ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set obj = dbs.CreateProperty("AppTitle", dbText, "")
dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Sub

'Chamar o Sub

Private Sub Form_Load()
MudarTituloMDB
End Sub

e este achei este que mostra o usuário logado mas não consegui adaptar:

Código:

Private Function fncTítuloUsuário(Usuário As String)
On Error Resume Next
CurrentDb.Properties("AppTitle") = "EstoKe - " & Usuário
Application.RefreshTitleBar
End Function

Testou algum desses para ver se funciona como está ?

Provavelmente assim terá de funcionar, mas a sua função tem de estar como Public;

Código:

Public Sub MudarTituloMDB()
Dim obj As Object
Dim dbs As Database
Const conPropNotFoundError = 3270
On Error GoTo ErrorHandler
Set dbs = CurrentDb
dbs.Properties!AppTitle = getEmpresaAtual()
Application.RefreshTitleBar
Exit Sub
ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set obj = dbs.CreateProperty("AppTitle", dbText, "")
dbs.Properties.Append obj
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Sub

Perfeito, mas uma vez, meus parabéns ao mestre do Access e da generosidade obg JP, um abraço.

Tinha esquecido de colocar resolvido.

Obrigado pelo retorno o forum agradece.