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

[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

---

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