我有一个存储在表中的路径列表(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
将始终给出第一条记录的值。