کافی است کدی را به دکمه جستجو اضافه کنی
در صورتی که تمام تکس باکس ها خالی بود جدول بانک اطلاعاتی یا کوری دیگری که همه اطلاعات را نشان می دهد اجرا شود کد دکمه جستجو در ذیل آمده است
Private Sub Command26_Click()
On Error GoTo Err_Command26_Click

Dim stDocName As String

If (IsNull(Text0.Value) Or IsEmpty(Text0.Value)) And (IsNull(Text2.Value) Or IsEmpty(Text2.Value)) And _
(IsNull(Text4.Value) Or IsEmpty(Text4.Value)) And (IsNull(Text6.Value) Or IsEmpty(Text6.Value)) And _
(IsNull(Text6.Value) Or IsEmpty(Text6.Value)) Then
stDocName = "Table2"
DoCmd.OpenTable stDocName, acViewNormal, acEdit
Exit Sub
End If

stDocName = "Query1"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command26_Click:
Exit Sub

Err_Command26_Click:
MsgBox Err.Description
Resume Exit_Command26_Click

End Sub