السلام عليكم
أخواني الكرام , اواجه مشكله في برنامجي المصمم بالفيجول بيسك6 وأكسس 97 هي قاعدة البيانات, حيث يوجد في القاعدة حقل اسمه
no
نوعه هو نص وهذا الحقل يحتفظ بالترقيم التلقائي من الدالة التالية:
ssrss.Open " select max(No) from sar", conn, adOpenDynamic, adLockBatchOptimistic
Text1.Text = ssrss.Fields(0) + 1
الطريقة ماشية تمام ولكن عندما يصل الترقيم الى رقم 1000 يتوقف الكونتر ولا يصل الى رقم 1001 وما يليه
فما السبب
قد يقول البعض حول حقل
no
الى
نوع:عدد صحيح
وتمشي الامور مثل الحلاوة...صحيح ذلك
لكن الاشكالية في عمليات البحث حيث تعتمد على نوع نص
Private Sub Command3_Click()
'إغلاق الاتصال إذا كان مفتوحاً
If DataEnvironment1.rsCommand1.State = adStateOpen Then DataEnvironment1.rsCommand1.Close
'تحديد نوعية الفلترة
With DataEnvironment1.rsCommand1
.Open "SELECT * From sar Where no between '" & Text3.Text & "' and '" & Text4.Text & "' order by nosader asc"
d.Orientation = rptOrientLandscape
d.Show
End With
End Sub