Доступ к VBA, если флажок = истинный открытый запрос, но дать сообщение, если пуст - PullRequest
Новая
       13

Доступ к VBA, если флажок = истинный открытый запрос, но дать сообщение, если пуст

0 голосов
/ 08 октября 2019

Я видел ряд постов о том, что не нужно открывать запрос, если запрос пустой, но не уверен, где найти код для проверки результата запроса. Перед выполнением запроса у меня есть ряд условий, если они выполняются, запрос открывается. Когда я запускаю приведенный ниже код, открывается запрос, и я не получаю окно сообщения. 

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
...