MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  Kaynan 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 : 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 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 49 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 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 : 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 24/3/2013, 15:11

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

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 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 : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 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!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    matheuspereira
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às regras : 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 25/3/2013, 19:58

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

    Respeito às regras : 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 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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/5/2021, 04:43