ايران ويج

من این DATAGIRD را ساختم ( تصویر پیوست)

بعد برای دگمه جستجو این کد را نوشتم ولی ERROR میده

مشکل من کجاست؟

کد:
Dim intans As Integer
"'" & ADODC1.Recordset.FindFirst "Name = '" & txtfind.Text
Do While Data1.Recordset.NoMatch = False
(intans = MsgBox("Continiue?", vbYesNo
If intans = 7 Then
Exit Do
End If
"'" & ADODC1.Recordset.FindNext "Name = '" & txtfind.Text
Loop

با این هم تست کن:

کد: 
Data1.Recordset.MoveFirst

Do while Data1.Recordset.EOF = False

if Text1.Text = TxtSearch.text then

(intans = MsgBox("Continiue?", vbYesNo

If intans = 7 Then

Exit Do

End If

end if

data1.Recordset.MoveNext

loop

در ضمن، سعی کنین از اسامی بهتری برای بیان مشکلتون استفاده کنین. الان هیچ کس نمی تونه از روی اسم تاپیک متوجه بشه که مشکل شما چیه!!!!

با دستور فیلتر به این صورت مشکل خودمو حل کردم

" ' " & Adodc1.Recordset.fliter = "NAME= ' " & Text4.Text

اگه از کنترل Adodc استفاده کردین چرا RecordSource رو به دستورات SQL تبدیل نمی کنین؟
مثلاً این:
SELECT * FROM table1 WHERE Name ='salam'

اگه باز هم مشکل داشتین، Source تون رو بذارین تا ببینمش

ممنون

mm_ley

far_222000

mm_ley

far_222000

mm_ley