MS Access VBA循环查询和重命名文件

Posted 2021-04-19

我有一个包含两个字段的查询，'From'和'To'。 from和to保存包含我要重命名的文件的完整文件路径的数据。如何循环查询并实际重命名文件？这是我的代码，但它不起作用：

Dim rs As DAO.Recordset
 Dim db As Database
 Dim strSQL As String

 Set db = CurrentDb

 strSQL = "select * from qryImagesToRename"

 Set rs = db.OpenRecordset(strSQL)

 Do While Not rs.EOF

    Name .Fields("From") as .Fields("To")

    rs.MoveNext
Loop

我哪里错了？ - 我收到一个编译错误“预期的用户定义类型，而不是项目”，它突出显示以下行：

Dim db As Database

答案

你错过了记录集对象：

Name rs.Fields("From").Value As rs.Fields("To").Value