مساعدتي في ..... Search In 2 Sub Form

[zhamid]

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

اريد مساعده بحيث يكون البحث في In 2 Sub Form عند اختيار في خانه Choose اما الرقم او الاسم  

ارجو باني اوصلت الفكره

وشاكرا لكم جزيل الشكر

Search.rar

بالمناسبه انا استخدم اكسس 2003

[محمد أبوعبدالله]

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

الكود الحالي يقوم بعمل فلتر للنمموذج الفرعي SubCustomer فقط

ولتطبيق نفس الكود على النموذج الفرعي frmCustomerSub2

اضف الكود التالي

    Me.frmCustomerSub2.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'"
    Me.frmCustomerSub2.Form.FilterOn = True

ليكون الكود كاملا بهذا الشكل

On Error GoTo Error_Trap
    Me.btnReset.SetFocus
    Me.txtSearch.SetFocus
    Me.ActiveControl.SelStart = Len(Me.ActiveControl & "")
    
    
    Me.SubCustomer.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'"
    Me.SubCustomer.Form.FilterOn = True

    Me.frmCustomerSub2.Form.Filter = Me.cboField & " Like '*" & Me.ActiveControl & "*'"
    Me.frmCustomerSub2.Form.FilterOn = True

Error_Exit:
Exit Sub

Error_Trap:
MsgBox ("Error Code:" & Err.Number & " Error Description:" & Err.Description)
Resume Error_Exit

Search.rar

تحياتي

[zhamid]

السلام عليكم 

الله يعطيك الف عافيه وهو المطلوب وشاكرا سرعه اللرد

لو سمحت ... عندما سحبت الداتا من الاكسل للاكسس وفي Table Design يكون الفيلد Text وعند تغيره الى Number يصبح عدد صحيح اى ... من .75 يحولو ال 1

هل حجم الفايل سبب لهذا

ولك جزيل الشكر

[zhamid]

وطلب اخير اذا ما فيها ازعاج

اريد مجموع النهائي لمجموع frmCustomerSub1 + frmCustomerSub2

ولك جزيل الشكر

المجموع النهائي لمجموع frmCustomerSub1 + frmCustomerSub2 لقد عرفت الحل وتم عمل الازم 👍

فقط اريد هذا الطلب ... وهو عندما سحبت الداتا من الاكسل للاكسس وفي Table Design يكون الفيلد Text وعند تغيره الى Number يصبح عدد صحيح اى ... من .75 يحولو ال 1

تم تعديل أكتوبر 19, 2020 بواسطه zhamid