💡 دعوة لتجربة حماية الجداول من الإستيراد 💡

[Foksh]

في 29‏/11‏/2025 at 20:51, Bshar said:

اخفاء وحماية السجلات

اعتذر عن التأخير .. تفضل هذا الملف المرفق ، حيث يحتوي الدالة البسيطة :-

 

Public Sub SetTableHiddenState(ByVal strTableName As String, ByVal hide As Boolean)

    On Error GoTo ErrHandler

    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = CurrentDb
    db.TableDefs.Refresh

    Dim t As DAO.TableDef
    Dim found As Boolean: found = False
    For Each t In db.TableDefs
        If t.Name = strTableName Then
            found = True
            Exit For
        End If
    Next t
    If Not found Then
        MsgBox "حدثت مشكلة أثناء تأمين المكونات", vbExclamation + vbMsgBoxRight, ""
        Exit Sub
    End If
    Set tdf = db.TableDefs(strTableName)
    If hide = True Then
        tdf.Attributes = tdf.Attributes Or dbSystemObject Or dbHiddenObject
    Else
        tdf.Attributes = tdf.Attributes And Not (dbSystemObject Or dbHiddenObject)
    End If
    Application.RefreshDatabaseWindow
    Exit Sub
ErrHandler:
    MsgBox "حدث خطأ أثناء تأمين مكونات البرنامج" & Err.Description, vbCritical + vbMsgBoxRight, "خطأ"
End Sub

* الدالة جزء من مشروع سابق .

 

الملف المرفق :-

Hide TBL.accdb

[Bshar]

استاذنا  الخبير المتألق @Foksh  اشكرك كل الشكر ,, وسع الله رزقك وزادك علما وكفاك شرور الناس