Ошибка доступа к MS Access

Question

Пожалуйста, у меня есть ограниченная логическая возможность.

Текстовые поля для критериев поиска и кнопка SEARCH находятся в основной форме, а результаты поиска находятся во всплывающей форме.

Я не хочу, чтобы форма формы открывалась, если предоставленные критерии не совпадают с какой-либо записью в базе данных. Вместо этого я хочу, чтобы сообщение об ошибке «Извините, никаких критериев поиска» не появилось, но в моем текущем состоянии, когда нет соответствующих результатов/критериев нет, форма формы все же открывается с некоторыми записями вместе с сообщением об ошибке.

Вот код под кнопкой ПОИСК:

Private Sub btnSearch_Click() 
On Error GoTo Err_Msg 

If Not IsNull(Me.Form) Then 

    DoCmd.OpenForm "f_search" 
    ' Update the record source 
    Forms.f_search!f_search_sub.Form.RecordSource = "SELECT * FROM q_vehicles " & BuildFilter 

    Me.Requery 
Else 

Exit_btnSearch_Click: 
Exit Sub 

Err_Msg: 
MsgBox "Sorry, no search criteria.", vbInformation, "MV Clearance" 
End If 
End Sub 

Answer 1

Вы можете легко сделать поиск первым, а затем открыть форму, только если что поиск возвращает результаты: обработка

Private Sub btnSearch_Click() 
Dim rec as Recordset 
Dim db as Database 
On Error GoTo Err_Msg 

Set db = CurrentDB 

If Not IsNull(Me.Form) Then 
    'First open the recordset 
    Set rec = db.OpenRecordset("SELECT * FROM q_vehicles " & BuildFilter & "") 

    'Check to make sure the recordset isn't empty. If it is, exit the sub 
    If rec.EOF = true then 
     GoTo Err_Msg 
    EndIf 

    DoCmd.OpenForm "f_search" 
    ' Update the record source 
    Forms.f_search!f_search_sub.Form.RecordSource = "SELECT * FROM q_vehicles " & BuildFilter 

    Me.Requery 
Else 

Exit_btnSearch_Click: 
    Set db = Nothing 
    Set rec = Nothing 
Exit Sub 

Err_Msg: 
MsgBox "Sorry, no search criteria.", vbInformation, "MV Clearance" 
End If 
GoTo Exit_btnSearch_Click 
End Sub