کافی است کدی را به دکمه جستجو اضافه کنی
در صورتی که تمام تکس باکس ها خالی بود جدول بانک اطلاعاتی یا کوری دیگری که همه اطلاعات را نشان می دهد اجرا شود کد دکمه جستجو در ذیل آمده است
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