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:

• xuất table access sang nhiều sheet excell
• Đặt password cho Front End bằng VB
• Tao dấu / khi đánh ngày tháng năm
• Làm thế nào để hiển thị tiếng việt trong Msg box Yes/No ?
• Hộp thoại InputBox trong Access có InputMask dạng password hay ko?
• Hướng dẫn tạo MeNu cho file Access bằng Macro
• Tìm bản ghi đầu tiên trên Form
• Hỏi cách viết 1 hàn function tính điểm TB
• Randomize số trong Access
• Form Status làm như thế nào anh chị ơi...?

[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 .