Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Lỗi] Tạo form nhập dữ liệu
#1
chương trình: http://www.mediafire.com/download/ssgl4d...4-2016.mdb
Nhờ các bạn đăng nhập chương trình
Tên đăng nhập nhu; pass: 123456
Chọn chức năng: 2. Vi phạm trong tuần (màu đỏ)
Các bạn hướng dẫn dùm mình làm thế nào để có thể không phải nhập lại thông tin Tuần, lớp  ở phần Nhập chi tiết với ạ.
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#2
(05-04-16, 12:21 PM)phamlong24 Đã viết: ...
Bạn thêm thủ tục sau vào mã nguồn của form Chi tiết vi phạm nhé...

Đại loại là ngay trước khi thêm bản ghi thực sự vào CSDL thì thủ tục này thực hiện và gán Tuần/ Lớp cho bản ghi mới nếu 2 nội dung này không rỗng.


Mã:
Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim tWeek As Long, tClass As String
    tWeek = Nz([Forms]![NHAP-VI-PHAM]![cbt], 0)
    tClass = Nz([Forms]![NHAP-VI-PHAM]![cblop], "")
    If tWeek > 0 And tClass <> "" Then
        tuan = [Forms]![NHAP-VI-PHAM]![cbt]
        lop = [Forms]![NHAP-VI-PHAM]![cblop]
    Else
        ' huy khong cho nhap vi lop va tuan bi trong
        MsgBox "Hien ban dang de trong Lop hoac Tuan, khong them so lieu duoc...", vbInformation
        Cancel = True
    End If
End Sub
Chúc bạn vui vẻ
Chữ ký của paulsteigel ====================
Quốc gia hưng vong
Thất phu hữu trách
====================
Reply
Những người đã cảm ơn maidinhdan , phamlong24 , thiennamlong
#3
Cảm ơn bạn rất nhiều [b]paulsteigel[/b]
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
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] Refresh Form và tiếp tục hoạt động Godspear 3 528 Hôm qua, 07:24 AM
Bài mới nhất: amazonvn82
Photo [Hỏi] Không chèn được ActiveX control vào Form killitmore 4 159 06-12-17, 02:49 PM
Bài mới nhất: killitmore
  [Hỏi] Truyền dữ liệu từ 1 bound form vào 1unbound form mrsiro 8 203 04-12-17, 12:33 PM
Bài mới nhất: ongke0711
  [Help] Sub Form tự động điền các record haidc 6 343 03-12-17, 10:16 PM
Bài mới nhất: haidc
  [Hỏi] Form access hiện thì trắng khi xem ở chế độ Forrm View subasatran 1 88 29-11-17, 12:57 AM
Bài mới nhất: maidinhdan

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ơ