(06-05-20, 11:31 AM)yamakashi2003 Đã viết: Em cám ơn bác, Bác cho em hỏi trong đoan code
.....
With rst
If .EOF And .BOF Then Exit Sub
.Edit
.Fields("TenNutLenh") = Me.txtTenNutLenh
.Fields("IconNutLenh").AppendChunk Me.imgIcon.PictureData
.Update
.Close
End With
......
câu : If .EOF And .BOF Then Exit Sub này có nghĩa gì ạ
Em xin cảm ơn
Câu lệnh này bạn sẽ gặp dài dài trong viết code liên quan đến xử lý Recordset.
Đây là dòng code bẫy lỗi khi Recordset không có record nào. End of File hoăc Begin of file: tức là con trỏ đang nằm ở vị trí đầu recordset và cũng là vị trí cuối Recordset thì suy ra nó không có record nào. Không có record nào thì không cần chạy tiếp các dòng code bên dưới chi cho tốn thời gian và sẽ phát sinh lỗi "No current Record".