MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Compartilhe

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  daygdson em Ter 05 Set 2017, 04:25

    Boa noite caros colegas, estou com um probleminha simples acredito eu para resolver, porém não estou encontrando a solução. Estou com um projeto onde desmembrei meu banco de dados em BE e FE, como vou utilizar tabelas vinculadas eu gostaria de na hora de escolher o banco que pudesse informar em uma caixa de texto não acoplada ao formulário o banco de dados vinculado atual. É só uma informação que gostaria de passar ao usuário mas não estou encontrando o comando correto. Atualmente estou no sequinte código:
    Ao carregar o formulário
    Código:
    Private Sub Form_Open(Cancel As Integer)
    txtLocalizaBE = fncOrigemBanco 'Caixa de informação da origem do banco
    End Sub

    E a função
    Código:
    Private Function fncOrigemBanco() As String

    Dim strPrefix As String

    fncOrigemBanco = CurrentDB().Name & "\" & strPrefix & " "   '"caminho de origem do arquivo.accdb"

    End Function

    Porém me retorna o banco Front End da aplicação  mas gostaria de mostrar o Back End  atual se possível
    Se alguém puder me dar esta luz agradeço muito. Obrigado !
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  JPaulo em Ter 12 Set 2017, 11:30

    Ola;

    Para você saber ou mostrar o caminho do back end, tem de invocar pelo menos o nome de uma tabela vinculada;

    Teste por favor e retorne;

    Código:
    Public Function MostraCaminhoBackEnd()
    Dim strBackEnd As String
    Dim x As Integer
    'maximoaccess
    strBackEnd = CurrentDb.TableDefs("SuaTabelaVinculada").Connect

    x = InStrRev(strBackEnd, "=") + 1
    strBackEnd = Mid(strBackEnd, x)
        MsgBox strBackEnd
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    Re: [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  daygdson em Ter 12 Set 2017, 14:47

    Bom dia JPaulo, fiz conforme sua orientação, exibiu o nome do back-end em forma de mensagem, mas não é o que quero,  gostaria que informa-se em uma caixa não acoplada o caminho, tem como ? tentei usar o seguinte para carregar
    Código:
    Private Sub Form_Load()
    Me.txtLocalizaBE.Enabled = False
    txtLocalizaBE = MostraCaminhoBackEnd 'Preciso que a caixa não acoplada receba esta informação e não como tipo mensagem de notificação
    End Sub
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  JPaulo em Ter 12 Set 2017, 14:56

    Eu só lhe mostrei o caminho das pedras, para testar;

    Código:
    Public Function MostraCaminhoBackEnd() As String
    Dim strBackEnd As String
    Dim x As Integer
    'www.maximoaccess.com
    strBackEnd = CurrentDb.TableDefs("SuaTabelaVinculada").Connect

    x = InStrRev(strBackEnd, "=") + 1
    strBackEnd = Mid(strBackEnd, x)
        'MsgBox strBackEnd
    MostraCaminhoBackEnd = strBackEnd
    End Function

    Na origem da caixa de texto:

    Código:
    =MostraCaminhoBackEnd()


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]

    daygdson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 20/04/2017

    Re: [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  daygdson em Ter 12 Set 2017, 18:43

    JPaulo, mais uma vez seu conhecimento é admirável... funcionou perfeitamente, coloquei a função e no evento ao carregar

    Código:
    Private Sub Form_Load()
    Me.txtLocalizaBE.Enabled = False
    txtLocalizaBE = MostraCaminhoBackEnd
    End Sub

    E exatamente o que eu queria, apareceu o caminho do Back-End tanto local quanto em rede, perfeito !

    Obrigado mais uma vez, caso resolvido !!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Código VBA para exibir base de dados vinculada Back-end

    Mensagem  JPaulo em Ter 12 Set 2017, 19:16

    Fico feliz.
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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: Sab 18 Nov 2017, 01:06