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

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

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

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

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

PrgDB3.rar

[jjafferr]

وعليكم السلام اخوي حربي

 

تفضل ، وكلمة السر 1 

Private Sub Form_Load()

        Me.Frm_1!Degree.Locked = True
        Me.Frm_2!Degree.Locked = True
        Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات"
        Me.cmd_Lock_Degree.ForeColor = vbBlack
End Sub

Private Sub cmd_Lock_Degree_Click()
On Error GoTo err_cmd_Lock_Degree_Click

    If Me.Frm_1!Degree.Locked = True Then
        
        If InputBox("رجاء ادخال كلمة السر") = Val(1) Then
            Me.Frm_1!Degree.Locked = False
            Me.Frm_2!Degree.Locked = False
            Me.cmd_Lock_Degree.Caption = "اقفل الدرجات"
            Me.cmd_Lock_Degree.ForeColor = vbRed
        Else
            MsgBox "لا تملك صلاحية تغيير الدرجة"
            Exit Sub
        End If
        
    Else
        Me.Frm_1!Degree.Locked = True
        Me.Frm_2!Degree.Locked = True
        Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات"
        Me.cmd_Lock_Degree.ForeColor = vbBlack
    End If
    
Exit_cmd_Lock_Degree_Click:
    Exit Sub
    
err_cmd_Lock_Degree_Click:

    If Err.Number = 13 Then
        MsgBox "لا تملك صلاحية تغيير الدرجة"
        Resume Exit_cmd_Lock_Degree_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

884.PrgDB3.mdb.zip

[ابو ياسين المشولي]

1 دقيقه مضت, jjafferr said:

وعليكم السلام اخوي حربي

 

تفضل ، وكلمة السر 1 

Private Sub Form_Load()

        Me.Frm_1!Degree.Locked = True
        Me.Frm_2!Degree.Locked = True
        Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات"
        Me.cmd_Lock_Degree.ForeColor = vbBlack
End Sub

Private Sub cmd_Lock_Degree_Click()
On Error GoTo err_cmd_Lock_Degree_Click

    If Me.Frm_1!Degree.Locked = True Then
        
        If InputBox("رجاء ادخال كلمة السر") = Val(1) Then
            Me.Frm_1!Degree.Locked = False
            Me.Frm_2!Degree.Locked = False
            Me.cmd_Lock_Degree.Caption = "اقفل الدرجات"
            Me.cmd_Lock_Degree.ForeColor = vbRed
        Else
            MsgBox "لا تملك صلاحية تغيير الدرجة"
            Exit Sub
        End If
        
    Else
        Me.Frm_1!Degree.Locked = True
        Me.Frm_2!Degree.Locked = True
        Me.cmd_Lock_Degree.Caption = "افتح قفل الدرجات"
        Me.cmd_Lock_Degree.ForeColor = vbBlack
    End If
    
Exit_cmd_Lock_Degree_Click:
    Exit Sub
    
err_cmd_Lock_Degree_Click:

    If Err.Number = 13 Then
        MsgBox "لا تملك صلاحية تغيير الدرجة"
        Resume Exit_cmd_Lock_Degree_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

884.PrgDB3.mdb.zip

دائما انت السباق اخي جعفر

لكن والله لم اشاعد ردك الى الان

بقوم برفع طريقتي

ثم بشوف طريقتك

للعل الكل يستفيد

[jjafferr]

بالعكس اخوي ابو ياسين ، ادلو بدلوك كذلك ، فزيادة الخير خيرين

 

جعفر

[ابو ياسين المشولي]

هذة طريقتي

الرقم السري 

123

PrgDB3.rar

تم تعديل يناير 19, 2018 بواسطه ابو ياسين المشولي

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

استاذي الفاضل الاستاذ القدير جعفر 

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

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

[ابو ياسين المشولي]

29 دقائق مضت, jjafferr said:

بالعكس اخوي ابو ياسين ، ادلو بدلوك كذلك ، فزيادة الخير خيرين

 

جعفر

تشابهت الطرق ولكنك كنت انت المبدع استاذ جعفر

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

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

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

اساتذتي الافاضل الاستاذ جعفر والاستاذ ابو ياسين 

بارك الله فيكم وجزاكم الله خيرا سائلا الله جل وعلا ان يمن عليكما بالصحة والعافية يارب يارب 

[ابو ياسين المشولي]

بارك الله فيك اخي حربي العنزي

بالتوفيق