Tùy chọn
Code đánh số phòng thi!
- Code đánh số phòng thi!
-
Code đánh số phòng thi!
NguyenDungAnh > 26-09-18, 05:49 PM
Em đang tập tành viết code, thấy bài của bạn bằng lăng
em có viết code như thế này nhưng nó báo lỗi ở dòng
If rs2.Fields("khuvuc") <> a Then
Mở lại xem tbx thì đánh thứ tự xong hết môn 1 rồi nhưng qua môn 2 thì báo lỗi
Em nghĩ chắc do rs2 đã đến EOF rồi lên giá trị rs.fields("khuvuc") = null lên báo lỗi
nhưng không biết xử lý như thế nào để nó chạy tiếp cả mong các bác chỉ giáo thêm.
file: https://drive.google.com/open?id=18BEfG2...JhCDMcxqW4
Mã PHP:Private Sub cmdphongthi_Click()
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim phong, tongsophong, b, c, i As Integer
Dim s, s1, s2, a As String
phong = 0
Set rs1 = CurrentDb.OpenRecordset("select * from tblmamon")
rs1.MoveFirst
Do While Not rs1.EOF
Set rs2 = CurrentDb.OpenRecordset("select * from tbx where Mamon = '" & rs1!mamon & "';")
rs2.MoveLast
'sophongdunguoi = Int(rs2.RecordCount / 24) - 1
'songuoicondu = rs2.RecordCount - 24 * a
'If songuoicondu Mod 2 = 1 Then 'tinh so nguoi 2 phong cuoi
tongsophong = Int(rs2.RecordCount / 24) + 1
rs2.MoveFirst
a = "1"
i = 1
Do While Not rs2.EOF
On Error GoTo abc
phong = phong + 1
stt = 0
If i = tongsophong Then
b = rs2.RecordCount - 24 * (i - 1)
Else
b = 24
i = i + 1
End If
For j = 1 To b
If rs2.Fields("khuvuc") <> a Then
Debug.Print "doi khu vuc"
j = 1
stt = 0
phong = phong + 1
tongsophong = tongsophong + 1
a = rs2.Fields("khuvuc")
End If
stt = stt + 1
Debug.Print stt
rs2.Edit
rs2!phong = phong
rs2!stt = stt
rs2.Update
rs2.MoveNext
Next
abc: rs2.MoveLast
Loop
rs1.MoveNext
Loop
End Sub -
RE: Code đánh số phòng thi!
NguyenDungAnh > 26-09-18, 05:50 PM
Em viết ở trong module codanhsophong chứ không phải ở cái button các bác nhé mặc định em cho 1 phòng là 24 người -
RE: Code đánh số phòng thi!
duynamvnn1208 > 26-09-18, 08:57 PM
Chẳng hiểu bạn viết gì nữa. Nhưng sao không xem code của mình?
Cái tiến từ cái đã có sẵn có phải tốt hơn không. -
RE: Code đánh số phòng thi!
NguyenDungAnh > 26-09-18, 09:20 PM
em ko biết tiếng anh lên xem code của bác em cũng không biết với lại tự mình viết nó mới tiến bộ được bác ạ
-
RE: Code đánh số phòng thi!
NguyenDungAnh > 26-09-18, 09:55 PM
https://drive.google.com/open?id=1Ujtfly...6WHTt7ngjL
tớ làm được đến đây rồi riêng 2 phòng cuối vẫn chưa làm xong thuật toán)
-
RE: Code đánh số phòng thi!
NguyenDungAnh > 26-09-18, 10:38 PM
https://drive.google.com/open?id=1pTXUy4...NLnTbu5kNM
sau một tối dày công suy nghĩ tốn bao nhiêu cafe và thuốc lá cũng nghĩ ra)
-
RE: Code đánh số phòng thi!
ongke0711 > 27-09-18, 12:13 AM
(26-09-18, 10:38 PM)NguyenDungAnh Đã viết: https://drive.google.com/open?id=1pTXUy4...NLnTbu5kNM
sau một tối dày công suy nghĩ tốn bao nhiêu cafe và thuốc lá cũng nghĩ ra)
Em kiểm tra lại khu vực 1, mã môn 02. -
RE: Code đánh số phòng thi!
NguyenDungAnh > 27-09-18, 07:45 AM
Em có kiểm tra lại rồi mà bác
phòng 5 24
phòng 6 13
phòng 7 13
em làm trong tbx đó chứ k phải tbdislay -
RE: Code đánh số phòng thi!
NguyenDungAnh > 27-09-18, 08:27 AM
-
RE: Code đánh số phòng thi!
NguyenDungAnh > 27-09-18, 09:31 AM
Tưởng dễ ăn mà cũng khá lắt léo mất toi 1,5 ngày mà chưa biết có chuẩn không nữa
mọi người tải lại xem giúp còn sai ở đâu không nhé
https://drive.google.com/open?id=1S88cWD...j2389r9RmL