اخى ال
اخى الكريم رمهان دعنا نتقاسيم فى الخير ونتعاون فى هذا الكود
ما رايك بفرض متغيرين
لحساب السجلات فى كل من الدولين جدول الاصناف وجدول المبيعات او الفواتير
f = DCount("*", "tmenu", "[itemcode] = 1001")
d = DCount("*", "Qorder", "orderno=" & Me.orderno)
ولنقل مثلا اذا كان المتغير d اكبر من 1 مثلا ننفذ كود الاضافة الى الكمية فى كل ضغطة زر
ولكن انا اريد ان اضيف عن طريق الجدول مصدر النموذج الفرعى
ولنبدأ فى تعريف الجدول او الاستعلام لقاعدة البينات
If d > 1 And ([Forms]![f_order]![F_ordersubform]![itemcode]) = 1001 Then
Dim x
Dim Rs
Set Rs = CurrentDb.OpenRecordset("Qorder")
For X = 1 To 1
Rs.Edit
Rs![itemcode] = [Forms]![f_order]![F_ordersubform]![itemcode].Value
Rs!Qty = Nz([Forms]![f_order]![F_ordersubform]![Qty]) + 1
Rs.Update
Next
Rs.Close
Set Rs = Nothing
Me.[F_ordersubform].Requery
اخى الكريم حقيقة انا لم اجربه ولكن دعنا نتشارك
تحياتى