متقاعد

الطريقة الثانية بدون الحاجة للفلترة ثم الغاء الفلترة للوصول للسجل التالي او السابقة والطريقة بعمل متغير عام في وحدة نمطية فارعة ثم نحمل قيمة المتغير من خلال القائمة SearchList بالامر x = Me.SearchList.Column(1) وفي امر فتح نموذج المبيعات نضع الامر Me.اسم_العميل.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll ولا نحتاج الى اوامر او اكواد اخرى الملف مرفق Database1.accdb

هههههههه 🌹

الحقيقة ان الطريقة الحالية تلغي الفلترة وتعيدنا للسجل الاول وبالتالي لو قمت بالنقر على امر السابق لن تجد اي سجل والسجل التالي سوف يعود بنتيجة غير صحيحة مثلا لو بحث عن قاسم رقمه 120 ثم نقرت على تحديث سوف يلغي الفلترة ثم يعيدك للسجل الاول مبيعات يومية وسيكون السجل التالي هنا حسن بينما السجل التالي الصحيح لقاسم هو سعيد لذا فمن الافضل ان نحتفظ بالسجل من خلال متغير في اجراء اسميته k ووضعت فيه الامر التالي If Me.FilterOn = True Then Dim x As String x = Me.اسم_العميل Me.Filter = "" Me.اسم_العميل.SetFocus DoCmd.FindRecord x, acAnywhere, , acSearchAll Else End If ثم في حدث للامرين نشير الى الاجراء الفرعي الملف مرفق مع عدم الاقتناع بفكرة الفلترة طالما قد نحتاج لاستعراض السجلات التالية او السابقة وسوف اشرح طريقة اسهل في رد تالي Database110.accdb

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

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

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

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

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

ههههه الله يسعدك استاذ قاسم 🌹

☝️

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

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

نظام التشغيل

✔️

ستعمل الدالة ولكن قد تعود بنتيجة غير المطلوبه إذا كان هناك أكثر من حقل يلبي المعايير،ترجع الدالة DLookup بالتكرار الأول مثلا لو كان لدينا 10 موظفين تم تعينهم في الفترة من 1/9 الى 3/9 ووضعنا معيار الدالة من الى او بين ستعود الدالة باول سجل وستهمل باقي السجلات التي تتوافق مع المعيار لذا فكما اشرت في مشاركة سابقة ان هذا الاستخدام غير مالوف سواء باستخدام بين او مثل ولتلافي ذلك نحتاج الى معيار فريد للحصول على النتيجة الصحيحة

😎

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

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

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

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

ربما لم افهم ما اشرتم اليه بشكل صحيح اذا اشتريت من مورد بضاغة مثلا 1000 ريال ثم اتفقت مع المورد على اعادتها وعملتها فاتورة بيع سيتم اعتبار الفاتورة ضمن فواتير البيع مما يتطلب دفع قيمة ضريبة القيمة المضافة وفقا لاليه احتسابها بين قيمة المشتريات وقيمة المبيعات يكون احتساب الضريبة من الفرق بين العمليتين وايضا اذا بعت بضاعة بنفس المبلغ 1000 ريال اعادها بعد ذلك المشتري ثم عملت فاتورة شراء فاني مجبر على دفع القيمة المضافة على اعتبار ان البيع تم اعتقد ان ما اشرتم اليه صحيح قبل عام 2019 في جميع الاحوال ماهي المشكلة لو اضفت جدول للمرتجع والتالف واي فاتورة مرتجعة يتم قيدها سواء لكامل بنود الفاتورة او لبعض البنود تحياتي وتقديري لاستاذنا الفاضل

واذا ترغب بنفس طريقة عد السجلات Dim x As String x = Me.item.Column(0) Me.id_item = Nz(DMax("[id_item]", "details", "[sale_id]=" & Me.Parent!sale_id), 0) + 1 If DCount("*", "sale_sub_query", "[sale_id]=" & [sale_id] & " and [item]='" & Me.item & "'") > 0 Then Me.Undo DoCmd.FindRecord x, , True, , True MsgBox "هذا الصنف موجود رقم السجل" & " " & Me.id_item, , "صنف مكرر" End If الملف مرفق yasser_10(3).accdb

نعم ممكن ولكن ستجد ان رقم السجل لا يعكس الترتيب الحقيقي للسجلات لكونك استخدمت ترقيم تلقائي غير مشروط فمثلا قد تجد ان الصنف رقم 2 في الفاتورة 10 رقمه 80 مثلا ولتلافي عملت حقل ترقيم بشرط رقم الفاتورة الملف مرفق بعد التعديل مع اني اتحفظ على الطريقة واتفق مع رأي الاستاذ @Eng.Qassim ولكن ربما لك فكره اخرى yasser_10(1).accdb

جرب yasser_10.accdb