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

[حربي العنزي]

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

طلبي مشروح داخل النموذج الرئيسي بالتفصيل الممل

ولكم جزيل الشكر والاحترام 

DbStudents20.6.rar

[jjafferr]

وعليكم السلام

 

هلا والله اخوي حربي ، هلا بالطلّه

 

الآن لازم تنادي الوحدة النمطية لقفل/فتح قفل حقول النماذج الفرعية:

Function Lock_Form_Controls(frm As String, L As Boolean)
    
    Dim ctl As Control
    
    For Each ctl In Me(frm).Form.Controls
        If ctl.ControlType = acTextBox Then
            ctl.Locked = L
        End If
    Next
    
End Function

.

و

لفتح القفل
بدل
Me.Frm_1!Degree.Locked = False

ننادي الوحدة النمطية
Call Lock_Form_Controls("frm_1", False)


للقفل
بدل
Me.Frm_1!Degree.Locked = True

ننادي الوحدة النمطية
Call Lock_Form_Controls("frm_1", True)

.

وبس

 

جعفر

938.DbStudents20.6.mdb.zip

[حربي العنزي]

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

نعم هذا هو المطلوب تماما 

الله لايحرمنا من شخصك الكريم والطيب جزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك يارب يارب