Xóa recorder
Phung Duc > 26-08-16, 02:56 PM
Các bác giúp mình sửa cái lỗi này
Mình muốn xóa 1 số recorder của table nhưng báo lỗi Complite error "Loop without do". Cấu trúc Do While Loop như bên dưới sai ở đâu ạ? Cám ơn nhiều
Sub Command48_Click()
Dim Db As DAO.Database
Dim Rs As Recordset
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("tabtemp", DB_OPEN_TABLE)
Do While Not (Rs.EOF)
If Rs!temp = "2017" Then
Rs.Delete
Exit Do
Else
Rs.MoveNext
Loop
Rs.Close
End Sub