小编Max*_*Tag的帖子

在Access VBA中,我想使用"设置"表中的值,而不是代码中的硬编码文件夹位置等.我无法弄清楚如何从表中加载一个值并在代码中使用它.

Dim oFSystem As Object
Dim oFolder As Object
Dim oFile As Object
Dim sFolderPath As String



sFolderPath = "C:\Documents and Settings\Main\Desktop\Files" 'BAD BAD, I WANT TO AVOID THIS

我创建了一个表" 设置 ",我想使用该值

SELECT TOP 1 Settings.SettingsValue FROM Settings WHERE (((Settings.SettingName)="Files Folder Location"));