[Resolvido]Código para revincular tabelas automaticamente

Amigos, bom dia!

Tenho o seguinte problema, meu BD trabalhas com tabelas .csv vinculadas
preciso criar um código para que as mesmas sejam revinculadas e consequentemente
atualizadas automaticamente, tipo ao abrir o BD.

Crie um formulário e o defina como formulário de abertura.
No evento OnLoad dele utilize o seguinte código:

Código:

On Error GoTo Erro

Dim tdf As TableDef
Dim sCurrentTDF As String

' Loop through all tables in the database.
For Each tdf In CurrentDb.TableDefs
   ' If the table has a connect string, it's a linked table.
   If Len(tdf.Connect) > 0 Then
      sCurrentTDF = tdf.Name
      tdf.RefreshLink 'Relink the table
   End If
Next tdf

Erro:
 Call MsgBox("Houve um erro ao atualizar a tabela: '" & sCurrentTDF & "':  " & vbCrLf & vbCrLf & Err.Description)

Marcos

Criei a tabela mas esta dando erro
segue o BD, nao sei se fiz algo errado.

Me desculpe, o arquivo não estava anexado

Não possuo o Access instalado, mas qual erro que deu?
Se possível poste o código do erro e o trecho em que está dando erro (o código que fica amarelo quando dá erro).

Marco Messa, O erro é referente ao caminho que foi Vinculado as tabelas...




Recomendo ao Amigo baixar o aplicativo Maestro do mestre Avelino Sampaio, pois la tem essa parte pronta.
Qnd abrir o BD e não encontrar a tabela Vinculada ele abre formulário para localizar o BD...

http://www.usandoaccess.com.br/dicas/novidades-aplicativo-maestro-v4.asp?id=1

FabioPaes eu vi por cima o exemplo do Avelino, e creio que seja apenas para vincular tabelas de arquivos do Access, no caso em questão são arquivos .csv. Talvez o erro da sua máquina seja diferente pois não está na mesma estrutura do que o do ARIPO.
Porém, talvez ele possa reaproveitar o código do Avelino para fazer algo parecido, boa dica.

Verdade, o erro dele pode ser Outro... So aguardar o autor se pronunciar!!!

Ate mais!

Amigos, boa noite!

Realmente não consegui resolver o problema, o mesmo continua apresentando aquele erro.
testes também com as extensão .xls e não deu certo, se alguém puder me ajudar
desde já agradeço

E ai, alguem pode me ajudar.

E ai alguém tem alguma sugestão?

ARIPO, foi um erro meu, apenas esqueci de fazer a verificação do código de erro.
A verificação está sendo feita corretamente.

Código:

   On Error GoTo Erro
    
    Dim tdf As TableDef
    Dim sCurrentTDF As String
    
    ' Percorre todas as tabelas da base
    For Each tdf In CurrentDb.TableDefs
        ' Se a tabela tiver uma string de conexão significa que é uma tabela vinculada
        If Len(tdf.Connect) > 0 Then
            sCurrentTDF = tdf.Name
            tdf.RefreshLink ' Atualiza o link
        End If
    Next tdf
    
Erro:
    ' Erro ao atualizar
    If Err.Number = 3011 Then
        MsgBox "Houve um erro ao atualizar a tabela: '" & sCurrentTDF & "'"
    ElseIf Err.Number <> 0 Then
        MsgBox Err.Description, vbCritical, "Erro número: " & Err.Number
    End If

Veja acima que faltou apenas um if pra verificar se houve erro.

Abs.

Marco, desculpe pela demora

agora deu certo, muito obrigado

Que bom que resolveu.

Não esqueça de marcar o post que resolveu a dúvida em qualquer tópico que abrir, pois assim outros usuários poderão usar como base.


Abs.

Olá a todos,
Fabio, é como o colega disse, aguardamos que coloque o tópico como resolvido.

Veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Me desculpe pela demora