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

[Amr Ashraf]

السلام عليكم

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

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

 

ex.rar

[Amr Ashraf]

up

[Amr Ashraf]

اى مساعدة ؟؟

[Shivan Rekany]

  في 6‏/5‏/2017 at 19:40, Amr Ashraf said:

اى مساعدة ؟؟

Expand  

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

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

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

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

[Amr Ashraf]

  في 6‏/5‏/2017 at 20:05, Shivan Rekany said:

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

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

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

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

Expand  

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

[Amr Ashraf]

up

[Shivan Rekany]

  في 6‏/5‏/2017 at 20:08, Amr Ashraf said:

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

Expand  

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم
اولا // انا حذفت قيمة افتراضية "اي شيء" لحقل 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).rarFetching info...

تقبل تحياتي

[Amr Ashraf]

  في 7‏/5‏/2017 at 14:18, Shivan Rekany said:

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

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

ex (1).rarFetching info...

تقبل تحياتي

Expand  

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

[Shivan Rekany]

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

تقبل تحياتي 

[Amr Ashraf]

  في 7‏/5‏/2017 at 16:09, Shivan Rekany said:

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

تقبل تحياتي 

Expand  

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

 

 

1.rar

2.rar

[Shivan Rekany]

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

[Amr Ashraf]

  في 8‏/5‏/2017 at 17:38, Shivan Rekany said:

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

Expand  

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

[Amr Ashraf]

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