• 0
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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .