Report su menu a scelta

di il
3 risposte

Report su menu a scelta

Tramite un gruppo di  opzioni mi creo un menu in cui apro tramite il pulsante un determinato report.

Vorrei che quando non ci sono dati il report non si apra

Il codice del menu che so esegue su un pulsante

Private Sub button_Click()
Dim Report As String
Dim Form As String
Dim Args As String
Select Case Me.gruppo
Case Is = "1"
Report = "rptelencoclienti"
Args = "italiano"
Case Is = "2"
Report = "rptelencoclienti"
Args = "straniero"
DoCmd.OpenReport Report, acViewPreview, , , , Args
end sub

Il codice del report rptelencoclienti

Private Sub Report_Load()
Dim filtro As String
Select Case Me.OpenArgs
Case Is = "italiano"
Me.TITOLO.Caption = "Clienti italiani"
filtro = "[Nazione] Like 'Italia'"

Case Is = "straniero"
Me.TITOLO.Caption = "Clienti stranieri"
filtro = "[Nazione] not Like 'Italia'"


End Select
Me.Filter = filtro
Me.FilterOn = True
End Sub

Se provo con Report_NoData ricevo errore run-time 2501 e il report non si apre mai

Private Sub Report_NoData(Cancel As Integer)
MsgBox Prompt:="Nessun record. Report non generato", Buttons:=vbInformation, title:="Non generato"
Cancel = True
End Sub

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte