使用VBA的方法更新记录的错误与修改

qinghe　发表于：2021-02-19 21:00:07 　

Public Function test01()
Dim rst As Object
Dim j As Date
Set rst = CurrentDb.OpenRecordset("EKQA")
Do Until rst.EOF
rst.Edit
rst![WeekN] = Format(j, "aaaa")
Loop
rst.Close
Set rst = Nothing
End Function
点击调试，没有错误提示；点击执行后，光标就变成转圈模式了

Top

qinghe 发表于：2021-02-19 21:20:49

Function test01()
Dim rst As Object
Dim i As Integer
Dim j As Date
i = 1
Set rst = CurrentDb.OpenRecordset("EKQA")
With rst
Do Until rst.EOF
j = rst![DA]
rst.Edit
rst![WeekN] = Format(j, "aaaa")
i = i + 1
rst.Update
rst.MoveNext
Loop
End With
rst.Close
Set rst = Nothing
End Function

（参考其他的资料改好了）

Top

苏雨杭发表于：2021-02-19 22:38:26

给你个例子把，提供参考。。

Public Function test01()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Table_kch", dbOpenDynaset)
Dim stemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
stemp = "Select * From Table_kch"
Rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.AddNew
rst("top1") = Me.top1
rst("top2") = Me.top2
rst("top3") = Me.top3
rst.Update
rst.Close
Me.Refresh
End Function

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]使用VBA的方法更新记录的错误与修改