2009-06-08 7 views
2

J'ai un bouton qui ouvre un rapport. J'ai une déclaration dans la clause "where" pour afficher uniquement un ToteLocation qui correspond à l'emplacement dans un champ sur le formulaire en cours. Voici le code:Unwanted Enter Parameter Value Message Box

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 

Je reçois une boîte de message qui demande une valeur de paramètre. Dans la boîte il montre la valeur de Me.tbScannerRead. Par exemple: T265. Le rapport est très simple et a la zone de texte totelocation dans l'en-tête de la page et l'information est groupée par un numéro de lot, dans l'en-tête du numéro de lot, j'ai une zone de texte pour le numéro de lot. J'ai les détails J'ai la boîte de texte des numéros de fourre-tout et c'est tout, rien de plus.

Si je mets la valeur (T265) dans la valeur du paramètre, il affichera le rapport, mais j'ai besoin que la boîte de valeur du paramètre disparaisse, les suggestions de n'importe qui seraient bien.

Merci

Voici le SQL pour le rapport:

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; 

Répondre

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 

Je ne me souviens pas son nom de famille, mais merci Jeff cela m'a vraiment aidé. J'ai ajouté les guillemets simples mais j'ai enlevé le .text après ME.tbScannerRead. Merci encore