首页 > 解决方案 > MS Access 循环使用 DLookup 的结果

问题描述

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

标签: ms-accessvba

解决方案


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

Do While Not rs.EOF

    MakeSureDirectoryPathExists rs!CampaignPaths

    rs.MoveNext
Loop

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


推荐阅读