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

[Amr Ashraf]

السلام عليكم

اخوانى الكرام فى المثال المرفق هل هناك طريقة لجلب بيانات الطلبية رقم (س) من جدول Order_sub عند اختيار  هذه الطلبية من كومبوبوكس رقم طلب الصرف وكتابتها تلقائيا فى النموذج الفرعى  و هذه البيانات المطلوبة هى (Code,Item,Qty) ويتم كتابتهم فى (Code,Item,Out) فى النموذج الفرعى ولكن بدون تغيير مصدر البيانات فى النموذج الفرعى وبدون التعديل على علاقات الجداول الحالية ؟؟؟

فى انتظار الاساتذة جزاكم الله خير 

 

ex.rar

[Amr Ashraf]

up

[Amr Ashraf]

اى مساعدة ؟؟

[Shivan Rekany]

22 دقائق مضت, Amr Ashraf said:

اى مساعدة ؟؟

اصبر ستتوصل للنتيجة

اذا ما وصلت الى النتيجة 

غدا ان شجاء الله ساعود لك مع النتيجة

واسف لاني الان عم استخدم موبايل

[Amr Ashraf]

3 دقائق مضت, Shivan Rekany said:

اصبر ستتوصل للنتيجة

اذا ما وصلت الى النتيجة 

غدا ان شجاء الله ساعود لك مع النتيجة

واسف لاني الان عم استخدم موبايل

فى انتظارك اخى الكريم بالتوفيق

[Amr Ashraf]

up

[Shivan Rekany]

17 ساعات مضت, Amr Ashraf said:

فى انتظارك اخى الكريم بالتوفيق

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم
اولا // انا حذفت قيمة افتراضية "اي شيء" لحقل doc في نموذج رئيسي

ثانيا // انا نقلت كود عند الفتح لنموذج الرئيسي لتابع حقل التاريخ zdate الى بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف

Me.Zdate = Date

ثالثا // انا نقلت هذا الكود من بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف الى قبل تحديث لنفس الكومبوبوكس

Me.Transaction_subform.Visible = True
Me.Transaction_subform![In].Enabled = False
Me.Transaction_subform![out].Enabled = True

واضفت هذا الكود بعد كود الاعلى

If Me.Combo58 = "صرف" Then
        If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then
                [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
                [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
                [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
        End If
End If

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

Private Sub Combo51_BeforeUpdate(Cancel As Integer)
Me.Transaction_subform.Visible = True
Me.Transaction_subform![In].Enabled = False
Me.Transaction_subform![out].Enabled = True
Me.Zdate = Date
If Me.Combo58 = "صرف" Then
        If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then
                [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
                [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
                [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'")
        End If
End If
End Sub

والبعد تحديث صار هكذا

Private Sub Combo51_AfterUpdate()
[Forms]![trans_top]![Transaction subform].SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub

اتفضل قاعدة بياناتك 

ex (1).rar

تقبل تحياتي

[Amr Ashraf]

1 ساعه مضت, Shivan Rekany said:

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم

فضل قاعدة بياناتك 

ex (1).rar

تقبل تحياتي

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

[Shivan Rekany]

الحمد لله وصلت للمطلوب
قلت لك من قبل 
اصبر
فإن الصبر مفتاح الفرج 

تقبل تحياتي 

[Amr Ashraf]

23 ساعات مضت, Shivan Rekany said:

الحمد لله وصلت للمطلوب
قلت لك من قبل 
اصبر
فإن الصبر مفتاح الفرج 

تقبل تحياتي 

اخى شيفان للاسف بعد التجربة فى حالة تعدد الاصناف فى طلب الصرف الكود يحضر اول قيمة فقط مثل ما حصل معى فى الاول لكن ما ظهرت المشكلة الا بعد الاستخدام انظر المثال رقم 1 لتوضيح المشكلة وانظر المرفق رقم 2 لتوضيح النتيجة المطلوبة ولكن بدون تغيير مصدر النموذج الفرعى تقبل تحياتى @Shivan Rekany

 

 

1.rar

2.rar

[Shivan Rekany]

اعتذر منك بشدة
انا لا افهم ما تريد بالضبط
هل تريد عملية البحث ام تريد جلب بيانات من جدول لعمل حركة جديدة ؟

[Amr Ashraf]

12 دقائق مضت, Shivan Rekany said:

اعتذر منك بشدة
انا لا افهم ما تريد بالضبط
هل تريد عملية البحث ام تريد جلب بيانات من جدول لعمل حركة جديدة ؟

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

[Amr Ashraf]

هل من أفكار اساتذتى ؟؟