[Resolvido]Mudar o Titulo do Access

Bom dia, para terminar meu projeto me deparei com um problema, não estou conseguindo tirar o titulo no topo do access, queria que ele ficasse com o nome de meu projeto.

Ola amigo se possivel manda o bd e o nome do progeto que quer que fique no topo.

Abçs.

Ola amigo, irei mandar um modelo aqui, vc poderia depois me passar qual foi o processo realizado, quero que o titulo Fique com o nome do meu bd, mais como exemplo pode colocar meu nome Matheus Alves. no aguardo....

Tão perto

http://dl.getdropbox.com/u/771097/MudaTituloDoBanco.txt

Assis bom dia, olha este primeiro codigo e um modulo?

Olhe a vermelho...


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

Amigo assis, eu tentei fazer oque me passou mais não deu em nada, não mudou o Titulo.. Obs.. Meu BD e tem Ribbons personalizadas e não abre com formulario principal sera que pode ser isso o problema desse codigo não funcionar? tem alguma outra solução?

Rsrs, muito simples, obrigado Avelino..

Bom dia pessoal!

Estou com o mesmo problema de alteração, mas com um adendo. Procuro alterar o titulo da aplicação ao fazer o login e clicar em um botao de logar. Utilizo a sub fornecida acima porém o titulo só é alterado quando reinicio a aplicação.

Código:

Private Sub btOk_Click()

If IsNull(Me!cboUsuario) And IsNull(Me!txtSenha) Then Exit Sub
If DCount("*", "tblUsuarios", "[IdUsuario] & [senha] = """ & Me!cboUsuario.Column(0) & Me!txtSenha & """") = 0 Then
    MsgBox "Usuário ou senha incorretos...", vbInformation, "Aviso"
    Exit Sub

Else

Dim Usuario As String

Application.RefreshTitleBar

login.id = Me!cboUsuario.Column(0)
login.Usuario = Me!cboUsuario.Column(1)

Usuario = login.Usuario

ChangeTitle (Usuario)

Me!cboUsuario = Null: Me!txtSenha = Null
Me!cboUsuario.SetFocus

DoCmd.ShowToolbar "ribbon", acToolbarYes
objRibbon.Invalidate
DoCmd.Close acDefault

End If
End Sub


Sub ChangeTitle(Usuario)

 Dim obj As Object
 Const conPropNotFoundError = 3270
 
 On Error GoTo ErrorHandler
 ' Return Database object variable pointing to
 ' the current database.
 Set dbs = CurrentDb
 ' Change title bar.
 dbs.Properties!AppTitle = "ePAD BETA version - " & Usuario
 ' Update title bar on screen.
 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