콤보 박스 선택을 기반으로 올바른 보고서를 엽니 다.

Question

각 프로젝트의 모든 부품을 저장/구성하기 위해 Access 데이터베이스를 사용하고 있습니다. 2 개의 콤보 박스가 올바르게 설정되고 작동합니다. 첫 번째는 Customer Name이며, 두 번째 콤보 박스를 선택하면 해당 고객의 일련 번호 (프로젝트 ID 번호) 목록이 채워집니다. 각 프로젝트에는 보고서가 인쇄되어야하는 몇 가지 구성 요소가 있습니다.

대부분의 구성 요소 세부 정보가 별도의 다른 테이블에 나열되어 있으므로 구성 요소 번호는 해당 구성 요소 번호가있는 테이블과 상호 참조되어야하며 해당 보고서를 가져와야합니다.

이것은 콤보 상자가 정보를 가져 오는 테이블입니다. 먼저 고객 이름과 해당 고객과 관련된 일련 번호. 거기에서 관련 CATALOG 번호가있는 USER3 테이블의 보고서를 원합니다.

예를 들어, 여기 내 콤보 상자의 선택입니다 :

CUSTOMERNAME - CIPLA 나에게 하나 EF-1092,96, 99

내가 선택 일련 번호의 SerialNumbers을 줄 것이다 선택 EF- 1096 next - USER3의 MV 테이블에있는 EDF50-00170, FIL 테이블에 EDF12-01114 및 EDF12-00532 (테이블이 지정되지 않음) CATALOG 번호가 있습니다.

그래서, EDF50-00170를 들어, 여기에 내가합니다 (MV 보고서가 자동으로 포함) 그것에서 원하는 모든 정보와 함께 MV 표입니다 : 여기

그리고 해당있어 보고 :

는 지금 까다 롭습니다 EDF50-00170, EDF12-01114 및 EDF12-00532 보고서가 수동으로 모든 것을 찾아야하는 대신 시스템에서 자동으로 가져와야하는 부분. 이것은 수동 벨브 (위 그림 참조), 필터 및 기타 각 범주의 카탈로그 번호가 모두 포함 된 보고서입니다. ,

If partnumberselect.RowSource = "MV" Then 
    DoCmd.OpenReport "RPTManualValve", acViewPreview, , "CATALOG = '" & Me.partnumberselect.value & "'" 

이 요약 :

은 이미 이전의 콤보 설정에서 이와 같은 각각의 보고서에 연결된 테이블을 모두 가지고 있고, 나는이 새로운 하나를 가정하고있어 유사 할 것이다 특정 일련 번호와 관련된 보고서 그룹이 필요합니다. 미리 감사드립니다. 죄송하지만이 질문에 대한 답변은 오래되었습니다. 메시지 상자 미리보기

Answer 1

Dim ThisDB As DAO.Database 
Dim d As DAO.Recordset 
Dim q As String 

Set ThisDB = CurrentDb 
q = "SELECT CATALOG, User3 FROM [mainSourceTableName] WHERE SerialNumber='" & Me.[SerialNumberSelected] & "'" 
Set d = ThisDB.OpenRecordset(q, dbOpenDynaset) 
d.MoveFirst 
Do While Not d.EOF 
    Select Case d!User3 
     Case "MV" 
      Rem Print MV Report for d!CATALOG 
     Case "FV" 
      Rem Print FV Report for d!CATALOG 
     Rem same for other tables/reports 
     End Select 
    d.MoveNext 
    Loop 
d.Close 

예 :이로

DoCmd.OpenReport "RPTManualValve", acViewPreview, , "CATALOG = '" & d!CATALOG & "'" 
MsgBox "Test" 
DoCmD.Close acReport,"RPTManualValve"