ايران ويج

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


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

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


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

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

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

این هم کد :

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

موفق باشی

چشم این هم کدش

()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 نوشته است: [ -> ]سلام
لطفا کد پروژه رو ضمیمه کن ، نه تصویرش رو . (تا کسی دوباره وقت نزاره برنامه رو از اول برات بنویسه)

موفق باشی

()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

---

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

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


موفق باشی

عذر می خوام

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


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

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

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

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

که پاسخ دادن