كد ترتيب شماره گذاري خود كار اسناد حسابداري مي خواستم

[reshehri]

دوستان سلام
مي خواستم همرا با لود شدن فرم سند در بك تكس باكس روي آن فرم به صورت خودكار كد يا شماره ي ترتيب اسناد ظاهر گردد
البته مانند بانك اكسس كه بصورت اتوران شماره گذاري مي كند را نمي خواهم چراكه با خذف يك رديف عملا آن شماره رديف نيز خذف مي شود و از شماره اي بعد از آن آغاز مي گردد

[mbf5923]

خوب اينكه شما ميگين اگه توي بانك اكسس اتونامبر رو انتخاب كنيد هم خودش به صورت اتوماتيك شماره گذاري ميكنه و هم اگه يك فيل حذف بشه شماره ها رو دوباره نويسي ميكنه
اما با كد:

Private Sub Form_Activate()
On Error Resume Next

a = Adodc1.Recordset.RecordCount
TxtID.Text = Val(a)
End Sub
a=متغير
txtid=تكست باكسي كه قراره شماره گذاري رو انجام بده
البته در ثبت اطلاعاتتون هم بايد از همين تكه كد استفاده كنيد.

[moghadam1372]

سلام
این هم کد ردیف

dim rs as new ADODB.RecordSet
dim code as integer
set rs = cnn.execute("select MAX(code) from customer")
(code = rs.Fields(0
text1.text = "" & code

[davidrobert]

سلام خسته نباشید
این کد که نوشتید برای ردیف کردن اطلاعات آیا باعث این میشه اگه رکوردی حذف شد با ردیف قبلی خودشون مرتب بیشه و عدد کم بیشه یعنی اگه 3 تا رکورد داریم رکورد دوم حذف شد رکورد سوم بیشه 2 در دیتابیس به صورت خودکار ممنون میشم به هم بگید این رو