جستو جو در پایگاه داده access

سلام.خسته نباشید
من یه برنامه نوشتم که دیتا بیسش اکسس هست و برای جستو جو از کد زیر استفاده کردم.کار میکنه ولی وقتی کاربر فیلد آخر رو جستو جو میکنه برنامه فیلد یکی مونده به آخر رو بهش نمایش میده.اگه روش دیگه یا راه حلی دارید ممنون میشم کمکم کنید.

   Private Sub Command1_Click()

Form4.Data1.Recordset.MoveFirst

Do Until Form4.Text3.Text = Text1.Text

If Form4.Text3.Text = Text1.Text Then Form4.Data1.Recordset.MoveNext

Form4.Data1.Recordset.MoveNext

If Form4.Text3.Text <> Text1.Text Then Form13.Show

Exit Do

Loop

Unload Me

Form4.Show

Form4.Enabled = True

End Sub

دقیقا میخای جیکار کنی ؟

Sql="Select * From Table1 Where ID like '" & text1.text & ""

جستجو نمایید.

نقل قول:

---

نوشته شده توسط sobhan93

دقیقا میخای جیکار کنی ؟

---

میخوام جستو جو بر اساس شماره تلفن باشه یعنی وقتی عددی توی text1 وارد میشه اون رو با تکست حاوی فیلد تلفنها(text3) توی یک حلقه مقایسه کنه و اگه برابر شد مشخصات فرد صاحب تلفن رو نشون بده.

یکی نوشتم
امیدوارم کارت رو راه بندازه
هم با دستور do While (حلقه )
هم با دستور SQL

نقل قول:

---

نوشته شده توسط sobhan93

یکی نوشتم
امیدوارم کارت رو راه بندازه
هم با دستور do While (حلقه )
هم با دستور SQL

---

خیلی خیلی ممنون کارم راه افتاد ولی چون textbox های من زیاد بود توی خط 6 و 7 یه تغییری دادم
بازم ممنون

Private Sub Command2_Click()

Dim Tf As Boolean

Adodc1.Recordset.MoveFirst

Do While Not Adodc1.Recordset.EOF

If Adodc1.Recordset.Fields("tel") = Text4 Then

Data1.Recordset.MoveNext

Data1.Recordset.MovePrevious

Tf = True

Exit Do

Else

Adodc1.Recordset.MoveNext

End If

Loop

If Tf = False Then MsgBox "peyda Nashod"

End Sub