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

[mahdi_apple]

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



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

[Veteran]

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

[sehm67]

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

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

[mahdi_apple]

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

[Veteran]

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

[mahdi_apple]

یکی نوشتم
امیدوارم کارت رو راه بندازه
هم با دستور 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