Project - MS Access에서 쿼리 목록 가져 오기

Question

하나의 모듈 보고서 (즉, 모두 동일한 조건을 다른 조건으로 반환)에 들어있는 매우 쿠키 커터 데이터베이스 (매우 유사한 매우 복잡한 쿼리)가 있습니다.

콤보 상자를 사용하여 쿼리를 표시하는 쿼리가 ~100 개이므로 OpenArgs을 통해 보고서로 전송됩니다.

내 프로젝트에있는 쿼리 목록 (이름 만)을 생성해야합니다. 콤보 상자의 제어 소스를이 쿼리 목록으로 만들고 싶습니다.

내가 문자열 연결된 Value List 소스 또는 Query/Table 소스 유형을해야 할 경우 그것은 중요하지 않습니다, 중요한 건 바운드 열이 "qryName"

내가 지금까지 무엇을 가지고 포함되어 있습니다 :

For Each qry In CurrentDb.QueryDefs 
    list = list & ";" & """" & qry.Name & """" 
    'String in the form "qryName";"qryAnotherQuery";"qryNextQuery" 
Next 

하지만 분명히 값 목록에는 약 2000 자 제한이 있으므로 값 목록을 사용할 수없는 쿼리가 많이 있습니까? 또한 참고 : qry.Name는 "~ sq_cTableName"과 같은 결과를 반환 할뿐 아니라 내 쿼리가 문제가됩니다. 나는 질의 만하고 싶다.

아이디어가 있으십니까? 보고서의 OpenArgs에 쿼리 이름을 보낼 수있는 한 콤보 상자없이이 정보를 표시하는 다른 방법에 대해서도 열려 있습니다.

Answer 1

MSysObjects에 대한 읽기 권한이있는 경우이 쿼리를 콤보 상자의 행 원본으로 사용할 수 있습니다.

SELECT m.Name 
FROM MSysObjects AS m 
WHERE m.Type=5 AND m.Name Not ALike "~%" 
ORDER BY m.Name; 

판단 기준, m.Name Not ALike "~%"는 결과 집합에서 임시 숨겨진 쿼리를 제외한다.

MSysObjects에 대한 읽기 권한이없는 경우 콤보 상자의 행 원본으로 사용하는 콜백 함수를 만들어야합니다. 해당 경로로 이동해야하는 경우 보고서 개체를 나열하고 쿼리 목록을 변경하는 Allen Browne의 다음 예제를 참조하십시오 (List Box of Available Reports).

Answer 2

목록 상자를 사용하면 쿼리를 반복 할 때 Me.lstBox.AddItem qryName을 사용할 수 있습니다.
당신은 다음

For Each varItm In lstBox.ItemsSelected 
    Debug.Print lstBox.ItemData(varItm) 
Next varItm 

또는 다중 선택을 허용하지 않는 경우,

lstBox.ItemData(lstbox.ItemsSelected(0)) 

는 당신에게 하나의 항목을 줄 것이다 쿼리의 이름을 찾으 ItemsSelected 및 정보 ItemData의 조합을 사용할 수 있습니다 선택한