Đá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, hỗ trợ viết phần mềm, hợp tác viết phần mềm trên nên Microsoft Access mọi phiên bản Liên hệ: Mr Đức -989276236. Email: Tantriviet.vnn@gmail.com website:http://www.tantrivietsoft.com/
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
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Lỗi] Không chạy được VBA Code hungthanmx 3 215 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 254 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Help] ai giúp mình code lại sql này thành access với li_95 0 121 24-04-16, 05:59 PM
Bài mới nhất: li_95
  [Lỗi] không chạy được code findfirst letheanhcpqn 2 223 15-12-15, 02:05 PM
Bài mới nhất: letheanhcpqn

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ơ