شماره رديف در بانك اطلاعاتي

[talent1]

Dim a As Integer

Me.Adodc1.Recordset.MoveLast
For a = 0 To Me.Adodc1.Recordset.RecordCount + 1 Step 1
Me.Adodc1.Recordset.MoveNext
Me.Adodc1.Recordset.Fields("Code").Value = a
Me.Adodc1.Recordset.Update
Next a

میخوام توی code اعداد از 1 تا اخر به ترتیب بشن
ولی نمیشه

[ایلیا آخوندزاده]

بانک اطلاعاتی شما اکسس هست؟

[SlowCode]

مشکل اینه که تو خط سوم اومدی رکورد رو به آخر بردی بعد دستور moveNext رو وارد کردی!
به جای moveLast از moveFirst استفاده کن.

[vbhamed]

سلام
Private Sub Form_Load()

On Error Resume Next

Adodc1.LockType = adLockBatchOptimistic
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb" & ";Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM t1"
Adodc1.Refresh

Dim a%
With Adodc1.Recordset
.MoveFirst
While Not .EOF
!code = a
.Update
a = a + 1
.MoveNext
DoEvents
Wend
End With

End Sub

[talent1]

این سورس

http://pro.uploadpa.com/?file=1397465154101184_Test.zip (http://pro.uploadpa.com/?file=1397465154101184_Test.zip)

اقا این کد رو اضافه کردم درست شد فقط الان یه مشکل داره اونم اینه که تو دیتابیس ذخیره نمیشه
Adodc1.LockType=adLockBatchOptimistic

از همون کد خودم استفاده کردم به همراه راهنمایی که اقای SlowCode (http://barnamenevis.org/member.php?122371-SlowCode) کرد

[vbhamed]

سلام
كل برنامه رو تو همون پست شماره 4 براتون گذاشتم