أمير ادم

13 ساعات مضت, ابوخليل said:

?????????

?

??????

TESTBOM (9).rar

1 ساعه مضت, ابوخليل said:

ارفق ملفك مع المحاولة 

لنرى اين الخلل

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

تم الرفع

تقبل تحياتي

تم بالفعل اضافة تركيبات لخمس منتجات اخرى

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

TESTBOM (9).rar

5 دقائق مضت, Foksh said:

ما أن تقرر ارفاق الملف 🤗

ابشر ابشر

ما المشكله في هذ الكود

حولت تعديله لجلب البيانات المطلوبة من جدول التركيبات الى جدول التصنيع بناء على كود المنتج في التصنيع

حاولت تكرارا ومرار ولم يفلح مع الامر

الان, أمير ادم said:

ما المشكله في هذ الكود

حولت تعديله لجلب البيانات المطلوبة من جدول التركيبات الى جدول التصنيع بناء على كود المنتج في التصنيع

حاولت تكرارا ومرار ولم يفلح مع الامر

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

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

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

حاولت كثيرا بعمل هذا الكود وتعديله على مااريده ولكنها كانت تنتهي بالفشل

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

28 دقائق مضت, Foksh said:

اخي @أمير ادم قبل المتابعة معك ، لي مناقشة وعدة نقاط للإتفاق عليها .

1. حاول اختصار مسميات الجداول والنماذج والاستعلامات لتسهيل الأمور عليك.

2. لاحظت انك اعتمدت على الترقيم التلقائي لربط العلاقات بين الجداول في مشروعك وبالنسبة لي لا أعتقد أنها فكرة جيدة في المستقبل ، حاول اعتماد ترقيم خاص بالحركة و تكويد الاصناف .... إلخ والربط بينها بشكل صحيح في العلاقات .

 

الآن بعد اجراء بعض التعديلات على ملفك ، إن كان ما قمت به صحيح سنتابع بناءً عليه في هذا المرفق  ( TESTBOM.accdb ) .

قم باختيار كود المنتج عصير مانجو مثلاً ، ثم قم بالتغيير لأي منتج آخر لنرى صحة العمل.

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

استاذي 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
)

اما اذا كانت هناك طريق افضل من هذه الطريق اكون شاكرا لك

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

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

تقبل تحياتي🌹 

1 ساعه مضت, محب العقيدة said:

وعليكم السلام

لي مشروع لمحاكاة برنامج erp

لعمليات التصنيع

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

 

محب العقيدة

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

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

7 دقائق مضت, ابوخليل said:

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

لم اهتد الى طريقة سهلة ومرنة وقابلة للتطوير .. يوجد طريقة شبه جامدة والتطوير فيها ايضا محدود .

الافضل ان تنتظر فالاخوة الخبراء هنا فيهم الخير والبركة

 

 

 

ابوخليل

استاذي الكريم يعطيك الف عافيه

على مرورك الكريم

في 21‏/3‏/2024 at 17:43, Barna said:

انظر هنا قد يفيدك

 

في 21‏/3‏/2024 at 17:40, ابوخليل said:

عليكم السلام

نعم تستطيع تنفيذ كل ما تفكر به

 

معلومة خاطئة

انا اضمن لك ادخال وحفظ مليون سجل

هل ستصل سجلاتك الى هذا الحد ؟

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

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

كل عام وانتم بخير وعيدكم مبارك ان شاءالله

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

تم عمل الجداول الازمه لعملية التصنيع وهي استلام خامات

صرف الخامات من مخزن الخام الى مخزن تحت التشغيل

تم عمل جداول للتركيبات

مثل المرفقات

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

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

كما هو مرفق

TESTBOM.rar

43 دقائق مضت, ابوخليل said:

عليكم السلام

نعم تستطيع تنفيذ كل ما تفكر به

 

معلومة خاطئة

انا اضمن لك ادخال وحفظ مليون سجل

هل ستصل سجلاتك الى هذا الحد ؟

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

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

41 دقائق مضت, Barna said:

انظر هنا قد يفيدك

 

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

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

مبارك عليكم الشهر الكريم واعاده الله عليكم وعلى الامه الاسلامية بكل خير

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

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

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

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

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

ملحوظه: الجداول تخص قطاع الغزل والنسيج اعقد الامور بالتكاليف 

شكرا لكم وشكر لحسن تعاونكم

شكرا لك اخي الكريم وجزاك الله خير الجزاء

هذا هو المطلوب بالفعل

💯بالــــــ💯

مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور جدا استاذي الكريم

الحمد الله نجح معي الامر بالفعل

ولكن بعد ان زهبت للاستعلام ووضعت رقم الامر واوفقت له مثل هذا

واصبح معي بالفعل كما اريد

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

بمعنى عند الضغط عى زر استدعاء يستدعي البيانات تلقائيه بدون الرجوع للاستعلام

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

استاذي الكريم منحرمش منك ابدا ياكبير🤣🤣🤣

بس ده ظهر 

Goporodact.rar

في 31‏/12‏/2023 at 21:02, ابو جودي said:

يعنى البيانات اللى فى الجدول AllSaels_Exch
والجدول AllSaels_ExchTow
ثابتين لا يتغيروا 
وبس تريد تكرارهم مرة أخرى للجدواول بتاريخ اليوم الجديد ؟

نعم اخي الكريم

بالظبط ولكن اريد ان يستدعي اليوم الذي قبله فقط 

شكرا لك جزاك الله خير الجزاء

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

الاخوه المحترمين تحيه طيبه وبعد

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

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

تم عمل نموذج يحتوي على الثلاث جدول عند تعبئتي للمره الاولى 

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

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

مرفق ملف للعمل عليه

Goporodact.rar

دروب مبرمج

اخي الكريم بارك الله بك

على مساعدتك وردك السريع 

ولكن باقي شي لاينقل المحدد فقط ينقل كل مافي الجدول

مثال المحدد 8 سجلات

والمدخل بالجدول الرئيسي  15

7 ساعات مضت, ابوخليل said:

ادرج ptrsafe

ليصبح

Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

 

الله يعطيك العافية بالفعل هذه مشكله كانت تقابلني دائما

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

الاخوه والاساتذه بمنتدانا الغالي     تحيه طيبه

لدي جدول موظفين رئيسي وفرعي  لادخال الرواتب الشهرية

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

الكود الحالي المتواجد في الاستعلام ماهو الا نقل سجل سجل فقط

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

النموذج الرئيسي والفرعي 

Emp.rar

الله يعطيك الف مليون عافية مشكور جدااااااااااااااااااااااااااااااا على المجهود الكريم من شخص كريم بمنتدى عظيم

جزاك الله الف خير

بالفعل هذا هو المطلوب شكرا

الله يحفظك استاذي الكريم بالفعل هذا ما نريده بالفعل  لكن كيف😀