Substituir tabela no access importando a do SQL via código

Boa tarde pessoal,


Estou precisando de ajuda para montar um código que ao rodar ele substitua a tabela que tem no access importando de um banco SQL.


Terá o mesmo nome que está no SQL.


Isto me ajudará bastante pois todo mês tenho que deletar as tabelas e importar manualmente. Eu não posso usar vínculo com o banco sql eu tenho que importar mesmo.

Você precisa que o código execute ao abrir a aplicação: https://support.office.com/pt-br/article/Criar-uma-macro-que-seja-executada-quando-voc%C3%AA-abrir-um-banco-de-dados-98ba1508-dcc6-4e0f-9698-a4755e548124?omkt=pt-BR&ui=pt-BR&rs=pt-BR&ad=BR

Executar um loop para excluir todas as tabelas do banco:

Código:

Dim dbs As DAO.Database
Dim i As Integer

Set dbs = CurrentDb

'Executa o loop em todas as tabelas
For i = dbs.TableDefs.Count - 1 To 0 Step -1
        ' Aqui você pode fazer a verificação exata de quais tabelas quer apagar
   If Not (dbs.TableDefs(i).Name Like "MSys*" Or dbs.TableDefs(i).Name Like "~*") Then
      dbs.TableDefs.Delete dbs.TableDefs(i).Name
   End If
Next i

Set dbs = Nothing

Usar o método DoCmd.TransferDatabase: https://msdn.microsoft.com/pt-br/library/office/ff196455.aspx

Exemplo:

Código:

DoCmd.TransferDatabase acImport, "ODBC Database", _
"Driver={SQL Server};Server=" & SQLServerNameStr & ";Database=" & DBNameStr & _
";Trusted_Connection=Yes", acTable, "dbo.TabeladoSql"