حماية صفحات في النموذج

[faife]

السلام عليكم

المرفق مثال عن حماية الصفحة في النموذج برقم سري اريد التعديل على المثال بحيث ادخل الحماية على عدة صفحات وليس صفحة واحدة اي كل صفحة برقم سري

تحياتي

pag1.mdb

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

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

غير السطر

If TabCtl0.Value = 1 Then

الى

If TabCtl0.Value = 1 Or TabCtl0.Value = 2  Then

او الى التالي اذا اردت جميع التبويبات بما في ذلك الصفحة الرئيسية

If TabCtl0.Value = 0 Or TabCtl0.Value = 1 Or TabCtl0.Value = 2 Then

 

تحياتي

[faife]

بارك الله فيك اخي محمد حل جميل جدا .... ولو تطفلت عليك بسؤال أخر اعذرني ... كيف استطيع أن اجعل  لكل صفحة رقم سري مختلف ... بارك الله فيك

[faife]

كيف استطيع أن اجعل  لكل صفحة رقم سري مختلف ... بارك الله فيكم

[faife]

ارجو أخي العزيز افادتي في عملية وضع رقم سري مختلف لكل صفحة لأن المثال يعطي رقم سري واحد لكل الصفحات وأنا اريد رقم سري مختلف لكل صفحة على حدة

[Barna]

في ٢٨‏/١١‏/٢٠٢٠ at 03:31, faife said:

ارجو أخي العزيز افادتي في عملية وضع رقم سري مختلف لكل صفحة لأن المثال يعطي رقم سري واحد لكل الصفحات وأنا اريد رقم سري مختلف لكل صفحة على حدة

بعد اذنك استاذي القدير محمد

استخدم هذا مع تعديل مايلزم ...

    Select Case TabCtl0
     Case Is = 0
If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "1" Then
MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه "
Else
MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية"
'Form.AllowEdits = True
End If
        
    Case Is = 1
If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "2" Then
MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه "
Else
MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية"
'Form.AllowEdits = True
End If
    Case Is = 2
If InputBox("أدخل كلمة المرور للتعديل ", "حماية التعديل ") <> "3" Then
MsgBox " كلمة المرور غير صحيحة ", vbInformation, " تنبيه "
Else
MsgBox "كلمة المرور صحيحة ", vbInformation, " تنبية"
'Form.AllowEdits = True
End If
    End Select