كود منع التعديل على السجلات السابقة فى النموذج

[mom20088]

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

اذا كان عندى نموذج رئيسى وبه نموذجيين فرعيين

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

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

 

اذا كان من الافضل ان اضع زر تعديل كيف اضع زر تعديل لكل النماذج الفرعية والرئيسية معا فى زر واحد

 

شكرا

[ابو جودي]

ممكن مرفق لو تكرمت الله يرضى عليك

على العموم تفضل انظر الى هذا المرفق عل به المراد

ولى نصيحة وعن تجربة
اجعل فورم خاص بعرض البيانات لا يقبل التعديل 
واجعل فورم خاص بادخال البيانات لا يستعرض البيانات السابقة لحمايتها من التعديل- مجرد فكرة وقد اكون مخطئ

تعديل البيانا بكلمة سر.rar

[mom20088]

شكرا أخى الكريم على مجهودك

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

اريد التعديل على كل النماذج بزر واحد

شكرا

[ابو جودي]

طيب ممكن مرفق لو تكرمت

[mom20088]

تفضل اخى الكريم

اريد عمل الكود فى نموذج اضافة اذن الاضافة

كارت الصنف.rar

[ابو جودي]

في 9/25/2016 at 14:22, mom20088 said:

تفضل اخى الكريم

اريد عمل الكود فى نموذج اضافة اذن الاضافة

كارت الصنف.rar

كلمة المرور =  333

كارت الصنف-up.rar

[mom20088]

شكرا أخى الكريم على مجهودك معى

[ابو جودي]

14 ساعات مضت, mom20088 said:

شكرا أخى الكريم على مجهودك معى

الشكر لله
تحت امرك 

[mom20088]

السلام عليكم

مع الاسف الكود لايعمل عندى والخطا فى هذا الكود

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
                        Optional YPos, Optional HelpFile, Optional Context) As String
    Dim lngModHwnd As Long, lngThreadID As Long

    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

    InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
    UnhookWindowsHookEx hHook

احتاج كود لايسمح بالتعديل على السجلات السابقة الا بكلمة سر ويسمح بالاضافة على السجلات الجديدة فقط

حاولت استخدام  هذا الكود البسيط فى النموذج (بعد التحديث) ولكنه فى السجلات الجديدة عندما اضيف بيانات فى اول حقل يسمح بالاضافة وبعد ذلك يمنع الاضافة فى باقى الحقول الفارغة لماذا؟ 

me.allowedits=false

شكرا

 

[mom20088]

للرفع

[رمهان]

في 9/25/2016 at 20:53, mom20088 said:

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

اذا كان عندى نموذج رئيسى وبه نموذجيين فرعيين

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

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

 

اذا كان من الافضل ان اضع زر تعديل كيف اضع زر تعديل لكل النماذج الفرعية والرئيسية معا فى زر واحد

 

شكرا

هل تقصد انه فقط للسجلات السابقة لايمكن التعديل اما سجلات جديده فيمكن ؟ وكيف لو ادخل المستخدم سجلين في جلسته ثم اراد ان يعدل على احدهما . هل يمكن التعديل .؟

ارجو التوضيح اكثر

[mom20088]

السلام عليكم

انا اقصد السجلات السابقة ؟ فقط اما السجلات الجديدة يسمح بالتعديل فيها

[رمهان]

6 ساعات مضت, mom20088 said:

السلام عليكم

انا اقصد السجلات السابقة ؟ فقط اما السجلات الجديدة يسمح بالتعديل فيها

معليش الموضوع يحتاج توضيح اكثر

مثلا فتحت النموذج وبه 10 سجلات سابقة هنا لا استطيع التعديل ! ثم تم ادخال 5 سجلات هنا اعدل عادي بدون كلمة مرور ! قفلت النموذج وفتحته مرة ثانية خلاص نفس القصة السابقة يصبح ال 15 سجل لا تعدل الا بكلمة مرور !

وهكذا

هل تصوري هذا هو المطلوب ام لديك تصحيح ؟

[mom20088]

السلام عليكم

تصورك صحيح ومنتظر الرد

[رمهان]

هذا مثال

افتح النموذج tbl_main

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

السجلات الجديده يتم تعديلها . السابقة لابد من النقر على تعديل ثم ادخال الباس وورد 123

بالتوفيق

New Microsoft Access Database (4).rar

[mom20088]

السلام عليكم

شكرا اخى الكريم

[حربي العنزي]

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

بعد اذن اخي واستاذي الفاضل mom20088 لانها مشاركته 

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

ومحتاج هكذا تعديل 

سائلا الله جل وعلا ان يمن عليكما بالصحة والعافية يارب

 

[رمهان]

3 ساعات مضت, حربي العنزي said:

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

بعد اذن اخي واستاذي الفاضل mom20088 لانها مشاركته 

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

ومحتاج هكذا تعديل 

سائلا الله جل وعلا ان يمن عليكما بالصحة والعافية يارب

 

تفضل

New Microsoft Access Database (4).rar

[mom20088]

شكرا اخى الكريم

[الحلبي]

الاخوة الافاضل حياكم الله

جميل جدا المثال الدي يبين معرفة تعديل البيانات بكلمة سر المطروح من استادنا / رمهان جزاه الله كل خير علي ما يقدمه لنا

ولكن اريد ان اعرف ما وظيفة الاكواد التالية حتي يمكن الاستفادة منها ووضعها في امور اخري وهي :

1. CurrentRecord
2. RecordsetClone
3. RecordCount
    

[رمهان]

حياك الله اخي  الاستاذ حلبي

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

2. هذه خاصية للنموذج وهي عبارة عم مجموعة سجلات النموذج وهي من نوع الكائن recordset 

3. تعيد عدد سجلات النموذج وهي خاصية للكائن recordsetclone  فكاني اقول عدد سجلات النموذج

[الحلبي]

استاذنا / رمهان  حياك الله

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

لك كل احترام وتقدير

[حربي العنزي]

شكرا جزيلا لك استاذي الفاضل رمهان سائلا الله جل وعلا ان يمن عليك بالصحة والعافية يارب

[عبدالعزيز محمد]

السلام عليكم 

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

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

[Shivan Rekany]

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

اي ممكن

38 دقائق مضت, عبدالعزيز محمد-محب البرمجة said:

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

اي ممكن
تكدر