Выберите значение из таблицы в текущей БД и используйте переменную в Access VBA

Question

В 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"));

Answer 1

Вы можете использовать функцию DLookup, если у вас есть только одна запись, где SettingName = "Расположение папки с файлами".

sFolderPath = DLookup("SettingsValue", "Settings", "SettingName=""Files Folder Location""")

Answer 2

В одну сторону:

Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim sFolderPath As String

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("SELECT TOP 1 SettingsValue FROM Settings WHERE SettingName="Files Folder Location")

If rs1.RecordCount > 0 Then
    rs1.MoveFirst
    sFolderPath = rs1.Fields("SettingsValue")
End If
rs1.Close
set rs1 = Nothing
set db = Nothing