Chủ đề: Help: linktable bi loi code VBA
-
09-07-2013, 07:20 AM #1Member
- Ngày tham gia
- Oct 2015
- Bài viết
- 97
Help: linktable bi loi code VBA
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 SubView more random threads:
- Chạy 1 function vbscript trong Access???
- Sự khác nhau trong câu lệnh SQL sử dụng trong Access (Jet) và SQL Server (SS)
- Cần giúp đỡ gấp
- Có sự khác nhau không giữa Font Tahoma trên XP và trên Win 7 ?
- Setup khổ giấy máy in kim
- chế độ xem form, report trong access
- lấy dử liệu từ file excel sang table của acess
- liên kết giữa textbox và listbox
- Giải giúp mình bài tập này với
- Code Mở phím Shift bị lỗi
-
09-09-2013, 10:01 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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 .
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng Đá mỹ nghệ Tài Tuệ là đơn vị hàng đầu trong lĩnh vực điêu khắc chế tác các sản phẩm, công trình tâm linh bằng đá tại làng đá truyền...
Địa chỉ cung cấp mẫu lăng mộ đá khu lăng mộ uy tín chất lượng năm 2024