Ciao a tutti!

Spero di non essere OT, perchè è più un problema di programmazione in VBA...Eventualmente chiedo gentilmente di spostarmi nel forum appropriato.

Siamo in ACCESS.

Ho realizzato una maschera che contiene un menù a discesa in cui sono elencate due promozioni:

- verde
- rosso

(Il menu a discesa prende le vosi da una tabelle tbl Promozioni)

Ora ho un bottone che visualizza un report con i dati inseriti della maschera.

Vorrei che il bottone cmdReport visualizzasse i report in base alla voce scelta nel menù a discesa.

Se ho scelto 'rosso' dorebbe visualizzare il rptRosso se invece non scelgo niente dovrebbe visualizzare un report standard rptStandard.

Ho provato a scrivere queste righe di codice con l'enunciato Select ma ho bassissime conoscienze di VBA, così chiedo un votro gentile aiuto:

codice:
Private Sub CmdViewVoucher_Click()
    Select Case cboPromozione.Text
        Case "Rosso"
            DoCmd.OpenReport "rptRosso", acPreview, "", " [IDPrenotazioni]=[Forms]![FormPrenotazioni]![IDPrenotazioni]"
        Case "verde"
            DoCmd.OpenReport "rptVerde", acPreview, "", " [IDPrenotazioni]=[Forms]![FormPrenotazioni]![IDPrenotazioni]"
        Case Else
            DoCmd.OpenReport "rptVoucher2", acPreview, "", " [IDPrenotazioni]=[Forms]![FormPrenotazioni]![IDPrenotazioni]"
    End Select
End Sub


Grazie in anticipo per il vostro aiuto!

d-force