دیروز داشتم رو یه برنامه ای کار میکردم خواستم براش یه جستجوی رکورد بذارم ، از طریق دیتا گریدش رو مشکلی ندارم ولی ست شدنشون با فیلدها یکمی مشکله ، مشکلشم اینه که وقتی عملیات جستجو انجام میشه که شما رکورد مورد نظر رو توی بانکت داشته باشی اگه رکوردی که مد نظرت هست نباشه هیچ پیغامی نمیده در صورتی که من در شرط دوم حلقم این نکته رو ذکر کردم از بروبچز گل سایت میخوام که جواب این سوال رو هر چه زودتر بدن چون خیلی مهمه کدی که ازش برای جستجو استفاده کردم کد زیر بود:
On Error Resume Next
Adodc1.Recordset.Find "Name='" & XPText13.Text
If Adodc1.Recordset.StayInSync = True Then
MsgBox "íÏÇ äÔÏ", vbDefaultButton1, "Err"
Else
Adodc1.Recordset.Fields(0) = XPText1.Text
Adodc1.Recordset.Fields(1) = XPText2.Text
Adodc1.Recordset.Fields(2) = XPText3.Text
Adodc1.Recordset.Fields(3) = XPText4.Text
Adodc1.Recordset.Fields(4) = XPText5.Text
Adodc1.Recordset.Fields(5) = XPText6.Text
Adodc1.Recordset.Fields(6) = XPText7.Text
Adodc1.Recordset.Fields(7) = XPText8.Text
Adodc1.Recordset.Fields(8) = XPText9.Text
Adodc1.Recordset.Fields(9) = XPText10.Text
Adodc1.Recordset.Fields(10) = XPText11.Text
End If
یا علی مدد