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


2 participantes

    [Resolvido]Dúvida ao executar função de vinculo

    messias_rf
    messias_rf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/03/2016

    [Resolvido]Dúvida ao executar função de vinculo Empty [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  messias_rf 1/5/2016, 03:50

    Boa noite, Mestre.

    Estou novamente precisando da estimada ajuda dos amigos.
    Estou tentando verificar o vinculo das tabelas de um back-end, após muitas consultas/pesquisa consegui localizar o código abaixo, criado pelo Mestre JPaulo, testei e atende as minhas necessidades, contudo não estou conseguindo fazer com que se td os vincuilos estiverem ok, que o formulário de login seja aberto e se ocorrer algum erro no vinculo, que o formulário de vinculo seja aberto para que o usuário informe o caminho do back-end.
    Desde já agradeço a grande ajuda que os senhores tem prestado a todos os membros desse fórum.

    Código:
    Option Compare Database

    Public Function VerificaTabelaVinculada()
    'By JPaulo ® Maximo Access 2009
        On Error GoTo Err_VerificaTabelaVinculada
        Const conTabela As String = "tb_Usuario"

    'A tabela vinculada terá um string de ligação cujo comprimento tem de ser > 0
        If Len(CurrentDb.TableDefs(conTabela).Connect) > 0 Then

    'Sabemos que conTabela é uma tabela vinculada, mas será o vinculo é válido?
    'A próxima linha de código irá gerar erros 3011 ou 3024, se não for valido"

            CurrentDb.TableDefs(conTabela).RefreshLink
    'Se você chegar a este ponto, é porque você tem a tabela válida e vinculada.
        Else
    'Se o comprimento da string de ligação for zero (0) então devolve a mensagem.
            MsgBox "*" & conTabela & "* é uma tabela normal, sem vinculo.", vbCritical, "Erro"
        End If

    Exit_VerificaTabelaVinculada:
        Exit Function

    Err_VerificaTabelaVinculada:
        Select Case Err.Number
            Case 3265
                MsgBox "*" & conTabela & "* não existe.", vbCritical, "Erro"
            Case 3011, 3024    'Tabela ligada não existe neste diretorio.
                MsgBox "*" & conTabela & "* tabela ligada não é valida.", vbCritical, "Erro"
            Case Else
                MsgBox Err.Description & Err.Number, vbExclamation, "Erro na função VerificaTabelaVinculada."
            End Select
       Resume Exit_VerificaTabelaVinculada
    End Function
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dúvida ao executar função de vinculo Empty Re: [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  JPaulo 3/5/2016, 14:47

    Assim;

    Código:
    Public Function VerificaTabelaVinculada()
    'By JPaulo ® Maximo Access 2009
        On Error GoTo Err_VerificaTabelaVinculada
        Const conTabela As String = "tb_Usuario"

    'A tabela vinculada terá um string de ligação cujo comprimento tem de ser > 0
        If Len(CurrentDb.TableDefs(conTabela).Connect) > 0 Then

    'Sabemos que conTabela é uma tabela vinculada, mas será o vinculo é válido?
    'A próxima linha de código irá gerar erros 3011 ou 3024, se não for valido"

            CurrentDb.TableDefs(conTabela).RefreshLink
    'Se você chegar a este ponto, é porque você tem a tabela válida e vinculada.
        DoCmd.OpenForm "SeuFormLogin"
        Else
    'Se o comprimento da string de ligação for zero (0) então devolve a mensagem.
            MsgBox "*" & conTabela & "* é uma tabela normal, sem vinculo.", vbCritical, "Erro"
        End If

    Exit_VerificaTabelaVinculada:
        Exit Function

    Err_VerificaTabelaVinculada:
        Select Case Err.Number
            Case 3265
                MsgBox "*" & conTabela & "* não existe.", vbCritical, "Erro"
                    DoCmd.OpenForm "SeuFormNovoVinculo"
            Case 3011, 3024    'Tabela ligada não existe neste diretorio.
                MsgBox "*" & conTabela & "* tabela ligada não é valida.", vbCritical, "Erro"
                    DoCmd.OpenForm "SeuFormNovoVinculo"
            Case Else
                MsgBox Err.Description & Err.Number, vbExclamation, "Erro na função VerificaTabelaVinculada."
            End Select
       Resume Exit_VerificaTabelaVinculada
    End Function


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new Instruções SQL como utilizar...
    messias_rf
    messias_rf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/03/2016

    [Resolvido]Dúvida ao executar função de vinculo Empty Re: [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  messias_rf 3/5/2016, 15:44

    Bom dia, Mestre JPaulo.

    Até ai eu entendi, mais como eu declaro para que a função seja executada no momento em que o DB é inicializado para que esse teste seja realizado?
    Já tentei fazer uma macro AutoExec, porém não sei que valor tenho que colocar.
    Me desculpe pela ignorância, mas é que estou engatinhando no VBA do Accesss.
    Desde já agradeço a valiosa ajuda prestada.
    messias_rf
    messias_rf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 28/03/2016

    [Resolvido]Dúvida ao executar função de vinculo Empty Re: [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  messias_rf 4/5/2016, 14:45

    Consegui colocar o código para executar, apenas criando uma macro AutoExec, definindo para executar o código.
    Agradeço a atenção de tds principalmente ao mestre JPaulo.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dúvida ao executar função de vinculo Empty Re: [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  JPaulo 4/5/2016, 16:52

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Dúvida ao executar função de vinculo Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Dúvida ao executar função de vinculo Empty Re: [Resolvido]Dúvida ao executar função de vinculo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:11