تعديا استعلام حول فاتورة

اخي البرنامج لن يضيف نهائياً عندما يكون عدد الفاوتير بنفس الرقم اكثر من 20 , اي من 21 وصاعد لان هذا ما طلبته منه انت , فبعد التحقق من عدد الفواتير التي تحمل نفس الرقم وضعت شرط إذا وجدها اكثر من 20 يخرج ولا يكمل عملية الإضافة

انت تريده ان يكمل عملية الإضافة لكن برقم فاتورة جديد إذاً يجب عليك تحديد رقم الفاتورة الجديد اولاً ثم حفظ الفاتورة بالرقم الجديد وإعطاء رسالة لتنبيه المستخدم ان الصنف الحالي تم إضافته في فاتورة جديدة

إذا كنت تريد رقم الفاتورة الجديدة هو نفس رقم الفاتورة القديمة +1 , إذاً استخدم مثل الكود التالي ( نفس كودك لكن بتعديل جزء تغيير رقم الفاتورة الموجود في Text1 )

Dim Ans As VbMsgBoxResult

Adodc1.RecordSource = "Select * From building Where number_building='" & (Text1.Text) & "'"

gha1 = Adodc1.Recordset.RecordCount

If gha >= 20 Then

Ans = MsgBox("لا يمكن حفظ اكثر من 20 صنف تحت نفس رقم الفاتورة لذا سيتم إضافة هذا الصنف لفاتورة جديدة بحساب العميل , للتكملة إضغط نعم", vbInformation + vbYesNo, "تنبيه")

If Ans = vbNo Then Exit Sub

'هنا يتم تذويد رقم الفاتورة في التكست بوكس بمقدار واحد قبل إتمام عملية الإضافة
Text1.Text = Val(Text1.Text) + 1

End If


Adodc1.Recordset.AddNew

بالتوفيق ,,,,,,,,

جزاك الله خيرا تم الحل بتوجيهات و مساعدتك

بارك الله فيك وزادك علما