السلام عليكم
ضع هذا الكود خلف زر البحث وكما هو ظاهر
وان شاء الله احصل وقت واختزل الكود اكثر
Private Sub cmbsearch_Click()
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = ""
For i = 1 To 20
If Not IsNull(Me("inv" & i)) Then
xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
n = Me("inv" & i)
End If
Next i
If n = "" Then
xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa"
Else
xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1)
End If
Me.esano_1.Form.RecordSource = xsql
Me.Refresh
End Sub
بالتوفيق