mahdi_apple
پنج شنبه 08 دی 1390, 22:12 عصر
سلام.خسته نباشید
من یه برنامه نوشتم که دیتا بیسش اکسس هست و برای جستو جو از کد زیر استفاده کردم.کار میکنه ولی وقتی کاربر فیلد آخر رو جستو جو میکنه برنامه فیلد یکی مونده به آخر رو بهش نمایش میده.اگه روش دیگه یا راه حلی دارید ممنون میشم کمکم کنید.
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
من یه برنامه نوشتم که دیتا بیسش اکسس هست و برای جستو جو از کد زیر استفاده کردم.کار میکنه ولی وقتی کاربر فیلد آخر رو جستو جو میکنه برنامه فیلد یکی مونده به آخر رو بهش نمایش میده.اگه روش دیگه یا راه حلی دارید ممنون میشم کمکم کنید.
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