Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Xếp phòng thi
#11
Cái code ấy load ra đâu vậy bạn ơi
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#12
https://drive.google.com/open?id=1JfxDee...QU5zEmoGoq

mình làm cũng chưa được như ý bạn lắm chỗ phòng cuối phải chia đều cho 2 phòng ấy, bạn thử tự nghĩ xem nha nếu không được thì alo cho mình
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#13
(26-09-18, 11:57 AM)NguyenDungAnh Đã viết: https://drive.google.com/open?id=1JfxDee...QU5zEmoGoq

mình làm cũng chưa được như ý bạn lắm chỗ phòng cuối phải chia đều cho 2 phòng ấy, bạn thử tự nghĩ xem nha nếu không được thì alo cho mình

Cám ơn anh NguyenDungAnh đã dành thời gian nghiên cứu giúp em, nhưng a quên điều kiện xếp theo vùng (01, 02) rồi. Giống trường hợp bác đầu giúp em. Code của bác ấy gần hoàn chỉnh yêu cầu của em nhưng bác ấy cũng quên điều kiện xếp theo vùng (em có ví dụ cụ thể lắm đó) và STT phòng thi cứ tăng dần chứ k lặp lại. E cũng đang cố gắng sửa code của bác ấy mà chưa được.
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
#14
Của bạn đây. Dùng nguyên cái Code này thay vào là được.
Dạo này ko thấy chèn php ntn nhỉ?

Private Sub cmdphongthi_Click()

Dim areaNum As Integer
For areaNum = 1 To DMax("khuvuc", "tblDisplay")
setClassNumber areaNum
Next areaNum
End Sub

Sub setClassNumber(area As Integer)

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
Dim dCount2 As Integer

Set rst1 = CurrentDb.OpenRecordset("tblmamon")

class = 1
Do While Not rst1.EOF

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

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

dCount = 0
dCount2 = 1

Do While Not rst2.EOF
If dCount2 < normalClass Then
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dCount = dCount + 1
If dCount = Me.txtsots Then
dCount2 = dCount2 + 1
class = class + 1
dCount = 0
End If
Else
rst2.Edit
rst2!Phong = Format(class, "00")
rst2.Update
dCount = dCount + 1
If dCount = specialClass Then
dCount2 = dCount2 + 1
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
#15
Dạ tiến bộ từ từ ạ. Chia theo khu vực và mã môn là rất ok rồi duynamvnn1208 nhưng sao số phòng thi không tăng cho đến hết mà vẫn bị lặp lại ạ
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
#16
Chắc tôi chết với điều kiện của bạn thôi.
Sao tưởng chia theo khu vực thì thi ở 2 địa điểm khác nhau thì chia phòng khác nhau.
Thôi End ở đây là được rồi đó. Mình đau đầu lắm rồ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
#17
mình không hiểu ý bạn lắm điều kiện xắp xếp theo vùng 1 và vùng 2 là ntn
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#18
Có phải ý bạn là qua khu vực 2 là bắt đầu từ phòng cuối cùng của bên khu vực 1 không?
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
#19
À mình hiểu rồi. giờ ko có time bạn làm như thê này cho mình nhé. Bạn dùng appen query lọc vùng 1 và vùng 2 ra 2 table rồi lần lượt đổi tên thành "tbx" rồi vào form click lại là được vụ code mình thêm sau.
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#20
Bạn nói lại cái vụ khu vực được không!
Qua khu vực 2 reset lại về phòng 1-2-3-4... 
hay qua khu vực 2 đánh tiếp
Chữ ký của NguyenDungAnh Đến với cuộc đời hai tay trắng
Giã từ trần thế trắng hai tay
Bao nhiêu tiếng nói tiếng cười
Sống ở cuộc đời lãi được vậy thôi
ღღღღღTài sản của NguyenDungAnh (View All Items) ღღღღღ
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 581 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 735 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 867 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,125 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