MS Access使用DLookup的结果循环

Posted 2021-04-01

我有一个存储在表中的路径列表（tmpCampaignPaths field = CampaignPaths）。我想遍历每个并创建文件夹。我有MakeSureDirectoryPathExists函数来执行此操作。但是，当我运行下面它只从表中创建第一个路径记录 - 我错过了什么？怎么不循环呢？是因为我正在使用DLookup来检索路径吗？

Dim db As dao.Database
Dim rs As dao.Recordset


Set db = CurrentDb

Set rs = db.OpenRecordset("tmpCampaignPaths")

rs.MoveFirst

Do While Not rs.EOF

MakeSureDirectoryPathExists DLookup("CampaignPaths", "tmpCampaignPaths")

rs.MoveNext
Loop

答案

记录集循环已经为您提供了值 - 不需要DLookup。

Do While Not rs.EOF

    MakeSureDirectoryPathExists rs!CampaignPaths

    rs.MoveNext
Loop

没有标准的DLookup将始终给出第一条记录的值。