select 문의 결과를 변수에 저장하려면 어떻게합니까?

Question

내 코드는 지금까지입니다. 마지막 줄에 "compend end of statement"라는 컴파일 오류가 발생합니다.

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) 

처럼 좀 뭔가를 찾고 있습니다. 모든 정의 된 변수가 없으면 이것을 완전히 컴파일 할 수는 없지만 시작하기에 좋은 템플릿이어야합니다.