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

goldenman100 كتب:

 

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

برمجت برنامج مبيعات بلغه 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

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

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

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

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