Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Xóa recorder
#1
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
Chữ ký của Phung Duc Phung Duc,gia nhập Thủ Thuật Access từ 28-07 -16.
Reply
Những người đã cảm ơn
#2
Thiếu End If.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Phung Duc


Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ