یکی به من کمک کنه در مورد جستجو

[mm_ley]

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


دوستان ببینید من یک دیتا بیس دارم با نام exam و با فیلد های
name family code

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


ممکنه اسم و فامیلی تکراری باشه می خوام هرچند تا هم نوع باشه را نشان بده مثلا اگر 4 تا اسم علی باشه دونه دونه پیدا کنه

این کد هم نوشتم ولی اولین اسم را پیدا می کنه ولی اسمهای بعدی را نه

آیا کد من اشکال داره لطفا کمکم کنید خیلی حیاتی هستش

این هم کد :

[arashrj]

سلام
لطفا کد پروژه رو ضمیمه کن ، نه تصویرش رو . (تا کسی دوباره وقت نزاره برنامه رو از اول برات بنویسه)

موفق باشی

[mm_ley]

چشم این هم کدش

()Private Sub Command9_Click
Dim intans As Integer
"'" & Data1.Recordset.FindFirst "Name = ' " & txtfind
Do While Data1.Recordset.NoMatch = False
(intans = MsgBox("continiue?", vbYesNo
If intans = 7 Then
Exit Do
End If
"'" & Data1.Recordset.FindFirst "Name = ' " & txtfind
Loop

End Sub

---

سلام
لطفا کد پروژه رو ضمیمه کن ، نه تصویرش رو . (تا کسی دوباره وقت نزاره برنامه رو از اول برات بنویسه)

موفق باشی

()Private Sub Command9_Click
Dim intans As Integer
"'" & Data1.Recordset.FindFirst "Name = ' " & txtfind
Do While Data1.Recordset.NoMatch = False
(intans = MsgBox("continiue?", vbYesNo
If intans = 7 Then
Exit Do
End If
"'" & Data1.Recordset.FindFirst "Name = ' " & txtfind
Loop

End Sub

---

دوستان خیلی فوریه تا سال تحویل نشده لطف کنید پاسخ دهید

[arashrj]

سلام
این هم کد درست :

کد:

Dim intans As Integer
Data1.Recordset.FindFirst "Name = '" & txtfind.Text & "'"
Do While Data1.Recordset.NoMatch = False
    intans = MsgBox("Continiue?", vbYesNo)
    If intans = 7 Then
    Exit Do
    End If
    Data1.Recordset.FindNext "Name = '" & txtfind.Text & "'"
Loop

موفق باشی

[mm_ley]

عذر می خوام

ولی این کد صحیح که شما نوشتید چه فرقی با کدی که من نوشتم داره؟


لطف می کنید توضیح بدید هر چی نگاه می کنم همون خط ها ی کد خودم است؟

[m_vb66]

اين كه كاملا معلومه اختلاف تو خط اخر هست كه شما دقت نكردين اين رو ميگم Data1.Recordset.FindNext

[mm_ley]

با تشکر از تمامی دوستان

بله حق با شما بود من دقت کافی نکردم باز هم سپاسگزارم از همه عزیزان

که پاسخ دادن