修改 DAO Recordset 中的现有记录

时　间:2022-12-17 09:12:42
作　者:杨雪   ID：42182  城市：南京
摘　要:分享一个修改 DAO Recordset 中的现有记录示例
正　文:

4、使用 Update 方法将更改保存到当前记录。

下面的示例演示如何更改名为 Employees 的表中所有销售代表的职务。

Dim dbsNorthwind As DAO.Database 
Dim rstEmployees As DAO.Recordset 
 
   Set dbsNorthwind = CurrentDb 
   Set rstEmployees = dbsNorthwind.OpenRecordset("Employees") 
 
   rstEmployees.MoveFirst 
   Do Until rstEmployees.EOF 
      If rstEmployees!Title = "Sales Representative" Then 
         rstEmployees.Edit 
         rstEmployees!Title = "Account Executive" 
         rstEmployees.Update 
      End If 
      rstEmployees.MoveNext 
   Loop