مشكله كبيره برجاء الحل

[goldenman100 0]

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

برمجت برنامج مبيعات بلغه VB6  وعملت ترقيم تلقائي للفواتير

ولكن حينما وصل الترقيم الى رقم 10000 ( عشره الاف ) لم يكمل الترقيم وثابت عند هذا الرقم فما المشكله ؟؟؟؟

 

الكود المستخدم في الترقيم هو

   Dim ID As New ADODB.Recordset    ID.CursorLocation = adUseClient    ID.Open " select max(Invo_ID)  from MasterSales    ", Cn, adOpenDynamic, adLockOptimistic            If ID.EOF = True Or ID.BOF = True Or IsNull(ID.Fields(0)) Then              Text1 = 1          Else          ID.MoveLast          Text1.Text = ID.Fields(0) + 1          End If

[goldenman100 0]

 

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

برمجت برنامج مبيعات بلغه VB6  وعملت ترقيم تلقائي للفواتير

ولكن حينما وصل الترقيم الى رقم 10000 ( عشره الاف ) لم يكمل الترقيم وثابت عند هذا الرقم فما المشكله ؟؟؟؟

 

الكود المستخدم في الترقيم هو

   Dim ID As New ADODB.Recordset    ID.CursorLocation = adUseClient    ID.Open " select max(Invo_ID)  from MasterSales    ", Cn, adOpenDynamic, adLockOptimistic            If ID.EOF = True Or ID.BOF = True Or IsNull(ID.Fields(0)) Then              Text1 = 1          Else          ID.MoveLast          Text1.Text = ID.Fields(0) + 1          End If

[Mohmed Helmy 8]

ممكن تكون المشكلة في نوع البيانات لحقل رقم الفاتورة
وخصوصا لو كان النوع Int
 

[goldenman100 0]

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

 

نوع الحقل الحالي Text وعند تغير الحقل الى النوع Number ياتي بالرقم الصحيح ولكن تحدث مشكله اخرى عند عمل استدعاء للبيانات من الجدولين

[Mohmed Helmy 8]

غير نوع الحقل في كل الجداول المرتبطة ببعض وجرب