دوستان ببینید این مشکل از کجاست؟

[mm_ley]

من این 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

[far_222000]

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

کد:

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

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

[mm_ley]

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



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

[far_222000]

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

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

[mm_ley]

ممنون