بسم الله الرحمن الرحيم
الاخوة الكرام لقد اخذت هذا الكود من هذا المنتدى العزيز قبل فترة, ووظيفة الكود انة يمنع التعديل في النموذج الا بادخال كلمة سر. ويوضع قبل التحديث.
هناك عيب بسيط في هذا الكود انة لا ينطبق على الزر check Box , اي انك تغير قيمتها من نعم الى لا او العكس دون اي تحكم او تدخل من الكود.
هل بالامكان ايجاد حل لمنع جميع الازراز والعناصر من التعديل الا بكلمة سر وشكرا.
Dim m As Integer
Dim ctl As Control
Dim intnewrec As Integer
intnewrec = Me.NewRecord
If intnewrec = True Then
MsgBox " New record added "
Else
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl.OldValue <> ctl.Value Then
m = InputBox(ctl.ControlName & " data is changed successfully ,Pleas write the password to save the changed data?")
If m = 1 Then
Cancel = False
Else
Cancel = True
ctl.Undo
End If
End If
End If
Next ctl
End If