TAILIEUCHUNG - Sắp xếp phòng thi bằng Access

Để sắp xếp phòng thi cho học sinh, tôi dùng hai bảng trong Access: table1 có hai cột PHONGTHI và SOLUONG, table2 có các cột SBD, HOTEN, MONTHI, PHONGTHI. Tôi muốn gán tên phòng thi ở table1 vào tên phòng thi ỏ table2 với điều kiện: những học sinh có cùng môn thi thì ở chung phòng thi và số học sinh không được quá số lượng trong table1, nếu vượt quá số lượng thì cho qua phòng kế tiếp. Xin hướng dẫn. Kinh nghiệm: Ví dụ sau đây dựa trên hai bảng có tên tbDSPhongThi (vai trò như table1. | Sắp xếp phòng thi bằng Access hắc mắc Để sắp xếp phòng thi cho học sinh tôi dùng hai bảng trong Access tablel có hai cột PHONGTHI và SOLUONG table2 có các cột SBD HOTEN MONTHI PHONGTHI. Tôi muốn gán tên phòng thi ở tablet vào tên phòng thi ỏ table2 với điều kiện những học sinh có cùng môn thi thì ở chung phòng thi và số học sinh không được quá số lượng trong tablet nếu vượt quá số lượng thì cho qua phòng kế tiếp. Xin hướng dẫn. Kinh nghiệm Ví dụ sau đây dựa trên hai bảng có tên tbDSPhongThi vai trò như tablel của bạn và tbDSThiSinh vai trò như table2 của bạn trong đó field PhongThi của tbDSPhongThi có thuộc tính Index là Yes No Duplicates không phải là Primary Key và field MonThi của tbDSThiSinh cũng có thuộc tính Index là Yes No Duplicates . Việc tạo index chỉ để sắp thứ tự các thí sinh của cùng môn thi vào một nhóm cũng như sắp thứ tự phòng thi theo tên. Trên form bạn vẽ một nút lệnh có tên cmdSapXepPhongThi rồi gõ đoạn mã 2 vào thủ tục xử lý tình huống Click. Căn cứ vào ví dụ này bạn có thể áp dụng vào nhu cầu thực tế của mình. Bạn lưu ý để sử dụng các đối tượng Database và Recordset trong cửa sổ soạn thảo VBA bạn chọn Tools References rồi chọn mục Microsoft DAO Object Library hoặc phiên bản cao nhất của DAO Object Library trong hộp thoại References. Đoạn mã 2 Private Sub cmdSapXepPhongThi_Click Dim db As Database rsDSPhongThi As Recordset rsDSThiSinh As Recordset Dim sMonThi As String nSoLuongHienHanh As Byte Set db CurrentDb Set rsDSPhongThi tbDSPhongThi Set rsDSThiSinh tbDSThiSinh PhongThi Không phải Primary key chỉ để sắp thứ tự MonThi Không phải Primary key chỉ để sắp thứ tự With rsDSThiSinh nSoLuongHienHanh 0 .MoveFirst sMonThi MonThi Do While Not .EOF If MonThi sMonThi Then Sang môn thi khác Sang phòng thi .

TỪ KHÓA LIÊN QUAN
TAILIEUCHUNG - Chia sẻ tài liệu không giới hạn
Địa chỉ : 444 Hoang Hoa Tham, Hanoi, Viet Nam
Website : tailieuchung.com
Email : tailieuchung20@gmail.com
Tailieuchung.com là thư viện tài liệu trực tuyến, nơi chia sẽ trao đổi hàng triệu tài liệu như luận văn đồ án, sách, giáo trình, đề thi.
Chúng tôi không chịu trách nhiệm liên quan đến các vấn đề bản quyền nội dung tài liệu được thành viên tự nguyện đăng tải lên, nếu phát hiện thấy tài liệu xấu hoặc tài liệu có bản quyền xin hãy email cho chúng tôi.
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.