Views

Histats

Vitrine

MS Access - Desvinculando Tabelas




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


✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias