Dim MSG As String
If Me.tgl_Empty.Value = False And DCount("*", "qry_Stolen_Cars") > 0 Then
DoCmd.OpenReport "rpt_Stolen_Cars", acViewPreview
ElseIf Me.tgl_Empty.Value = False And DCount("*", "qry_Stolen_Cars") = 0 Then
MSG = MsgBox("Stolen cars report is empty please check the dates or...