إنشاء رقم سرى لكل جدول على حدة

[hanafymahmood]

السلام عليكم ورحمة الله وبركاته

لدى قاعدة بيانات بها عدة جداول أريد انشاء ياسوورد لفتح الجدول أو حذفه لكل جدول على حدة (نظرا لمشاركة قاعدة البيانات بين أكثر من مستخدم ) وشكرا

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

وعليكم السلام ورحمة الله وبركاته

لا يتم عمل باسورد على الجداول

ولكن يمكن التحكم في النموذج المرتبط بجدول عند فتحه بكلمة سر كالتالي

        If InputBox("الرجاء ادخال كلمة السر لفتح النموذج", "فتح النموذج") = "123" Then
            DoCmd.OpenForm "frm1"
        Else
            MsgBox "عفوا .. كلمة السر خاطئة ", vbOKOnly + vbCritical, "خطأ في كلمة السر"
            DoCmd.Close acForm, "frm1"
        End If

تحياتي

[hanafymahmood]

جزاكم الله خيرا