通过使用DLookup的结果进行MS Access循环

Question

我有一个存储在表中的路径列表（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

Answer 1

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

Do While Not rs.EOF

    MakeSureDirectoryPathExists rs!CampaignPaths

    rs.MoveNext
Loop

DLookup（不带条件）将始终提供第一条记录中的值。