نمايش ركورد هاي تكراري!

[niksalehi]

سلام عزیزان
میخواستم کدی بنویسم که اگه روی کامند کلیک کردم،شماره داخل تکستباکس رو داخل یه تیبل خاص جستجو کنه و موارد تکراری رو به من نشون بده!
مثلا اگه اون شماره 3 بار تکرار شده بود، 3تا رکورد رو هم بهم نشون بده!
با کد زیر میتونم رکورد تکراری رو پیدا کنم اما فقط رکورد تکراری اول پیدا میشه، دومی و سومی نمیشه...


Private Sub Command1_Click()
Adodc1.Refresh
Adodc1.Recordset.Find "filed='" & Text1.Text & "'"
If Text2.Text <> "" Then
msgbox "recorde tekrari " + text2.text + " hastesh!"
Else
msgbox "tekrari vujud nadare!"
End If
End Sub

[niksalehi]

یعنی کسی نمیدونه؟ :ناراحت:

[MiladMR]

بجای Find از Filter استفاده کن
شکل کلی:


Adodc1.Recordset.Filter = "FIELDNAME CONDITION VALUE"
FIELDNAME که نام فیلد مورد نظره
CONDITION هم علامت شرط هست مثل (+ - * / \ Like)
VALUE هم که مقدار مورد نظره

اینجوری میشه:



Adodc1.Recordset.Filter = "FIELDNAME = " & Text1.Text
If Adodc1.Recordset.RecordCount > 0 Then
For i=1 to Adodc1.Recordset.RecordCount
MsgBox "Record tekrari " & Text2.Text & "hastesh"
Adodc1.Recordset.MoveNext
Next
Else
MsgBox "Record tekrari vojod nadare!"
End If

[niksalehi]

ممنونم اما جواب نداد!
نمیدونم کجاش ایراد داره!

[MiladMR]

ممنونم اما جواب نداد!
نمیدونم کجاش ایراد داره!

یادم رفتی بود براش MoveNext هم بزارم، پست بالا رو ویرایش کردم، الآن درسته
اینم همین سورس همین کدی که میخوای : دانلـــــــــــــــــود (http://up98.org/upload/server1/02/g/ydo9zetlqnsp7ffieov6.rar)
فقط خودت adodc1 رو با بانک ست کن