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