كيف يتم إدراج أكثر من صنف في النموذج المستمر دفعة واحدة

محمد باشا فؤاد

مثال جميل جدا وانا قولتلك احنا بنتعلم من اسئلتك اكتر من الجواب عليها

طلباتك اوامر

افتح الملف بتاعك حتلاقي زر اسمه تحديث .......... سيبك منه خالص

افتح فاتورة موجودة مثلا وروح علي سجل جديد واضغط F2 ثم اختار بعض الاصناف وإضغط ادراج طبعا بيختفي نموزج الاصناف

بعد كده بترجع علي شاشة الفاتورة........... هنا تضغط علي زر تحديث تظهر لك الاصناف اللي انت حددتها

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

ومتنساش تسلماي علي الفيشاوي ومترو الانفاق

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

اخوك المتغرب احمد

Sales.rar

ahamied كتب:

محمد باشا فؤاد

مثال جميل جدا وانا قولتلك احنا بنتعلم من اسئلتك اكتر من الجواب عليها

طلباتك اوامر

أولاً : - متشكرين يا باشا علي الكلام الجميل ده

quote name='ahamied' date='Oct 13 2006, 11:51 PM' post='555786']

افتح الملف بتاعك حتلاقي زر اسمه تحديث .......... سيبك منه خالص

افتح فاتورة موجودة مثلا وروح علي سجل جديد واضغط F2 ثم اختار بعض الاصناف وإضغط ادراج طبعا بيختفي نموزج الاصناف

بعد كده بترجع علي شاشة الفاتورة........... هنا تضغط علي زر تحديث تظهر لك الاصناف اللي انت حددتها

تم حل المشكله المثال مرفق

_____________1_________.rar

محمد باشا

اشف علي الخطأ غير المقصود

1-فى الاستعلام Query1 استبدل الحقل store_code بالحقل number

2-الخط الافتراضي للاكسس هو Tahoma

3-موضوع رسالة الاستعلام هتلاقيها فى option>Edit-find شيل العلامة من علي Action query

بالله التوفيق

وبعدين نحير نفسنا ليه؟؟؟؟؟؟؟؟؟؟ظ

الاخ الفاضل المحترف KARIMSOFT عمل حلول اجمل وافضل

بارك الله فيك

الآخ الغالي

كريم سوفت

KARIMSOFT

شكراً علي الحل الجميل ده بارك الله فيك

أخي المتغرب أحمد

مجهودك جميل جداً وأنا معتز بتفاعلك المستمر والسريع دائماً مع الاعضاء جميعاً

شكراً لكم

الاخ الكريم محمد

شكرا يا عم علي الكلام الجميل ده

ان شاء الله تكون الفكرة تمام لكن انا ملاحظ ان فيها نوع من البطئ يمكن علشان دائرة for next تحتوي علي شرط IF ايه رأيك نلغي جملة if بالكامل فقط نبقي Me.Temp=0 طبعا انت مستغرب ليه الموضوع ده؟؟ انا جربت وضاعفت عدد السجلات الي 600 صنف بدلا من 25 صنف الموضوع كان مأساوي .... بطئ جدا.

انا عارف ان سبب البطئ هو دائرة for next طيب افرض عدد الاصناف كان 1500 صنف وده عادي جدا فى المحلات الصغيرة فما بالك فى الاعمال متوسطة الحجم او الكبيرة.

اهمية دائرة for next فى مثالنا هو حذف قيمة العلامات امام الاصناف فى النموزج وهذا هو سبب البطئ .. ايه رأيك لو نستخدم recordset تعديل عند حدث DeActive للنموزج Names ؟

بحيث يتم ادراج الاصناف فى شاشة الفاتورة والنموزج Names يقفل و ال recordset يشتغل مع نفسه فى حذف العلامات؟

اخوك احمد

فكرة جميلة ;)

بس عشان انا لسة مبتديء في الاكسس زي ما انت عارف وعلي قد حالي فأنا منتظر منك الملف بعد اجراء التعديلات علية بفكرتك

أخوك

محمد فؤاد

شكرا للاخ mmfouad والاخ ahamied

علي الكلام الجميل

وانا اسف لم اقرء الكود بل حيلت المشكله

المهم ممكن اللغاء forبعمل الاستعلام الاول ينسخ القيمه 1 من التينبي

واستعلام اخر تحديثي لارجاع القيما للصفر في الجدول الاول

الله عليكم أخواني مجهود رائع

أضفي حلاوة وجمال علي هذه المشاركة الساخنة

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

شكراً

๑۩۞۩๑رمضان كريم๑۩۞۩๑ :D

محمد باشا

مش قولتلك فى اول المشاركة ان احنا بنتعلم من اسئلتك

اول مرة استخدم استعلام التحديث

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

طبعا سرعة الاداء زادت جدا بشكل ملحوظ

بارك الله فيكم وفى القائمين علي المنتدي

اخوك فى الله

Last.rar

شكرا للمجامله انت مبالغ في العبقري كريم سوفت

أخواني الكرام

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

أولاً : - أحب أن أبعث رساله شكر الي أختنا الغالية زهرة علي اعادة فتح هذه المشاركة الفعالة من جديد

ثانياً : - بعد تطبيق المثال المرفق من أستاذنا الغالي أحمد وجدت مشكلة ولا أعرف الوصول الي الحل

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

ولم أتوصل حتي الان الي الحل فأين الخطأ

مرفق المثال في الرابط أدناه

http://www.transferbigfiles.com/Download.a...73-ee26185780d3

Private Sub Form_Activate()
Me.Transaction_subform.Requery
End Sub

أخي الغالي

كريم سوفت

جزاك الله خيراً وشكراً علي سرعة استجابتك

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

كل عام وانتم بخير

السبب كود في form2 يجب ازلته

'Private Sub name_DblClick(Cancel As Integer)
'Forms![trans_in]![Transaction subform]![ßæÏ ÇáÕäÝ] = Me![number]
'Forms![trans_in]![Transaction subform]![ÈíÇä ÇáÕäÝ] = Me![name]'
'Forms![trans_in]![Transaction subform]![unit] = Me![unit]
'Forms![trans_in]![Transaction subform]![unit_price] = Me![unit_price]
'DoCmd.Close
'End Sub

'Private Sub number_DblClick(Cancel As Integer)
'Forms![trans_in]![Transaction subform]![ßæÏ ÇáÕäÝ] = Me![number]
'Forms![trans_in]![Transaction subform]![ÈíÇä ÇáÕäÝ] = Me![name]
'Forms![trans_in]![Transaction subform]![unit] = Me![unit]
'Forms![trans_in]![Transaction subform]![unit_price] = Me![unit_price]
'DoCmd.Close
'End Sub

1Local_Fabric.rar

أخي العزيز كريم سوف

والله عجزت الكلمات أن تعبر عن اهتمامك بالموضوع بس لسه فيه شيء أريد أن أعمل بالطريقتين معاً وليس طريقة واحده

فهل من حــــــل ؟

ممكن توضح اه المشكله بس وباذن الله يكون في حل

بسيطة في شاشة اختيار الاصناف

Private Sub name_DblClick(Cancel As Integer)
Temp = True
End Sub

Private Sub number_DblClick(Cancel As Integer)
Temp = True
End Sub

عفواً أخي الغالي كريم سوفت

مجهودك معي مشاء الله عليك ولكن فشل هذا الكود في حل مشكلتي . كما لاحظت أن عند الضغط علي الاصناف دبل كليك يقوم هذا الكود بتنشيط حقل الــ Temp وهذا مالا اريده

من الواضح أنه يوجد شيء غير مفهموم لذلك سوف أوضح لك الامور مرة اخري

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

المطلوب

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

شكراً

محمد باشا

كل سنة وانتم طيبيين

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

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

للرفع

الأخوة الكرام اعضاء ومشرفين كل عام وانتم بخير

الاخ محمد فؤاد ارجو ان تجرب الاحداث التالية على اسم المادة في نافذة الاختيار :

كليلك من اجل تحديد صنف اواكثر او الغاءههم

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

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

_____Local_Fabric.rar

أخي الغالي

yasin12

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

كل عام وانت بخير

فعلاً هذا ما أقصدة شكراً جزيلاً لك وعلي مشاركتك المميزة جداً وعلي مجهودك الرائع لتلبية طلبي

ولكن هل تسمح لي بتعديل بسيط جداً علي المثال اريدة منك

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

اتنمي ان اكون قد وفقت في توصيل المطلوب

وشكراً لك مرة اخري

ولما هذا الطلب الغريب

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