اذهب الي المحتوي
أوفيسنا

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


abumohamed

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

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

أريد حلا !

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

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

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

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

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

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

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

السلام عليكم

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

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

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 " فاذا أدخل المستخدم واحد سيحفظ التعديل و الا فلا

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information