MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Mudar o Titulo do Access

    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Mudar o Titulo do Access Empty Mudar o Titulo do Access

    Mensagem  matheuspereira em 24/3/2013, 14:23

    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.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2481
    Registrado : 09/04/2012

    [Resolvido]Mudar o Titulo do Access Empty Re: [Resolvido]Mudar o Titulo do Access

    Mensagem  Kaynan em 24/3/2013, 14:33

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

    Abçs.
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Mudar o Titulo do Access Empty Mudar o Titulo do Access

    Mensagem  matheuspereira em 24/3/2013, 14:56

    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....
    Anexos
    [Resolvido]Mudar o Titulo do Access AttachmentCalculo de Juros.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (132 Kb) Baixado 48 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Mudar o Titulo do Access Empty Re: [Resolvido]Mudar o Titulo do Access

    Mensagem  Assis em 24/3/2013, 14:57

    Tão perto

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


    .................................................................................
    *** Só sei que nada sei ***
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Mudar o Titulo do Access Empty Mudar o Titulo do Access

    Mensagem  matheuspereira em 24/3/2013, 15:11

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Mudar o Titulo do Access Empty Re: [Resolvido]Mudar o Titulo do Access

    Mensagem  Assis em 24/3/2013, 15:36

    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




    .................................................................................
    *** Só sei que nada sei ***

    RuiWolf gosta desta mensagem

    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Mudar o Titulo do Access Empty Mudar o Titulo do Access

    Mensagem  matheuspereira em 24/3/2013, 18:03

    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?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3683
    Registrado : 04/04/2010

    [Resolvido]Mudar o Titulo do Access Empty Re: [Resolvido]Mudar o Titulo do Access

    Mensagem  Avelino Sampaio em 25/3/2013, 07:11

    Olá

    Se não quiser usar código, pode alterar pela Opções do Access

    "Opções do Access" > "Banco de dados atual" > Altere "Titulo do aplicatico" e altere também "ìcone do aplicativo"

    Sucesso!


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Mudar o Titulo do Access Empty Mudar o Titulo do Access

    Mensagem  matheuspereira em 25/3/2013, 19:58

    Rsrs, muito simples, obrigado Avelino..
    avatar
    Cybalencar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 03/08/2020

    [Resolvido]Mudar o Titulo do Access Empty Alterando titulo em tempo de execução

    Mensagem  Cybalencar em 21/8/2020, 15:34

    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

      Data/hora atual: 30/11/2020, 03:54