Nhờ các anh em trong diễn đàn giải thích giùm về cách viết câu lệnh nạp record từ table cho Unbound form. Mình thấy có 2 cách nhưng không biết nó khác nhau như thế nào? điểm tốt/ xấu của mỗi cách viết? (Do tự học lung tung nên có những cái cơ bản mình chưa thông
).
Lấy record:
rs.Fields("Tên Field").Value VS
rs!Tên Field (cách này hay sử dụng)
Ví dụ:
Public Sub NapBanGhi()
Dim sSQL As String
If IsNull(Me.OpenArgs) = False Then
sSQL = "SELECT * FROM tblBangCap WHERE [Ma] = " & Me.OpenArgs
Set db = CurrentDb
Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)
......................................................................
Cách 1:
Me.txtMa =
rs.Fields("Ma").Value
Me.txtTen =
rs.Fields("Ten").Value
Me.txtGhiChu =
rs.Fields("GhiChu").Value
......................................................................
Cách 2:
Me.txtMa = rs!Ma
Me.txtTen = rs!Ten
Me.txtGhiChu = rs!GhiChu
.....................................................................
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End If
End Sub