MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Titulo do Aplicativo personalizado

    Compartilhe

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  Kebao10 em Seg 08 Set 2014, 14:11

    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.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  JPaulo em Seg 08 Set 2014, 15:33

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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  Kebao10 em Seg 08 Set 2014, 16:11

    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

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  JPaulo em Seg 08 Set 2014, 16:49

    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


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  Kebao10 em Seg 08 Set 2014, 16:56

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

    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  Kebao10 em Seg 08 Set 2014, 17:03

    Tinha esquecido de colocar resolvido.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Titulo do Aplicativo personalizado

    Mensagem  JPaulo em Ter 09 Set 2014, 09:38

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sex 09 Dez 2016, 00:00