Mình có làm đoạn code VBA trong file access mà cứ báo lỗi nhờ mọi người hướng dẫn (2 người xem)

[baybley]

Đây là đoạn code mình dùng trong file mà không có chạy, mọi người xem giúp với a.
Private Sub cmdTaoPhuTung_Click()
Dim MaLoaiTrangBi As Long
MaLoaiTrangBi = Me.cboTenLoaiTrangBi.Value

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
Set qdf = db.QueryDefs("TruyVanPhuTroPhuTung") ' Thay "TenTruyVanPhuTro" b?ng tên truy v?n b?n dã t?o ? B1

qdf.Parameters("MaLoaiTrangBi") = MaLoaiTrangBi

On Error GoTo ErrorHandler
qdf.Execute dbFailOnError

MsgBox "Ðã t?o ph? tùng thành công!", vbInformation
Exit Sub

ErrorHandler:
MsgBox "L?i: " & Err.Description, vbCritical
End Sub

file mình dùng code là frmTaoPhuTung
mình mới học nên có nhiều chỗ còn yếu mong mọi người chỉ bảo thêm