Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Linktable bi lỗi code VBA - cần giúp đở gắp
#1
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

cần các bạn pro giúp đở, minh tao Front End và Back End thi bị lỗi dòng màu đỏ, đoạn code trên bi lỗi như thế nào mong các bạn giúp.
Chữ ký của morosumo Xin chào, mình là morosumo, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -11.
Reply
Những người đã cảm ơn
#2
Hổng cò thời gian nghiên cứu nhưng theo bạn trình bày : "tao Front End và Back End thi bị lỗi dòng màu đỏ" thì nghe ra có vẻ lỗi do Khóa bằng tiếng việt có dấu thì phải ,nên khi tạo Font khác nó không tìm thấy tham chiếu tới khóa đó .thử thay đổi lại xem sao
Sorry ha
Khải Nguyên
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn
#3
(08-09-13, 12:19 PM)khải nguyên Đã viết: Hổng cò thời gian nghiên cứu nhưng theo bạn trình bày : "tao Front End và Back End thi bị lỗi dòng màu đỏ" thì nghe ra có vẻ lỗi do Khóa bằng tiếng việt có dấu thì phải ,nên khi tạo Font khác nó không tìm thấy tham chiếu tới khóa đó .thử thay đổi lại xem sao
Sorry ha
Khải Nguyên

mình đã đổi font rùi nhưng vẫn không được, bạn xem giúp mình được không, vẫn bị lỗi khóa chính
Chữ ký của morosumo Xin chào, mình là morosumo, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -11.
Reply
Những người đã cảm ơn
#4
Do link table nên không tìm thấy khóa chính của recordset mà bạn định nghĩa biến. Đơn giản thế thôi
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn morosumo
#5
(08-09-13, 10:00 PM)Xuân Thanh Đã viết: Do link table nên không tìm thấy khóa chính của recordset mà bạn định nghĩa biến. Đơn giản thế thôi
Thân mến
bạn có thể giai thích cụ thể, và hướng dẫn mình làm như thế nào không? cám ơn bạn nhiều.
Chữ ký của morosumo Xin chào, mình là morosumo, Tham gia http://thuthuataccess.com/forum từ ngày 10-05 -11.
Reply
Những người đã cảm ơn
#6
(07-09-13, 01:20 AM)morosumo Đã viết: 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

cần các bạn pro giúp đở, minh tao Front End và Back End thi bị lỗi dòng màu đỏ, đoạn code trên bi lỗi như thế nào mong các bạn giúp.

teo đoạn code trên mình nghĩ bạn đang làm việc: kiểm tra xem mã thuốc mới nhập có tồn tại rồi hay chưa đúng không?? Nếu vậy thì mình có vài ý kiến sau nhé:

1. bạn đặt code kiểm tra ở tenthuoc_AfterUpdate() không hợp lý cho lắm vì:
trường mathuoc của bạn xây dựng từ Tên, Giá, Nhóm, giả sử lúc User mới nhập tên thôi mà chưa kịp nhập thông tin kia thì nó... trớt quớt. Test lại mặt này nha bạn.

2. Nếu bạn chỉ tìm xem thằng mathuoc đã có trong dữ liệu chưa thì sao không dùng Dlookup cho gọn hả bạn?

Mã PHP:
Dim s as string

s
=nz(dlookup("mathuoc""dmthuoc""mathuoc='" mathuoc "'"),"")
'tìm mathuoc trong table dmthuoc theo điều kiện MaThuoc=mathuoc mới nhập, nếu có trả về MaThuoc, kô có trả về chuỗi ""

if s="" then
  '
tìm không thấynghĩa là chưa có
else
  
'có thằng ưỷ này trong table rồi, xử nó
end if 

Bạn thử lại xem sao ha! Thân!
ღღღღღTài sản của bomnhauag (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Có vẻ mình không lập trình như bạn nên mình không gips được
Chữ ký của tt1212 Present Nhận viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -0941655079   Hoặc 989276236. Email: Tantriviet.vnn@gmail.com 007
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Code cho nút in phiếu ChiMai 3 247 24-12-16, 10:43 PM
Bài mới nhất: maidinhdan
  [Help] K biết là lỗi hay gì cần trợ giúp. nhocdevill11 2 159 08-12-16, 05:02 PM
Bài mới nhất: nhocdevill11
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 401 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 292 04-09-16, 03:48 PM
Bài mới nhất: Nguyen Hoang Diep
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 340 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ