Đá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 -  Phần mềm quản lý phòng khám http://tantriviet.net/ 
-  Hỗ trợ những khó khăn vướng mắc cần chia sẻ giải đáp:0941.655.079
-   Email. Tantriviet.vnn@gmail.com
Reply
Những người đã cảm ơn
#8
Xuân Thanh có thể giải thích rõ cho mình hiểu 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. 
Là thế nào không, Mình cũng đang bị lỗi như vậy. Giải thích cho mình biết index và seek được không? Mong chỉ dẫn thêm.
Chữ ký của thanhhau828 Xin chào, mình là thanhhau828, Tham gia http://thuthuataccess.com/forum từ ngày 18-04 -13.
Reply
Những người đã cảm ơn
#9
(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

Xuân Thanh có thể giải thích rõ cho mình hiểu 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. 

Là thế nào không, Mình cũng đang bị lỗi như vậy. Giải thích cho mình biết index và seek được không? Mong chỉ dẫn thêm.
Chữ ký của thanhhau828 Xin chào, mình là thanhhau828, Tham gia http://thuthuataccess.com/forum từ ngày 18-04 -13.
Reply
Những người đã cảm ơn
#10
Đối với linked table bạn phải dùng rs.FindFirst và Nomatch thay thế cho Index và seek.
Vd: rs.FindFirst "MaNV = '" & Me.cboMaNV & "'"
      If Not rs.Nomatch Then
            'làm cái gì đó
            ....
       End If
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
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
  Thiết lập code in nhãn theo mã hàng? ChiMai 7 278 23-01-18, 12:28 AM
Bài mới nhất: tranthanhan1962
  Quên pass code bảo vệ vba thanhhau828 4 531 09-09-17, 05:05 PM
Bài mới nhất: thanhhau828
  Xin giúp liên kết đường dẫn trong access audition 14 6,636 11-05-17, 11:50 AM
Bài mới nhất: cpucloi
  Code cho nút in phiếu ChiMai 3 673 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 597 08-12-16, 05:02 PM
Bài mới nhất: nhocdevill11

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ơ