حذف از سطر n تا اخرین سطر در اکسس [بایگانی]

samiasoft

دوشنبه 27 آبان 1392, 17:28 عصر

چگونه میتوانم مثلا از سطر 1000 تا سطر 5000 را حذف کنم؟

سطر 5000 اخرین سطر هستش.

Abbas Amiri

سه شنبه 28 آبان 1392, 23:53 عصر

چگونه میتوانم مثلا از سطر 1000 تا سطر 5000 را حذف کنم؟

سطر 5000 اخرین سطر هستش.

در فرمتان یک تکست باکس(txtStart) و یک باتن (cmdDelRec) ایجاد کنید و در رویداد کلیک آن تایپ کنید:

Private Sub cmdDelRe_Click()
Dim rs As DAO.Recordset, k As Integer
Set rs = Me.Recordset
rs.MoveLast
rscnt = rs.RecordCount
For k = rscnt To Val(txtStart) Step -1
rs.Delete
rs.MovePrevious
Next
Set rs = Nothing
End Sub

اگر الزاما ازعدد باید استفاده کنید بجای (Val(txtStart عدد مورد نظر رو بنویسید