Zone de liste déroulante affichant l'invite "Entrer la valeur du paramètre" lorsque vous cliquez sur un bouton

Question

Avez-vous des idées pour l'obtention d'une zone de saisie "Entrer la valeur du paramètre" lors de l'exécution de ce code?

Private Sub cmdPrint_Click() 
    Dim str As String 
    On Error GoTo ErrHandler 
    If IsNull(Me.Combo_1) Then 
     MsgBox "Can't print an unsaved record", _ 
     vbOKOnly, "Error" 
     Exit Sub 
    End If 
    str = "Combo_1 = '" & Me!Combo_1 & "'" 
    Debug.Print str 
    DoCmd.OpenReport "rptBarCodeLabels(2)", acViewPreview, , str 
    Exit Sub 
ErrHandler: 
    MsgBox Err.Number & ": " _ 
    & Err.Description, vbOKOnly, "Error" 
End Sub 

Edit: Le bouton est utilisé pour imprimer une étiquette de ce qui est sélectionné dans Combo_1. Une fois le bouton d'impression cliqué, je voulais qu'il affiche le seul enregistrement que j'ai choisi dans le rapport d'étiquette que j'ai référencé. J'utilise Access 2003 si cela veut dire quelque chose.

Answer 1

Si un nom de champ dans une requête contient la ponctuation (Combo_1), vous devez placer entre parenthèses, comme ceci:

str = "[Combo_1] = '" & Me!Combo_1 & "'" 

Le rapport attend un paramètre, mais pas l'obtenir parce qu'il est pas passé par de la manière correcte.

Answer 2

que j'ai trouvé une solution en utilisant un certain codage qui a été fourni ici: http://www.techrepublic.com/article/how-to-print-one-or-more-labels-for-a-single-access-record/

Quelle fixe l'erreur a été le plus probablement une table crée temporaire et rapport temporaire.