bằng lăng > 11-09-18, 11:57 AM
duynamvnn1208 > 11-09-18, 03:27 PM
bằng lăng > 12-09-18, 08:44 AM
(11-09-18, 03:27 PM)duynamvnn1208 Đã viết: Trong bảng thí sinh bạn thêm một cột ID vào, cho dạng tự tăng khi có new record và là Key
Lúc đó thì bài toán sẽ dễ dàng rồi. Bạn sử dụng dàm Dcount để tìm ra thứ tự đứng thứ bao nhiêu của em học sinh trong đó là được.
Ở đây do bảng danh sách học sinh của bạn không có Key nên sẽ không làm được thôi.
ongke0711 > 12-09-18, 10:00 AM
bằng lăng > 12-09-18, 11:03 AM
(12-09-18, 10:00 AM)ongke0711 Đã viết: - Có qui định ngân sách mỗi môn bao nhiêu số không? Hay cứ hết sbd môn Toán, rồi nhảy số kế tiếp cho môn Lý?
- Sau khi lập xong danh sách sbd rồi có phát sinh thêm thí sinh mới thì qui tắc lặp sbd kế tiếp như thế mào?
bằng lăng > 12-09-18, 11:22 AM
(12-09-18, 11:03 AM)bằng lăng Đã viết:(12-09-18, 10:00 AM)ongke0711 Đã viết: - Có qui định ngân sách mỗi môn bao nhiêu số không? Hay cứ hết sbd môn Toán, rồi nhảy số kế tiếp cho môn Lý?
- Sau khi lập xong danh sách sbd rồi có phát sinh thêm thí sinh mới thì qui tắc lặp sbd kế tiếp như thế mào?
- Dạ không quy định số thí sinh mỗi môn ạ, cứ hết môn này thì tiếp môn kế ạ.
- Sau khi lập xong mà có bổ sung thêm thì mình cho SBD là Mã môn thi & STT cuối cùng của tổng số thí sinh dự thi
duynamvnn1208 > 12-09-18, 02:09 PM
bằng lăng > 12-09-18, 02:44 PM
(12-09-18, 02:09 PM)duynamvnn1208 Đã viết: Theo yêu cầu của bạn mệt quá. Bạn đưa ra cái luật nó chắc chắn vào. Nhât là khoản thêm học sinh.
Sẽ chia làm 2 phần:
+ Tạo SBD dựa trên danh sách đã có
+ Thêm học sinh
2 phần này độc lập với nhau nhé
Mình giúp bạn phần một rồi. Cách có nhiều nhưng cách mình làm quen thì mình chọn thôi.
Nó ở trong phần Common nhé
https://drive.google.com/file/d/1eklBAll...sp=sharing
duynamvnn1208 > 12-09-18, 03:52 PM
bằng lăng > 12-09-18, 04:45 PM
(12-09-18, 03:52 PM)duynamvnn1208 Đã viết: Ui thế thì cần gì phải code cho nó mệt người.
À mà thôi cũng ko sao. Bạn xóa cái dòng dưới này đi là được. (Trong Common)
If rst.EOF Then
Exit Do
Else
If rst!mamon > mamon Then dCount = 0
End If
Còn chạy thì bạn vào phần Common xong ấn nút Run là nó chạy, xem đã add thư viện Microsoft DAO 3.6 Object Library hay chưa thôi là chạy được mà
Do mình tắt setwarning nên nó không có hiện gì đâu, cứ thế mà chạy thôi