ترقيم الكبميالات لا يقبل اكثر من 9999

الأمر ممكن إذا حولت نوع بيانات الحقل من رقم إلى نص،

هذه طريقة ولا أعلم إذا كانت هناك طريقة أخرى أفضل.

لم تنفع

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

تحية طيبة ،،

اخ كوكاندو ..

السبب في هذه المشكلة هي تعريف no2 as integre ومن المعروف ان integer في الاكسس يحمل الارقام من - 32000 الى 32000 فقط ..

وللتغلب على المشكلة نقوم بتعريفه as long وتنتهي المشكلة ...

لاحظ الكود قبل

	Dim no1 As Integer
	Dim no2 As Integer
	Dim i As Integer
	Dim ii As Integer

الكود بعد التعديل

	Dim no1 As Integer
	Dim no2 As Long
	Dim i As Long
	Dim ii As Integer

ملاحظة : المثال المرفق بعد التعديل يحتوي تعديلات هامه ...

مشكاة

bill_UP.rar

جارى التحميل

والف مليــــــــــــــــــــــــــــــ شكر ــــــــــــــــــــــــــــــون على ردكم الكريم

بردكم الكريم

----> تم ترتيب الكود البرمجي عندي

------> حل المشكلة فى الترقيم

جزالك الله الف خير على ردك الوافي

:ty:

** تمت الاجابة **