مشکل در جستجو

[ehsanocx]

سلام دوستان عزیز. کسی می تونه کمکم کنه تویه این کد :




If ComboSearch.Text = "NameFamily" And txtSearchD <> "" Then

Adodc1.Recordset.Find ("Name_Family='" + txtSearchD.Text + "'") l کد جستجوی منه/ میخوام اگر کلمه مورد نظر رو پیدا نکرد از توی DataGraid یه پیغان خطا بده. اما هر کار می کنم اگه کلمه وارد شده داخل Datagrid نبود Error بده نمیشه. کسی می تونه کمکم کنه ؟:اشتباه:

[HjSoft]

rst.filter = "name ='Hamed'"
اینو بزن که فیلتر کنه
----------------------
if rst.recordcount = 0 then
msgbox
end if

این برای فهمیدن که هست یا نیست

[ehsanocx]

if adodc1.recordset.recordcount=0 then
msgbox("Error") l
این کار رو هم کردم جواب نداده.
من میخوام اگر جستجو کرد و پیدا نکرد یک پیغان بده. این طوری هیچ پیغام خطایی نمده عزیز.

[hmrbesharat]

فك كونم اگر ابتدا ركورد فعال را ركورد اولي قرار بدي بعد از جستجو بيني اگر eof , true شد يه پيغام مبني بر پيدا نشدن بده