أمير ادم

TESTBOM (9).rar

شكرا لك اخي واستاذي الكريم على مرورك واهتمامك بالامر تم الرفع تقبل تحياتي

تم بالفعل اضافة تركيبات لخمس منتجات اخرى تفضل اخي الكريم TESTBOM (9).rar

ابشر ابشر

ما المشكله في هذ الكود حولت تعديله لجلب البيانات المطلوبة من جدول التركيبات الى جدول التصنيع بناء على كود المنتج في التصنيع حاولت تكرارا ومرار ولم يفلح مع الامر INSERT INTO Adb_TableExchanj ( Adb_IDC, Adb_DatMove, Adb_CodeRawMa, Adb_NamRawMa, Adb_Unet, AdbpdetNoa, AdbpdetTchQty, AdbpdetQty, ) SELECT [Forms]![ Frm_Table_compositions_Product]![ Adb_ID] AS Adb_ID, [Forms]![ Frm_Adb_TableExchB_Prim]![ Adb_ID] AS Adb_ID, Adb_TableExchanj. Abd_Raw_code, Adb_TableExchanj. Abd_Raw_Nam, Adb_TableExchanj. Abd_Unet, Adb_TableExchanj. Abd_Deuce, Adb_TableExchanj. Abd_Density, Adb_TableExchanj. Abd_DensityAS, FROM Adb_TableExchanj WHERE Adb_Table_compositions_Product. Adb_ProCod = (SELECT MAX(Adb_ItemCodePro) FROM Frm_Adb_TableExchB_Prim); وهذا هو كود الاستعلام المستخدم بناء على ماهو مذكور بالمرفق

https://www.officena.net/ib/topic/122023-مساعده-في-استدعاء-بيانات-دفعه-واحده-من-عدة-جداول-بينهما-علاقه-الى-نفس-الجدول-حسب-التاريخ/#comment-734218 وهذه هي المشاركة التي اتحدث عنها اريد بدلا من استدعاء البيانات تاتي من نفس الجداول تاتي من جدولين اخرين من جدول التركيبات الى جدول التصنيع من خلال الكود(كود المنتج) وهل من طريقه تغني عن الاستعلامات في الاستدعاء وتكون عن طريق VBACCESS شاكرلكم مجهودكم الكريم وحسن تعاملكم

السلام عليكم ورحمة الله وبركاتة يوجد كود SQL استعلامات من استاذي الكريم (ابو جودي)بمشاركه سابقه وتحتوي على جدولين بينهما علاقه تقريبا نفس ماطلبه من مساعده ولكن يحتوي على معلوماته من نفس الجداول حيث اريد ان تاتي من جدولين اخرين حسب كود المنتج وليس التاريخ INSERT INTO AllSaels_Exch ( Odb_ID, Odb_DateMov, Odb_CodMont, Odb_NameItem, Odb_Unet, Odb_UnetEn, Odb_Qty, Odb_ValueAms, Odb_Qtypro, Odb_QtyAms, Odb_Valuetotal, Odb_QtySham, Odb_QtySil, Odb_Skv, Odb_Moamil, Odb_Sv, Odb_Balance, Odb_Haly ) SELECT [Forms]![Frm_IDOrdaerPrimr]![IDNo] AS Odb_ID, [Forms]![Frm_IDOrdaerPrimr]![DatOr] AS Odb_DateMov, AllSaels_Exch.Odb_CodMont, AllSaels_Exch.Odb_NameItem, AllSaels_Exch.Odb_Unet, AllSaels_Exch.Odb_UnetEn, AllSaels_Exch.Odb_Qty, AllSaels_Exch.Odb_ValueAms, AllSaels_Exch.Odb_Qtypro, AllSaels_Exch.Odb_QtyAms, AllSaels_Exch.Odb_Valuetotal, AllSaels_Exch.Odb_QtySham, AllSaels_Exch.Odb_QtySil, AllSaels_Exch.Odb_Skv, AllSaels_Exch.Odb_Moamil, AllSaels_Exch.Odb_Sv, AllSaels_Exch.Odb_Balance, AllSaels_Exch.Odb_Haly FROM AllSaels_Exch WHERE AllSaels_Exch.Odb_DateMov = (SELECT MAX(Odb_DateMov) FROM AllSaels_Exch); وهذه الكود في زر الاستدعاء On Error GoTo SaveRec_Err ' Save the current record DoCmd.RunCommand acCmdSaveRecord ' Check if there was no error while saving If Err.Number = 0 Then ' If saved successfully, run the queries RunQueryDistinct MsgBox "Record updated successfully!", vbInformation, "coco" End If SaveRec_Exit: Exit Sub SaveRec_Err: ' Handle errors here if needed MsgBox "Error: " & Err.Description, vbCritical Resume SaveRec_Exit كل ماريده هو ان استدعي بهذا الكود بعد تعديله على جدول التصنيع البيانات المتواجده في جدولي التركيبات الرئيسي والفرعي حسب كود المنتج الى جدول التنصيع الرئيسي والفرعي وتقريبا هذه هي المشكله الكبرى بالنسبة لي حاولت كثيرا بعمل هذا الكود وتعديله على مااريده ولكنها كانت تنتهي بالفشل حيث انني حاولت تعديل البيانات وتنسيقاها مع الببيانات المتواجده في الاستعلام كانت نفس الشي تنتهي بالفشل

استاذي Foksh شكرا لك على مرورك الطيب واهتمامك بالامر اخي واستاذي الكريم بالنسبه للخطوه رقم 1- مماذكرت اختصار اسماء الجداول والاستعلامات الخ .... فضلا وليس امر هذه الجداول تم ربطها بنماذج واستعلامات وتقارير عده فاعند التعديل عليه سوف يهدم كل شي وللعلم هذه الجدول تم سحبها من قاعدة البيانات التي تعمل بالفعل حيث بها بعض جداول مرتبطه بقاعدة بيانات SQLوهذا ايضاح اذا كانت هناك طريقه للتعديل دون تعطل شي اكون شاكر لك. بالنسبه للخطوه رقم 2- وهي الترقيم التلقائي نعم ولكن ليس ترقيم تلقائي بل هو ترقيم له عدة اهداف بالمحاسبه مثل (Li.24001) LIاختصارا لخط او خطوط الانتاج ورقم 24 هوا اختصارا للعام المالي و001هو اختصار لرقم السندات التي تمت او اجريت على هذه الخطوط في العام المالي الحالي او سابق وقد استخدمت هذا الكود للترقيم (Adb_ID = "Li." & Replace(Nz(DMax("Adb_ID", "Adb_Table_compositions_Product", "Adb_ID like 'Li." & Right(Year(Date), 2) & "*'"), "Li." & Right(Year(Date), 2) & "000"), "Li.", "") + 1 ) اما اذا كانت هناك طريق افضل من هذه الطريق اكون شاكرا لك بالنسبة للتجربة يوجد استعلام يحتوي على رقم الحركه عن ادخال رقم الحركة ياتي بكافة التركيبات التي تخص رقم الحركة ولكن اريد منك شرح لكي اكمل مابداءات عليه شكرا لك وشكرا على مجهود ومرورك الكريم تقبل تحياتي🌹

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

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

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير وعيدكم مبارك ان شاءالله الساده مشرفي ومبرمجي موقعنا الكريم تم عمل الجداول الازمه لعملية التصنيع وهي استلام خامات صرف الخامات من مخزن الخام الى مخزن تحت التشغيل تم عمل جداول للتركيبات مثل المرفقات 01-اريد المساعده عند الضغط على زر استعداء تركيبة المنتج ياتي لي بالتركيبات الخاصه بالمنتج والتي تم تعريفها من قبل في جداول التركيبات الى جداول التصنيع 02- ومن ثم عند استدعاء المواد المركبه للمنتج والضغط على زر استدعاء التركيبه الفعليه للمنتح وهي المقصود بها بنود التركيبه وهي المواد الخام التي تم جلبها ياتي لي بالكميات المتوفره في المستودع كماهو مذكور في الصوره الثانية ملحوظه تم عمل جدول فرعي(Adb_TableExchanj) يحتوي على حركات ثلاث مستودعات الاول(Adb_TableAdd_Prim) وهذا الجدول الرئيسي لعمليات الاضافه بينهم علاقه والجدول الثاني (Adb_TableExchA_Prim) وهو لصرف الخام الى التصنيع(Adb_TableExchB_Prim) كما هو مرفق TESTBOM.rar

شكر لك اخي الكريم على مرورك الكريم جاري العمل والرفع للمساعده شكرا لك وشكرا لحسن تعاونك

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

شكرا لك اخي الكريم وجزاك الله خير الجزاء هذا هو المطلوب بالفعل 💯بالــــــ💯 مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور جدا استاذي الكريم