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

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

قام بنشر (معدل)

ما زلنا نستفاد من تعاليمكم لنا أساتذتنا الأفاضل جزاكم الله عنا كل خير

المثال غاية في الروعة وضميته في مكتبتي منذ فترة والآن احتجت إليه وطبقته

من هذا الرابط http://www.officena.net/ib/index.php?showtopic=24746#entry116128

 

ولكن واجهتني مشكلة لأن بالنموذج الذي طبقت عليه المثال به نموذج فرعي وتظهر أن هناك مشكلة في سطر اسم النموذج الفرعي

Sub_Frm.Value = Sub_Frm.OldValue

أتمنى أن يكون لها حل

 

خالص تحياتي

تم تعديل بواسطه أبـوخليل
فصل المشاركات في موضوع مستقل
قام بنشر

عزيزي عبدالرحمن

يدور في مخيلتي شيئا محيرا يبدو انه ما تعنيه في سؤالك !

فحبذا ارفاق ملف وشرح ماتريد او بموضوع جديد ! وستجد الحل باذن الله !

 

تحياتي

قام بنشر

خالص تحياتي لك أستاذي الفاضل رمهان... شاكر اهتمامك أكرمك الله

 

تفضل أستاذي الكريم المرفق

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

Forms!Sub_EznADD.Value = Forms!Sub_EznADD.OldValue

ولكن عندما استخدم زر الرجوع والتالي للسجلات لا يعمل ويظهر به خطأ

 

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

Me.Sub_EznADD.Form.AllowAdditions = True

شاكر أفضالك وكل الإخوة معلمينا الأفاضل جزاكم الله عنا كل خير

test.rar

قام بنشر

عزيزي عبدالرحمن

انا لم افهم المشكلة الى الان !!

وبخصوص الكود الأول فليس صحيحا لان الكائن النموذج الفرعي ليس له قيمة ! والخاصية oldvalue  خاصة بالعناصر على انموذج مثلا مربع نص مربع تحرير وسرد !

هذا ماظهر لي نظريا !

 

حبذا شرح انت تريد ان تعمل ماذا ؟ مثلا تقول اريد عند التراجع يتم إعادة القيم السابقة للعناصر ... وهكذا شرح .

 

تحياتي

قام بنشر

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

 

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

 

ويبدو أن هذه المشكلة تسببت في تعطيل كود التنقل بين السجلات في أزرار (السابق - التالي) ويا حبذا لو تم حلها

حتى أنني أردت أن أجعل الفاتورة ضريبية من خلال خانات اختيار وقمت بإضافتها بعدما أضفت مثال منع التعديل على النموذج

والظاهر من كثرة محاولاتي أحدثت خلل لا أعلم ما هو ولكن الواضح أمامي الآن هو كما تفضلت بإرجاع قيم النموذج الفرعي عند إلغاء التعديل مثل الحقول في الرئيسي

 

خالص تحياتي

قام بنشر

لي عودة اخي عبدالرحمن عند اتاحة الفرصة للجلوس امام الحاسوب .

  • 2 weeks later...
قام بنشر (معدل)

عزيزي عبدالرحمن

الموضوع هذا هو احد التحديات في الاكسس ! لماذا وكيف انظر مشاركتي ومحاولتي هنا وبمنتدى شقيق !

http://www.accesswordkingdome.com/forum/forum/برنامج-مايكروسوفت-آكسس/16695-عمل-زر-تراجع-عن-التسجيل/page2?t=16222&p=141106

وضعت الرابط لحفظ وقتي واسمح لي بذلك !

 

ان لم تصل للفكرة عد لنا وسنعود لك !

 

بالتوفيق

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

وجدت كود لأختنا الفاضلة للدكتورة زهرة جزاها الله كل خير

On Error GoTo Err_cmd9_Click
    
DoCmd.RunCommand acCmdUndo
Me.Tab1.Pages(1).SetFocus
SendKeys "{ENTER}", True
DoCmd.RunCommand acCmdUndo
Me.Tab1.Pages(0).SetFocus
SendKeys "{ENTER}", True
 
Exit_cmd9_Click:
    Exit Sub
 
Err_cmd9_Click:
    MsgBox Err.Description
    Resume Exit_cmd9_Click

End Sub

لكني لم أفهم معنى Tab1 وللأسف المنتدى الشقيق الذي به المثال به عطل

 

 

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

 

http://www.officena.net/ib/index.php?showtopic=55792

 

أستاذي وأخي العزيز رمهان يعلم الله أنني لا أثقل عليك ولكن من باب البحث عن الحل ؛ فكان الله في عونك بمشغولياتك وريثما تسمح الظروف فشرفنا بالنظر في ذلك الأمر

 

خالص تحياتي

  • 2 weeks later...
  • 3 weeks later...
قام بنشر

عزيزي عبدالرحمن

اريدك ان تفتح موضوع جديد بعنوان مناسب وبمثال جديد مصغر به المطلوب وبشرح وافي ! لان الموضوع هنا اخذ منحى غير الموضوع الأساسي والقديم كذلك !

 

بالتوفيق

  • 4 weeks later...
قام بنشر

جاي لك مشرفنا الغالي !! نيفا من الوقت ! بحد اقصى أسبوع !

 

تحياتي

قام بنشر

تفضل مشرفنا الغالي !

هي محاولة لفكرة ! ومن حسن الحظ ان وجدت هذا الملف لدي رفعته كمشاركة في منتدى شقيق بل قد اشرت له في المشاركة رقم 9 حيث لا احتفظ بملفات ما اشارك به !

 

تحياتي

رمهان-التراجع.zip

  • Like 2
  • 3 years 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