Notes

'--------------------------------------------------------------------------------------- ' Procedure : DeleteAttachedTbls ' Author : Daniel Pineault, CARDA Consultants Inc. ' Website : http://www.cardaconsultants.com ' Purpose : Deletes all the linked tables from the active database. It only removes ' the links and does not actually delete the tables from the back-end ' database. ' Copyright : The following may be altered and reused as you wish so long as the ' copyright notice is left unchanged (including Author, Website and ' Copyright). It may not be sold/resold or reposted on other sites (links ' back to this site are allowed). ' ' Revision History: ' Rev Date(yyyy/mm/dd) Description ' ************************************************************************************** ' 1 2011-Jun-10 Initial Release '--------------------------------------------------------------------------------------- Function DeleteAttachedTbls() On Error GoTo Error_Handler Dim db As DAO.Database Dim tdf As DAO.TableDef DoCmd.SetWarnings False Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then DoCmd.DeleteObject acTable, tdf.Name End If Next Error_Handler_Exit: DoCmd.SetWarnings True Set tdf = Nothing Set db = Nothing Exit Function Error_Handler: MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _ "Error Number: " & Err.Number & vbCrLf & _ "Error Source: DeleteAttachedTbls" & vbCrLf & _ "Error Description: " & Err.Description, _ vbCritical, "An Error has Occurred!" Resume Error_Handler_Exit End Function - See more at: http://www.devhut.net/2011/06/10/ms-access-vba-delete-all-linked-tables/#sthash.fdAcdzGp.dpuf


http://www.devhut.net/2011/06/10/ms-access-vba-delete-all-linked-tables/