vba - 访问 VBA 如果复选框 = true 打开查询但如果为空则给出消息

Question

我看过很多关于如果查询为空白则不打开查询的帖子，但不确定在哪里有代码来检查查询的输出。在运行查询之前，我有许多条件，如果满足，则打开查询。当我运行下面的代码时，查询打开并且我没有收到消息框。

Private Sub BetweenDates_Click()
    If IsNull(Me.DateMin) Then
        MsgBox "Enter starting date"
        EXIT SUB
    End If

    If IsNull(Me.DateMax) Then
        MsgBox "Enter ending date"
        EXIT SUB
    End If

    If (Forms![2ndfrm_AddEditView]![CbCATracker1] = True) Then
        DoCmd.OpenQuery "SearchCaTrackerCLUpdatedOn_Bt_qry"
    end if 

    If DCount("*", "SearchCaTrackerCLUpdatedOn_Bt_qry") > 0 Then
       MsgBox ("No records for that date range")
       EXIT SUB
    End If