MS Access - Desvinculando Tabelas

| Blog Office VBA | Blog Excel | Blog Access |

Desanexe todas as tabelas que desejar do MS Access. Pode ser uma tabela, uma planilha MS Excel ou qualquer outro objeto anexado.

Function UnLinkTmp (nTable As String)  

' Author: Date: Contact:  

' André Bernardes 24/09/2008 10:49  bernardess@gmail.com  

' Desvincula planilhas temporárias do MS Access atual. 

Dim tdf As TableDef  

Dim i As Integer  

Dim strFile As String  

Dim ThisFormName As String 

Let ThisFormName = "frmTarget" 

Let strFile = nTable  

Let i = 0 

For Each tdf In CurrentDb.TableDefs 

If tdf.Name = strFile And (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then

Let [Form_"frmTarget"].LblImportStatus.Caption = "Último objeto desanexado: " & _

tdf.Name & _ 

CHR(13) & CHR(10) & "(total Desanexado(s): " & i & ")"

CurrentDb.TableDefs.Delete tdf.Name 

End If

Next tdf Set tdf = Nothing 

End Function

 

Lembre-se de trocar a expressão "frmTarget", pelo nome do formulário que utilizar para informar ao usuário o que está acontecendo (no código não pode haver aspas). Também o nome do Label "LblImportStatus", pertencente ao mesmo FORM  deve ser substituido pelo nome do Label que desejar utilizar. 

Tags: VBA, Office, automation, Access, table, unlink, desanexar, desconectar