MS Access使用DLookup的结果循环

问题描述 投票:1回答:1

我有一个存储在表中的路径列表(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
vba ms-access access-vba
1个回答
4
投票

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

Do While Not rs.EOF

    MakeSureDirectoryPathExists rs!CampaignPaths

    rs.MoveNext
Loop

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

© www.soinside.com 2019 - 2024. All rights reserved.