حذف جدول من قاعدة البيانات

[عفرنس]

ماهو كود حذف جدول أو أكثر من جدول في قاعدة البيانات ؟؟

[محمد أبوعبدالله]

تفضل اخي الكريم

    Dim tblName As String
    tblName = "tbl1"
    DoCmd.DeleteObject acTable, tblName

تحياتي

[عفرنس]

11 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

    Dim tblName As String
    tblName = "tbl1"
    DoCmd.DeleteObject acTable, tblName

تحياتي

عندي أكثر من جدول كيف احذفهم جميعا

[محمد أبوعبدالله]

تفضل اخي الكريم

    Dim tbl As TableDef
    DoCmd.SetWarnings False
    
        For Each tbl In CurrentDb.TableDefs
            If Left(tbl.Name, 4) = "MSys" Then
        Else
            DoCmd.DeleteObject acTable, tbl.Name
    
    DoCmd.SetWarnings True
    End If
    Next tbl

تحياتي

[عفرنس]

46 دقائق مضت, محمد أبوعبدالله said:

تفضل اخي الكريم

    Dim tbl As TableDef
    DoCmd.SetWarnings False
    
        For Each tbl In CurrentDb.TableDefs
            If Left(tbl.Name, 4) = "MSys" Then
        Else
            DoCmd.DeleteObject acTable, tbl.Name
    
    DoCmd.SetWarnings True
    End If
    Next tbl

تحياتي

هذا المطلوب ..

جزاك الله خيرا يا أخا العرب .