كود حذف الجداول المرتبطة

[tiger wanted]

اريد الكود الخاص بحذف الجداول المرتبطة وشكرا 

[محمد احمد لطفى]

تفضل هنا 
 

اقتباس

 

 

[Moosak]

الموضوع الذي أشار له أخي  محمد احمد لطفى  يقوم بحذف الجداول المرتبطة بشكل كامل  ..

ولمزيد فائدة .. هذا الكود يقوم بإلغاء ارتباط الجداول ( بدون حذفها من البرنامج ) :

Public Function DeleteLinks() As Boolean

On Error GoTo Err_Handler

Dim dbs As DAO.Database
Dim lng As Long

Set dbs = CurrentDb

With dbs.TableDefs
For lng = .Count - 1 To 0 Step -1
If (.Item(lng).Attributes And dbAttachedTable) <> 0 Then
.Delete .Item(lng).Name
End If
Next lng
End With

DeleteLinks = True

Exit_Handler:
On Error Resume Next
Set dbs = Nothing
Exit Function

Err_Handler:
MsgBox Err.Description, vbExclamation, "Error No: " & Err.Number
Resume Exit_Handler

End Function

 

 

🙂 

[tiger wanted]

شكرا لكم جميعا