[Microformt]

(29-09-14, 02:28 PM)vbnet كتب : .....

هذا الرابط راح يفيدك كثير(DAO Programming Code Examples)

كود :

' حذف جدول من قاعدة البيانات
Private Sub Command1_Click()
   On Error GoTo ErrHandle
   If MsgBox("هل أنت متأكد من حذف الجدول", vbYesNo + vbQuestion) = vbYes Then
       DBEngine(0)(0).TableDefs.Delete "soft1"
       MsgBox "تم حذف الجدول بنجاح"
   End If
Exit Sub
ErrHandle:
   MsgBox Err.Description
End Sub

.....

 اخي الكريم 
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
 تحياتي