Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Giúp em bẫy lỗi nếu dữ liệu nhập vào đã có!!!
#1
Đây là lệnh của nút Thêm mới 1 bảng ghi!! nhưng khi thêm dữ liệu mới thì nó nhận còn thêm 1 dữ liệu đã có rồi( tức trùng dữ liệu giờ thì mình phải làm sao để nó không báo lỗi mà nó đưa ra thông báo là " Du liệu nhập vào đã có hả anh chị"
( ở đây em chỉ có 1 khoá chính là MATG mã tác giả nếu mình nhập mã tác giả trong danh mục tác giả bị trùng thì làm cách nào để nó báo lỗi là đã trùng mã tác giả hả anh chị)

Private Sub nutthem_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

Mong anh chị giúp đỡ em xin cảm ơn anh chị rất là nhiều
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Bạn k upload file của bạn thì mọi người khó giúp bạn đầy đủ nhất. Mình chỉ đưa ví dụ thôi.

Giả sử form của bạn có RecordSource là tblTacGia, trong đó có texbox tên là txtMaTG có Control Source là MaTG.
Đại loại câu lệnh nó thế này.
Mã:
Private Sub nutthem_Click()
If Me.txtMaTG = DLookup("MaTG", "tblTacGia", "MaTG='" & Me.txtMaTG & "'") Then
    DoCmd.CancelEvent
    MsgBox "Bi trung ma, nhap ma khac"
Else
    DoCmd.GoToRecord , , acNewRec
End If
End Sub
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn quan_pc , haquocquan , Hạ Vàng , hieuvn
#3
(26-05-11, 04:14 PM)Cafe Via He Đã viết: Bạn k upload file của bạn thì mọi người khó giúp bạn đầy đủ nhất. Mình chỉ đưa ví dụ thôi.

Giả sử form của bạn có RecordSource là tblTacGia, trong đó có texbox tên là txtMaTG có Control Source là MaTG.
Đại loại câu lệnh nó thế này.
Mã:
Private Sub nutthem_Click()
If Me.txtMaTG = DLookup("MaTG", "tblTacGia", "MaTG='" & Me.txtMaTG & "'") Then
    DoCmd.CancelEvent
    MsgBox "Bi trung ma, nhap ma khac"
Else
    DoCmd.GoToRecord , , acNewRec
End If
End Sub
Anh ơi em chưa hiểu ý anh lắm !!! RecordSource là tblTacGia, trong đó có texbox tên là txtMaTG có Control Source là MaTG. là gì!!!
trong chương trình của em nó như sau:
[Hình: untitled.jpg]


Giả sử như trong ô Mã số tác giả là TG02
Nếu em bấm nút thêm và nhập lại mã độc giả là TG02 thì sẽ bị lỗi anh chỉ em cách bẫy lỗi với!!!Cry_smile
đây là chế độ thiết kế!!!


[Hình: untitled.jpg]

link bài làm http://www.mediafire.com/?g78amt5bmc43lkg (300Kb)
em xin cảm ơn anh nha!!
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
haizzzzz. Cái này ta kiểm tra dữ liệu trùng ở sự kiện MATG_BeforeUpdate khi nhập dữ liệu cho MATG

Mã:
Private Sub MATG_BeforeUpdate(Cancel As Integer)
If Me.MATG = DLookup("MaTG", "TacGia", "MaTG='" & Me.MATG & "'") Then
    Cancel = 1
    MsgBox "Bi trung ma, nhap ma khac"
End If
End Sub
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Anh ơi anh có thể làm cụ thể trong chương trình của em được không!!! cái này em copy đoạn code trên của anh mà sao nó không thực hiện!!! anh làm trên chương trình của em được không?
link bài làm http://www.mediafire.com/?g78amt5bmc43lkg (300Kb) anh gởi lên diễn đàn lại bài này được không??
Em cảm ơn anh nhiều nha!!!HeartHeart
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (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
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 39 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] Chỉnh giúp Form thống kê hoanghai902 2 130 28-10-16, 06:15 PM
Bài mới nhất: hoanghai902
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 141 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  [Help] Áp dụng query lọc dữ liệu nhập vào form amazonvn82 8 1,355 05-10-16, 03:11 PM
Bài mới nhất: amazonvn82

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ơ