Chủ đề: Help: linktable bi loi code VBA
-
09-07-2013, 07:20 AM #1
Member
- 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:
- Các Bro giúp em sử lý hàm Dsum kết hợp hàm And với !!!!
- Giúp Đỡ
- Tách chữ trong một dòng thành hai dòng?
- File Access không chạy được VBA
- Xin hướng dẫn cách nhập số vào textbox
- A/c giúp e hàm Do while với.
- Khóa ko cho sử dụng chuột phải
- Trong Form có số liệu Thành Tiền mà sang Report bằng không?
- Tạo Menu trong Access
- Tìm bản ghi đầu tiên trên Form
-
09-09-2013, 10:01 PM #2
Junior 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 .
Việc chọn lọc “áo mưa” cũng giống như những chiếc bao cao su mỏng nhất thế giới mặc thông thường vậy, mỗi người ở mỗi khu vực khác nhau lại có kích tấc thân khác nhau, người Châu Âu thì to cao hơn...
Vấn đề quý ông thắc mắc: Bao cao su nào cũng giống nhau phải không?