不必要的输入参数值消息框

Question

我有一个打开报告的按钮。我在“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。该报告非常简单，在页眉中有totelocation文本框，信息按批号分组，在批号标题中有一个批号的文本框。我的详细信息，我有手提袋数字文本框，就是这样，仅此而已。

如果我在参数值中放入值（T265），它会显示报告，但我需要参数值框消失，任何人的建议都会很好。

谢谢

下面是报告的SQL：

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; 

Answer 1

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后取出了.text。再次感谢