Duvida Vincular Tabelas

Olá pessoal minha duvida onde coloco meu formulário para vincular as tabelas?

Quero que o formulário só abra quando as tabelas não estiver vinculadas.

Agravina escreveu:Quero que o formulário só abra quando as tabelas não estiver vinculadas.

No evento ao abrir do formulário

Código:

Dim tbl As TableDef
   
    For Each tbl In CurrentDb.TableDefs
   
        If Eval("""" & Left(tbl.Name, 4) & """ not in (""usys"",""msys"")") Then
            If tbl.Connect <> "" Then
                Call MsgBox("Não vou abrir para vincular! Já existem tabelas vinculadas.")
                Cancel = True
                Exit Sub
            End If
        End If
    Next tbl

Olá Amigo
Minha ideia é quando abrir o form principal só abrir o form para vincular tabelas se as mesmas não estiverem vinculadas.

Qual evento eu devo colocar no form principal?

Acho que ficaria melhor vincular automaticamente ao abrir o sistema.
se não achar vincula ,como faço isso?

Veja
usandoaccess.com.br/tutoriais/vinculando-tabelas-com-barra-de-progresso.asp?id=1

Um ótimo artigo com um ótimo exemplo para estudo. Certamente resolve seu problema.

Olá a todos,

Alexandre, esse artigo do mestre Avelino Sampaio é excelente.
No entanto como diz o nosso JPaulo "existe muitas maneiras de fazer Nestum".

Veja por exemplo no formulário frm_logim a chamada da função fncTabelaEstaLigada do tópico abaixo se ajuda:
https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

Abraço a todos

mestre Alvaro, obrigado por participar. Conheço muitos tópicos para apontar, mas sempre passa algum despercebido. Obrigado por indicar.

Agravina, avançou aqui?

Aguardamos retorno...