وضع كلمة مرور على تعديل البيانات

اخي الفاضل علي قدري

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

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

الرقم السري لتعديل البيانات هو 3253865

ALAREDH_TGARER.rar

اختكم

زهره

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

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

لحظات ونقوم بالتعديلات المطلوبه

الأخت زهرة يعطيك الصحة دائماً في القمة

أخي الكريم في حدث زر الحفظ بعد السطر التالي :

   DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

ضع السطر التالي :

   Me.AllowEdits = False

شكرا لك اخ مصلح وشكرا لك اختي زهرة جعل الله ايامك زهور في زهور هل من الممكن الاستغناء عن انبت بوكس وتكتب الباسوووووووووورد في مربع نص ولكم خالص التقدير والتحية

اخي الفاضل

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

بناء على طلبك تم وضع خيار كلمة المرور في مربع نص بداخل النموذج وتشمل الاضافة ايضا نفس كلمة المرور على زر اضافة سجل

قم بالتجربه وابلغنا بالنتيجه وحاول ان تكتب في احد مربعات النص اذا استطعت ابلغني

وهذا ملفك بعد التعديل الاخير

ALAREDH_TGARER_LAST.rar

اختكم

زهره

بعد ادخال كلمة المرور تظهر الرسالة بان كلمة المرور صحيحة ولكن لا يتم التعديل

نأسف اشد الاسف اخي الكريم على الخطأ الغير مقصود فقد نسيت عبارة End IF في بداية الكود ولم انتبه لها وهي التي تقوم بإنهاء الكود مباشرة وتم التعديل واصبح البرنامج جاهز

ملاحظة هامة جدا : عندما يفتح البرنامج فإنه يفتح على سجل معين اذا رغبت بتعديل السجل فقم إدخال كلمة السر ومن ثم اضغط على زر امر تعديل بيانات وقم بالتعديل المطلوب وبمجرد الخروج من السجل او اختيار سجل اخر سيتم اغلاق هذا السجل مباشرة .

اذا رغبت في اضافة سجل جديد فقم بالضغط على زر اضافة واكتب كلمة السر وسترى البرنامج قد نقلك الى سجل جديد لا تضغط على زر امر تعديل بيانات لانه خاص بالتعديل فقط

حاول التجربة واذا كان هناك اي مشكلة ارجو ابلاغي

ALAREDH_TGARER_LAST2.rar

اختكم

زهره

ياجماعة واحد يشرح لنا الطريقة مبسطة مو معقوله تعدلون على البرنامج بدون ماتعلمونا الطريقة . كذا مااستفدنا شيئ

اتمنى من الاخت زهرة وباقي الاخوان انهم يشرحون طريقة تركيب الرقم السري للتعديل .

وبعدين احنا حملنا البرنامج نبي نشوف الطريقة ماقدرت إذا فتحت البرنامج بوضع التصميم ماتطلع النماذج .

ولكم تحياتنــــــــــــــــــــــــــــــــــــا ،،،

اخي الفاضل MHM

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

اولا : انا لا اعلم لماذا هذا التذمر في توجيه السؤال بهذه الطريقه

هل سألت ولم نجيبك على اسألتك انظر هنا الشرح المصور ردا على سؤالك

/index.php?showtopic=95909

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

فكيف تأتي وتقول اننا نعدل ولا نشرح الطريقه

يفترض بك يا أخي الكريم ان تضع مشاركة او سؤال منفصل عن هذه المشاركة وتضع مثالك وتطلب فيه عدم التعديل على البيانات الا بكلمة مرور ليتم مناقشتك في مشاركتك وتعريفك كيف تم التعديل على مثالك .

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

عموما لم يحصل الا كل خير اليك طريقة وضع كلمة مرور على تعديل البيانات

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.NewRecord Then
Else
If Me.Dirty Then
If InputBox("الرجاء ادخال كلمة السر لتعديل البيانات", "تعديل البيانات") = "123" Then
Me.AllowEdits = True
Else
MsgBox "عفوا .. كلمة السر خاطئة ", vbOKOnly + vbCritical, "خطأ في كلمة السر"
Me.Undo
End If
End If
End If
End Sub

حاول تعدل على اي حقل من الحقول ثم اضغط زر الحفظ الذي يمثله علامة الصح وسترى صندوق حواري يطالبك بكلمة سر

الكلمة هي 123

في حالة الخطأ في كلمة السر لن يتم التعديل والحفظ وفي خالة انها صحيحة سيتم التعديل مباشرة

وهذا مثال على ذلك

za_Duty_up.rar

اختكم

زهره

رائئئئع راااائع

فعلاً ما شاء لله تبارك لله عليك ابلة زهرة ، 3 مواضيع في موضوع واحد

شكراً لك

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

الأخت الكريمة السلام عليكم ورحمة الله وبركاته وبعد

الطريقة رائعة بحق وانا شخصياً أستخدمها وقد اقتبستها من مشاركة قديمة لحضرتك ولكن هل من إضافة لنفس الكودبحيث يظهر الباسورد على شكل نجوم ولا تظهر الارقام ولك منى الدعاء بصلاح الحال