Вот пример, хотя и не очень хороший
Это обработчик кнопки на форме ввода параметров запроса,
который строит фразу where и ставит фильтр на основную форму.
По хорошему надо делать запрос с параметрами, но здесь этого нет
Private Sub Command12_Click()
Dim Cond As String
Dim Temp As Variant

On Error GoTo E1

Cond = ""
If Not (IsNull(Me![DATE1])) Then
Temp = DateValue(Me![DATE1])
If IsNull(Temp) Then
MsgBox ("Îøèáêà â çàäàíèè íà÷àëüíîé äàòû")
Exit Sub
End If

If Len(Cond) > 0 Then
Cond = Cond + " and "
End If

Cond = Cond + " CDate(""" + Format(Temp, "DD.MM.YYYY") + """)<=REQ_DATE"
End If

If Not (IsNull(Me![DATE2])) Then
Temp = DateValue(Me![DATE2])
If IsNull(Temp) Then
MsgBox ("Îøèáêà â çàäàíèè êîíå÷íîé äàòû")
Exit Sub
End If

If Len(Cond) > 0 Then
Cond = Cond + " and "
End If

Cond = Cond + "REQ_DATE<=" + "CDate(""" + Format(Temp, "DD.MM.YYYY") + """)"
End If

If Not (IsNull(Me![DEP_ID])) Then
If Len(Cond) > 0 Then
Cond = Cond + " and "
End If

Cond = Cond + "DEP_ID=" + Str(Me![DEP_ID])
End If

If Not (IsNull(Me![QUESTION])) Then
If Len(Cond) > 0 Then
Cond = Cond + " and "
End If

Cond = Cond + "REQ_ID in (select REQ_ID from QUESTIONS where QUESTION like ""*" + Me![QUESTION] + "*"")"
End If

DoCmd.Close acForm, "PARAMETERS"
If Len(Cond) > 0 Then
DoCmd.ApplyFilter , Cond
End If

E1:
Temp = Null
Resume Next
End Sub

2 SBL
Выходит не если не заполнено, а если заполнено неправильно (не преобразуется в дату). Если не заполнено, то соответствующая часть условия просто не пишется