Как мне сохранить результаты моего оператора select в переменной?

Question

Мой код пока такой. Последняя строка дает мне ошибку компиляции: «ожидаемый конец оператора».

Dim strSql As String
Dim groupId As String

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'"
groupId = CurrentProject.Connection.Execute strSql

Answer 1

Вы смотрите на что-то вроде этого

Dim strSql As String
Dim groupId As String

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'"

Dim rec As Recordset
set rec= CurrentProject.Connection.Execute strSql

groupId = rec(0)

Вам необходимо установить результаты запроса в набор записей, а затем извлечь первое значение из его результатов. Без всей определенной переменной я не могу заставить это полностью скомпилироваться, но это должен быть хороший шаблон для начала.