tạo một modules rồi lưu file với tên : "thietlapbm" với nội dung bên dưới .
Public Sub ThietLapBaoMat(propname As String, _
Propdb As Variant, prop As Variant)
'Set passed ******* property.
Dim dbs As Object
Dim prp As Object
Set dbs = CurrentDb
On Error Resume Next
dbs.Properties(propname) =...