حذف بخشی از اطلاعات فیلد و ثبت در فیلد دیگر

[Is Null]

سلام به همه دوستان
مدت زیادی میشه که با زبان VB6 کار نکردم.
میخوام یه بخشی از اطلاعات هر رکورد در فیلد MC رو حذف کنم و باقی اطلاعات رو داخل فیلد دیگه برای همون رکورد داشته باشه.
اشکال این کد من چیه؟ فقط رکورد اول رو انجام میده و رکورد دوم تا انتها رو چیزی نمی نویسه !



Private Sub Command1_Click()
Dim mm, aa As String
On Error Resume Next
Rs.Close
Rs.Open "Select * From Unix Order By Code,MC"
Rs.MoveFirst
Rs.MoveLast
Rs.MoveFirst

For i = 1 To Rs.RecordCount
mm = ""
aa = ""
Rs.UpdateBatch
mm = Right$(Rs!mc, 3)
aa = Left$(mm, 2)
Rs!MC1 = aa
Rs.Update

Next i
MsgBox "پايان عمليات تفکيک", vbInformation + vbMsgBoxRight

End Sub

[Is Null]

سلام به همه دوستان
مدت زیادی میشه که با زبان VB6 کار نکردم.
میخوام یه بخشی از اطلاعات هر رکورد در فیلد MC رو حذف کنم و باقی اطلاعات رو داخل فیلد دیگه برای همون رکورد داشته باشه.
اشکال این کد من چیه؟ فقط رکورد اول رو انجام میده و رکورد دوم تا انتها رو چیزی نمی نویسه !



Private Sub Command1_Click()
Dim mm, aa As String
On Error Resume Next
Rs.Close
Rs.Open "Select * From Unix Order By Code,MC"
Rs.MoveFirst
Rs.MoveLast
Rs.MoveFirst

For i = 1 To Rs.RecordCount
mm = ""
aa = ""
Rs.UpdateBatch
mm = Right$(Rs!mc, 3)
aa = Left$(mm, 2)
Rs!MC1 = aa
Rs.Update
Rs.MoveNext

Next i
MsgBox "پايان عمليات تفکيک", vbInformation + vbMsgBoxRight

End Sub




با تشکر از همه؛
جوینده یابنده هست ! :لبخند:
یه کم فکر کردم یادم اومد. اون 1 خط رو کم داشت.