Thủ Thuật Access

Quay số trúng thưởng - Lucky draw

Viết bởi: ongke0711
14-01-22, 03:14 PM
Chuyên mục: Thư Viện Ứng Dụng
- Bài trả lời (4)
Chào các bạn,

Cuối năm các Công ty hay có chương trình rút thăm, quay số trúng thưởng cho nhân viên. Sẳn tôi có viết một cái ứng dụng nhỏ dùng để quay số, chọn ngẫu nhiên tên nhân viên trúng thưởng nên chia sẻ với các bạn. Chương trình này nhỏ thôi, chia sẻ full Source code để các bạn tự thiết kế thêm theo nhu cầu, để học hỏi thêm một cách code lấy giá trị ngẫu nhiên.

Link file: https://www.mediafire.com/file/8eyxj8auv...w.rar/file

Tồn đầu và tồn cuối liên tục trong thẻ kho

Viết bởi: dotrung
09-01-22, 11:19 PM
Chuyên mục: Forms
- Bài trả lời (1)
dotrung nhờ các bác cao thủ trong diễn đàn hỗ trợ giúp phần tồn đầu và tồn cuối liên tục của thẻ kho. Do đã append phát sinh vào tblthekho, nhưng lại không biết lấy tồn đầu và tồn cuối như thế nào trên tblthekho

Rất mong các bác hỗ trợ !
link file https://www.mediafire.com/file/evvi6tadp...accdb/file

Tài liệu VBA

Viết bởi: giotnang287
02-01-22, 04:17 PM
Chuyên mục: Thủ thuật VBA
- Bài trả lời (3)
Mình mới bắt đầu nghiên cứu tìm hiểu về VBA (chủ yếu trong word, vì là giáo viên). Mong mọi người nhiệt tình cho mình được tham khảo các tài liệu hướng dẫn về VBA được không? Mình vào các chủ đề tài liệu có link mà toàn link die. Rất mong được giúp đỡ. Cảm ơn rất nhiều. Email mình: giotnang287@gmail.com.

LỖI TẠO MÃ TỰ ĐỘNG 2022

Viết bởi: thanhtruong
02-01-22, 10:36 AM
Chuyên mục: Forms
- Bài trả lời (8)
Đầu năm 2022 không biết sao cái mã này nó bị lỗi chổ nào mà k tạo mã được. mong mấy Bác giúp xem bị lỗi chổ nào ạ

Mã:
Private Function fcTaoMaBN() As Long Dim lngMaBN_Max As Long Dim lngMaBN_New As Long Dim datNgay_Max As Date On Error GoTo ErrorHandler lngMaBN_Max = Nz(DMax("[maso]", "tiepdon"), 0) If lngMaBN_Max <> 0 Then datNgay_Max = Format(Mid(lngMaBN_Max, 5, 2) & "/" & Mid(lngMaBN_Max, 3, 2) & "/" & Left(lngMaBN_Max, 2), "dd/mm/yy") Debug.Print datNgay_Max If datNgay_Max >= Date Then If datNgay_Max > Date Then MsgBox "Ngay thang tren he thong khong phu hop, vui long lien he Admin ", vbCritical, "Luu y" End If lngMaBN_New = lngMaBN_Max + 1 Else lngMaBN_New = Val(Format(Date, "yymmdd") & "0000") + 1 End If Else lngMaBN_New = Val(Format(Date, "yymmdd") & "0000") + 1 End If fcTaoMaBN = lngMaBN_New Exit_ErrorHandler: Exit Function ErrorHandler: MsgBox "Err Number: " & err.Number & vbCrLf & err.description, , "loi tao ma" Resume Exit_ErrorHandler End Function

Chủ đề Mới nhất

Lỗi typing Dđ, Aâ, Eê, Oô... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: Vanlinhmt-3 Giờ trước- » Bài trả lời: 0- » Lượt xem: 7

Dòng Video Ngâm Nga Thơ N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:15 PM- » Bài trả lời: 0- » Lượt xem: 5

Video YouTube Ngâm Nga Bà... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-10-01-25, 06:11 PM- » Bài trả lời: 1- » Lượt xem: 27

Đành Thôi! Phũ Phàng! &Vi... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-31-12-24, 04:34 PM- » Bài trả lời: 0- » Lượt xem: 18

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: tuanpham-31-12-24, 11:46 AM- » Bài trả lời: 58- » Lượt xem: 3,305

Dòng Video Youtube Ngâm N... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-30-12-24, 01:51 PM- » Bài trả lời: 46- » Lượt xem: 461

Tin Học Văn Phòng: Khái N... -Chuyên mục: Tin Học Văn Phòng-Đăng bởi lần cuối: Tinhocvanphong-27-12-24, 11:54 AM- » Bài trả lời: 0- » Lượt xem: 28

NHỜ NÂNG CẤP CODE TÌM DỮ ... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: ongke0711-27-12-24, 09:28 AM- » Bài trả lời: 12- » Lượt xem: 495

Trang thủ thuật Access ít... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: huyhoang22-25-12-24, 08:41 AM- » Bài trả lời: 11- » Lượt xem: 316

Tạo query tổng hợp dữ liệ... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-12-24, 07:58 PM- » Bài trả lời: 1- » Lượt xem: 387

Diễn đàn Thống kê

» Thành viên: 5,147
» Thành viên mới nhất: alomakeke91
» Các chủ đề diễn đàn: 9,882
» Các bài viết diễn: 48,670

Thống kê đầy đủ