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:
- Lấy giá trị từ combo box
- Xóa dữ liệu ở 2 bảng cùng lúc
- Nhập dữ liệu record vào table thì khi xuất sang access fon't chữ bị nhảy khônng đọc được
- Hộp thoại InputBox trong Access có InputMask dạng password hay ko?
- dữ liệu ngày trả về quý
- 10 thủ thuật bảo mật cơ sở dữ liệu Access
- nhờ các bạn giúp đỡ.
- Lựa chọn và mặc định máy in trên access
- Giúp câu lệnh "Between...and..."
- Xin các bác giúp đỡ về phần In ạ
-
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 .
Pallet nhựa Trà Vinh giao hàng miễn phí Thông số kỹ thuật của pallet nhựa Trà Vinh có thể thay đổi tùy vào mục đích sử dụng và tiêu chuẩn sản xuất của từng nhà sản xuất. Tuy nhiên, dưới đây là một...
Pallet nhựa Trà Vinh giao hàng miễn phí