Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xếp phòng thi
#1
Em đã xếp xong SBD nhưng không biết viết code chia phòng thi như thế nào, mong a/c dành chút tg giúp đỡ. Chân thành cám ơn
Quy tắc xếp phòng thi như sau:
- Số thí sinh tối đa trong phòng nhập vô trước khi xếp phòng thi (frm_Chiaphongthi)
- Phòng thi phải được xếp dựa theo 2 tiêu chí:  khu vực và mã môn dự thi
- Số thí sinh còn lại nếu lớn hơn số phòng tối đa nhưng nhỏ hơn số phòng tối đa nhân đôi thì chia bình quân cho 2 phòng
Ví dụ: Khu vực 1, mã môn thi 01 có 81 thí sinh và số thí sinh tối đa trong 1 phòng là 24
thì chia như sau:
+ Phòng 1: 24    + Phòng 2: 24
+ Còn lại 33 thí sinh (24 < 33 < 24x2) thì ta chia: Phòng 3: 17 và Phòng 4: 16
Tương tự vây tiếp cho khu vực 2, mã môn 01 và qua các môn khác
https://drive.google.com/open?id=1MPkcmA...orCmtiIESg
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#2
Không cao thủ nào giúp mình được sao  040 040
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#3
Haizz...

Của bạn đây:

Private Sub cmdphongthi_Click()

Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset
Dim normalClass As Integer
Dim specialClass As Integer
Dim dcount As Integer
Dim class As Integer

Set rst1 = CurrentDb.OpenRecordset("tblmamon")

Do While Not rst1.EOF

Set rst2 = CurrentDb.OpenRecordset("SELECT * FROM tblDisplay WHERE mamon = '" & rst1!mamon & "'")

rst2.MoveLast
normalClass = rst2.RecordCount / Me.txtsots
specialClass = (rst2.RecordCount Mod Me.txtsots + Me.txtsots) / 2 + 1
rst2.MoveFirst

class = 1
dcount = 0
Do While Not rst2.EOF
If class < normalClass Then
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dcount = dcount + 1
If dcount = Me.txtsots Then
class = class + 1
dcount = 0
End If
Else
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dcount = dcount + 1
If dcount = specialClass Then
class = class + 1
dcount = 0
End If
End If

rst2.MoveNext
Loop

rst1.MoveNext
Loop

End Sub
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn bằng lăng
#4
Nhưng qua môn kế tiếp số phòng không đánh tiếp mà trở lại bắt đầu là 01 rồi duynamvnn1208?
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#5
Đấy là ngay từ đầu bạn không nói rõ, thôi mình code đến đó thôi bạn tự làm nốt đi
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn bằng lăng
#6
Đã giúp thì giúp cho trót đi bác. E cũng đã cố gắng sửa mà chưa có kq  040
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#7
Mình ngồi trên cty nên tranh thủ giúp bạn tí thôi
chứ phải làm việc mà
về rồi thì máy tính lại ko có access laughing

Bó tay đấy. Mà gần được rồi còn gì. Sửa và dòng code, để mấy biến ra ngoài vào trong là được mà.
Đây là cơ hội để bạn học đấy. Gì cũng giúp thì không nên
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn
#8
Dạ cám ơn bác. E sẽ cố gắng
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#9
Code của bác duynamvnn1208 chạy qua đến môn thứ 2 trở đi nó chia sai phòng thi rồi bác ơi, không đúng yêu cầu nữa. Nó gắn khu vực 1 và 2 vô cùng 1 phòng (mã môn 02, phòng 3). Nhờ bác xem lại dùm. Cám ơn
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
Reply
Những người đã cảm ơn
#10
Có cao thủ nào giúp mình được không, mình đang rất cần  040 040
Chữ ký của bằng lăng bằng lăng,gia nhập Thủ Thuật Access từ 06-08 -18.
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] Chia phòng thi NTLHAA 16 618 26-09-18, 05:20 PM
Bài mới nhất: bằng lăng
  Phần mềm quản lý phòng khám Tự động tạo cơ sở dữ liệu SQL tt1212 0 737 17-01-16, 03:21 AM
Bài mới nhất: tt1212
  sắp xếp phòng thi theo môn học sinh đăng ký thanhthienhg 0 868 04-11-14, 10:04 PM
Bài mới nhất: thanhthienhg
  Cần tìm giúp CSDL về quản lý tài sản văn phòng catpth3000 3 3,127 28-12-10, 10:55 PM
Bài mới nhất: nguyenthien0908

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ơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line