ویرایش رکورد مورد نظر در اکسس

[ali190]

با سلام
من در بانک اکسسم در Table2 دوستون دارم
ستون a شامل شماره هر رکورد
ستون e شامل نام هر رکورد
من میخوام از طریق کد زیر نام (اطلاعات ستون e) رکورد شماره 1 رو تغییر بدم


Private Sub CommandButton2_Click()
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Rst As New ADODB.Recordset
Dim x As String
x = app.Path
Cn.ConnectionString = "Provider =Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" _
& "Data Source=" + x + "\b.mdb"
Cn.Mode = adModeReadWrite
Cn.Open
Rs.Open "Select * From Table2;", Cn, adOpenDynamic, adLockOptimistic, 1
Do While Rs.EOF = False
If Rs![a] = 1 Then
Rs.EditMode
Rs.Fields("e") = "2000"
Rs.Update
End If
Rs.MoveNext
Loop
Me.TextBox1 = Rs.Fields("e")
End Sub
ولی متاسفانه ارور میدهد
میشه لطف کنید و اشکال کارم رو بگید
ممنون و متشکر

[bavimorteza]

من این طوری مینویسم کارمیکنه حالا اگه مبتدی یه ببخشید

Do While Not rs.EOF = True
If rs.Fields("a") = 1 Then
rs.fields("e")=2000
End If
rs.MoveNext
Loop

[محسن شامحمدی]

مشکلتون توی خط rs.editmode هست
این خطو پاک کن ببین درست می شه؟