Help: linktable bi loi code VBA

[dat09]

Private Sub tenthuoc_AfterUpdate()
If IsNull(tenthuoc) Then
MsgBox "Chöa nhaäp teân thuoác ", , "Chu y"
Exit Sub
End If
tenthuoc = StrConv(NGHIEMTRANG(tenthuoc, 0), 3)
Mathuoc = Trim(tenthuoc & "-" & Hamlg & "-" & dongia & "-" & nhom)
Dim Rdmt As Recordset
Set Rdmt = CurrentDb.OpenRecordset("dmthuoc", dbOpenDynaset)
Rdmt.Index = "PrimaryKey"
Rdmt.Seek "=", Mathuoc
If Not Rdmt.NoMatch Then
MsgBox "Thuoác naøy ñaõ coù roài , xin nhaäp teân khaùc", , "Chuù yù"
DoCmd.RunCommand acCmdUndo
End If
End Sub

View more random threads:

• Sự khác nhau trong câu lệnh SQL sử dụng trong Access (Jet) và SQL Server (SS)
• Làm thế nào để hiển thị tiếng việt trong Msg box Yes/No ?
• làm cách nào để đưa nhiều file excel vào cùng 1 table
• Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó
• Lỗi access 2003 khi chạy trên 2007
• 10 thủ thuật bảo mật cơ sở dữ liệu Access
• Checkbox và option button
• Xin giúp em về listview
• Help! Tự động ẩn dòng khi giá trị bằng 0 trong
• Không đánh biến vào các Qerry nữa

[fragilesss]

Ðề: Help: linktable bi loi code VBA

Bạn vui lòng xem lại khóa chính "PrimaryKey" vì đã trùng lấp khóa chính .