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

[أمير ادم]

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

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

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

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

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

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

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

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

 

Goporodact.rar

تم تعديل ديسمبر 31, 2023 بواسطه أمير ادم

[ابو جودي]

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

[أمير ادم]

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

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

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

[أمير ادم]

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

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

[ابو جودي]

اتفضل

فى  زر استدعاء انتاج امس

ضع الكود الاتى

    ' Check if the form is not in a new record state
    If Not Me.NewRecord Then
        ' Refresh the form to ensure current data is saved
        Me.Refresh

        ' Disable warnings to suppress confirmation messages
        DoCmd.SetWarnings False

        ' Open the first update query with DISTINCT
        DoCmd.OpenQuery "qryDoAllSaelsExchDistinct"

        ' Open the second update query with DISTINCT
        DoCmd.OpenQuery "qryDoAllSaelsExchTowDistinct"

        ' Enable warnings back
        DoCmd.SetWarnings True

        ' Requery subforms to reflect the changes
        Frm_AllSaels_Exch_Subform.Requery
        AllSaels_ExchTow.Requery

        ' Display a success message
        MsgBox "Record updated successfully!", vbInformation
    Else
        ' Display a message if trying to update a new record
        MsgBox "Please save the current record before updating.", vbExclamation
    End If

 

 

وقم بعمل استعلامين 
جملة SQL  الاستعلام الاول ولا تنسى حفظ الاستعلام باسم : qryDoAllSaelsExchDistinct

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);

جملة SQL  الاستعلام الاول ولا تنسى حفظ الاستعلام باسم : qryDoAllSaelsExchTowDistinct
 

INSERT INTO AllSaels_ExchTow (Odb_ID, Odb_Datr, Odb_Desc, Odb_Unet, Odb_QtyDay, Odb_VuliDay, Odb_QtyAms, Odb_VuliAms)
SELECT
    [Forms]![Frm_IDOrdaerPrimr]![IDNo] AS Odb_ID,
    [Forms]![Frm_IDOrdaerPrimr]![DatOr] AS Odb_Datr,
    Odb_Desc,
    Odb_Unet,
    Odb_QtyDay,
    Odb_VuliDay,
    Odb_QtyAms,
    Odb_VuliAms
FROM AllSaels_ExchTow
WHERE Odb_Datr = (SELECT MAX(Odb_Datr) FROM AllSaels_ExchTow);

بس يا سيدى خلصت الحكاية   شوقت سهله ازاى 

روح ع النموذج سم باسم الله وجرب 

 

[ابو جودي]

30 دقائق مضت, أمير ادم said:

وزى ما بينحكى لو صبر القاتل ع القتيل كان مات لوحده

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

[أمير ادم]

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

بس ده ظهر 

 

Goporodact.rar

[أمير ادم]

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

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

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

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

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

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

[ابو جودي]

طيب جرب المرفق ده


 

Goporodact_3.rar

[أمير ادم]

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

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

💯بالــــــ💯

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

[ابو جودي]

لا شكر على واجب U Welcome