كيف ابحث في ريكوردات معينة

يمكنك أن تجعل كود البحث كالتالي:

	If Combo1.ListIndex = 0 Then
		RS.Open "Select * From tblTest  WHERE Word Like '%" & X & "%' Order By IDNumber ASC", DB, adOpenStatic, adLockPessimistic
	Else
		RS.Open "SELECT * FROM tblTest  WHERE Word LIKE '%" & X & "%' AND fildGroup = '" & Combo1.List(Combo1.ListIndex) & "' ORDER BY IDNumber ASC", DB, adOpenStatic, adLockPessimistic
	End If

فهو يتحقق من العنصر المختار في الـComboBox فإن كان All فإنه يجري البحث بطريقة عادية، وإلا فإنه يبحث بالاعتماد على حقلين هما: Word و fildGroup.

بالتوفيق.

شكرا لك أخي الكريم