أريد كود في قاعدة البيانات

وهذا الكود للتوضيح حيث

sals2 هو الجدول المراد البحث فيه عن الرقم

sals4 هو الجدول الذي أريد أن أضيف له نتائج البحث التي توجد

msf 'هي الشبكة التي أريد أن اضيف فيها البيانات من جدول sals4

ملحوظة هذا الكود ينجح في احضار سجل واحد فقط ولا ينجح اذا احتوي الجدول الأصلي علي أكثر من سجل يريد نقلة

يعني اذا كان في جدول sals2 أكثر من سجل يحمل نفس الرقم لا ينقل في جدول sals4 الا سجل واحد فقط ولا ينقل له السجلات كلها

command3_click()

Dim v As String
	v = InputBox("أدخل الرقم المراد البحث عنه")
	If v = "" Then Exit Sub

	   mydb.Execute ("delete * from sals4")

		sals2.MoveFirst
		sals2.Find "no=" & Val(v)   

  If sals2.EOF Then
		  MsgBox ("الرقم غير موجود")
		  Exit Sub
		Else

	  Do While Not sals2.EOF
	If sals2.Fields("no") <> Val(v) Then Exit Do

	  sals4.AddNew

		 sals4.Fields("no") = sals2.Fields("no")
		  sals4.Fields("total") = sals2.Fields("total")
		  sals4.Fields("name") = sals2.Fields("name")
		  sals4.Fields("qua") = sals2.Fields("qua")
		  sals4.Fields("price") = sals2.Fields("price")
		  sals4.Fields("sn") = sals2.Fields("sn")
			   sals4.Update
		  sals2.MoveNext
	Loop

   If Not sals2.EOF Then sals2.MoveNext
  End If
   sals4.MoveFirst

  For z = 1 To sals4.RecordCount
	 Next z
	MSF.Rows = z

	y = 0

 Do While Not sals4.EOF
 MSF.Row = y
 MSF.Col = 0
 MSF.Text = sals4.Fields("no")
 MSF.Col = 1
 MSF.Text = sals4.Fields("name")
 MSF.Col = 2
 MSF.Text = sals4.Fields("total")
 MSF.Col = 3
 MSF.Text = sals4.Fields("price")
 MSF.Col = 4
 MSF.Text = sals4.Fields("qua")
  MSF.Col = 5
 MSF.Text = sals4.Fields("sn")
  sals4.MoveNext
 y = y + 1
  Loop

End sub