طريقة وضع رقم سري لكل تعديل

؟؟

اليك الكود التالي لتحقيق الغرض المطلوب, هذا الكود يقوم بعملية استعلام على ما يتم ادخاله في النموذج فاذا وجد انك أدخلت سجلا جديدا فعند الحفظ يخبر بأنه تم ادخال سجل جديد, أما في حالة القيام بتعديل على سجل قديم فانه يطالبك بكلمة المرور لكي يحفظ التعديلات.

ضع هذا الكود في حدث قبل التحديث لنموذج ادخال البيانات:

Dim m As Integer
Dim ctl As Control

Dim intnewrec As Integer

intnewrec = Me.NewRecord
If intnewrec = True Then
MsgBox " تمت اٍضافة سجل جديد "
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 & " لقد تم تعديل البيانات ,أدخل كلمة السر لحفظ التعديل?")

If m = 1 Then

Cancel = false

Else
Cancel = true
ctl.Undo
End If


End If
End If


Next ctl
End If

كلمة المرور للتعديل هي 1

بارك الله فيك

جزاك الله خير

هذا الكود من زمان ادور عليه

تحياتي

الله يجزاك الخير أخوي وماقصرت

أخوي واجهتني مشكلة في الكود

أي حقل أعدل فيه يطلب رقم السري

يعني لو عدلت في سجل واحد ثلاث حقول طلب مني ثلاث مرات الرقم السري

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

والله يعطيك العافية

في الرابط التالي شرح جميل للمطلوب مرفق بمثال للأخ صالح:

/index.ph...50entry308450

مشكور أخوي بس للأسف ما فهمت شرح الأخ صالح

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

والله يجزاك ألف خير

مازلت أنتظر أخي العزيز

جرب الكود التالي في نفس مكان الكود الأول:

If Me.NewRecord Then
'
Else
If Me.Dirty Then
If InputBox("رجاءا أدخل كلمة السر لتعديل البيانات", "تعديل البيانات") = "2" Then
Me.AllowEdits = True
Else
Me.Undo
End If
End If
End If

ألف شكر أخوي وفعلا هذا ما أريد

الله يجزاك خير ويوفقك

والله يزيدك من علمه