ما هو كود المنع والسماح بالتعديل ؟

[abumohamed]

يوجد لدي نموذج تعبئ فيه البيانات مثل الاسم والعمر وبعض المعرفات الشخصية

المطلوب هو انه عند ادخال المعلومات والانتهاء من ادخالها مثلا نرجع الى الوراء لمشاهدة السجل الذي سجلنا ان لا اريد ان يتم تحريره هذا اولا ثانيا قمت بعمل نموذج واسميته edit fail وقمت بوضع داخل هذا النموذج مربع نص وقناع الادخال باسووورد وبعد ذلك ذهبت الى النموذج الاساس التي تدخل فيه البيانات وقمت بعمل زر يفتح لي نموذج edit fail الخلاصة ماهو الكود الذي اضعه في نموذج edit fail حيث لو تطابقت معطيات الباسوورد يسمح لي بالتعديل في السجل وبعد التعديل والحفظ يرجع اوتوماتيكي الى قفل خاصية التحرير

واسف على الاطالة

[abumohamed]

معقولة مافي حد عارف الطريقة

[محمدحمدي]

من الافضل رفع المثال

كي نتمكن من التعديل عليه ومساعدتك انشاء الله

تقبل تحياتي ..........

[التقني]

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

أخي الكريم أبو محمد

بداية موضوعك كان يحمل عنوان :

أريد حلا !

وهذا مخالف لقواعد المشاركة فى المنتدي

إذ أن العنوان يجب أن يدل على محتواه ومضمونه

ثانيا كان الأجدر بك أخي الكريم رفع موضوعك كما ذكر لك آنفا الأخ محمد حمدي ، بدل من فتح موضوع جديد :

31 مشاهد ومافيه رد, وينكم ياخبراء

ثالثا : ابدأ أنت بطرح موضوعك على شكل مثال يتم التعديل عليه

ولك مني أطيب التحية والتوفيق

تم تعديل فبراير 17, 2006 بواسطه التقني

[rudwan]

السلام عليكم

حفظك الله أخي التقني على تنبيهك

الأخ ابو محمود , أن أحببت استخدم هذا الكود

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim m As Integer
Dim ctl As Control

Dim intnewrec As Integer

    intnewrec = Me.NewRecord
    If intnewrec = False Then
       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 & " value already changed Enter your password to save ?")

If m = 1 Then

Cancel = False


Else
Cancel = True
ctl.Undo
End If


End If
End If


Next ctl
End If

End Sub

الفكرة تقوم على جعل خاصية قفل الحقول متاحة اي التعديل متاح , حيث يمكنك ادخال سجل جديد بدون اي حرج , لكن عند الذهاب الى سجل سابق و محاولة تعديله , و قبل الخروج من ذلك السجل سيقارن قيم الحقول ففي حال وجد اي تعديل عليها سيرسل رسالة بأن قيمة الحقل الفلاني قد تغيرت , أدخل كلمة السر لحفظ التعديل , و هي هنا " 1 " فاذا أدخل المستخدم واحد سيحفظ التعديل و الا فلا

[salah mohamed]

جزيل الشكر لكل من ساهم فى مساعدة اعضاء منتدانا الحبيب