وعليكم السلام ..
1- اعمل موديول
Public Sub FilterComboAsYouType(combo As ComboBox, defaultSQL As String, lookupField As String)
Dim strSQL As String
If Len(combo.Text) > 0 Then
strSQL = defaultSQL & " WHERE " & lookupField & " LIKE '*" & combo.Text & "*'"
Else
strSQL = defaultSQL 'This is the default row source of combo box
End If
combo.RowSource = strSQL
combo.Dropdown
End Sub
2- في حدث عند التغيير لمربع التحرير يتم استدعاء الدالة هكذا
Private Sub Cbocustomer_Change()
FilterComboAsYouType Me.Cbocustomer, "SELECT * FROM customers", "customerName"
End Sub
3- اجعل خاصية Auto Expand=False