2009-06-08 3 views
2

보고서를 여는 단추가 있습니다. "Where"절에 현재 서식의 필드 위치와 일치하는 ToteLocation 만 표시하는 문장이 있습니다. 다음은 코드입니다.원하지 않는 매개 변수 값 입력 메시지 상자

Private Sub   
    cbTruckorder_Click() 
    Dim stdocname As Stringstdocname = "TruckLoadingReport" 
    ' setting focus to ScannerRead in order to continue operations 
    '  (see Command22) 
    Me.tbScannerRead.SetFocus 
    ' opening the Truck Loading Report 
    DoCmd.OpenReport stdocname, acViewPreview, , "[Tote Log].ToteLocation =" & _ 
                  Me.tbScannerRead 
End Sub 

매개 변수 값을 묻는 메시지 상자가 나타납니다. 상자에 Me.tbScannerRead의 값이 표시됩니다. 예 : T265. 보고서는 매우 간단하며 페이지 머리글에 전체 텍스트 상자가 있으며 정보는 로트 번호 헤더별로 그룹화되어 있습니다. 로트 번호 텍스트 상자가 있습니다. 나는 세부 사항에 나는 tote numbers 텍스트 박스가있다. 그리고 그것은 그 이상이다.

매개 변수 값에 값 (T265)을 넣으면 보고서가 표시되지만 매개 변수 값 상자가 사라질 필요가있는 경우 누구의 제안도 좋을 것입니다.

SELECT [Tote Log].Type, 
     [Tote Log].Number, 
     [Tote Log].ToteLocation, 
     [Lot Number].Lot 
FROM [Tote Log] INNER JOIN [Lot Number] 
     ON [Tote Log].[Lot Number] = [Lot Number].ID; 

답변

2
Private Sub   
    cbTruckorder_Click()  
    Dim stdocname As Stringstdocname = "TruckLoadingReport"   
    ' setting focus to ScannerRead in order to continue operations 
    '  (see Command22) 
    Me.tbScannerRead.SetFocus 
    ' opening the Truck Loading Report 
    DoCmd.OpenReport stdocname, acViewPreview, , "[Tote Log].ToteLocation ='" & _ 
                 Me.tbScannerRead & "'" 
End Sub 

내가 그의 마지막 이름을 기억 할 수 없지만, 정말 도움이 당신에게 제프 감사합니다 :

다음은 보고서에 대한 SQL 감사합니다. 작은 따옴표를 추가했지만 ME.tbScannerRead 다음에 .text를 꺼 냈습니다. 감사합니다.

관련 문제