Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Code đánh số phòng thi!
#1
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
tongsophongbcAs Integer
Dim s
s1s2As 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
"1"
1
Do While Not rs2.EOF
On Error 
GoTo abc
       phong 
phong 1
       stt 
0
       If i 
tongsophong Then
       b 
rs2.RecordCount 24 * (1)
       Else
       b 
24
       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 
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
#2
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
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
#3
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.
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
#4
laughing 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 ạ
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
#5
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 laughing)
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
#6
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 laughing)
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
#7
(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 laughing)

Em kiểm tra lại khu vực 1, mã môn 02.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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
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
#9
https://drive.google.com/open?id=1jkYI6T...PwchC2ci75

đúng là bị sai em đã sửa lại được rồi đây.
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
#10
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
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
  Unicode trên cửa sổ viết code VBA (IDE) lehongduc 0 543 10-12-17, 09:49 AM
Bài mới nhất: lehongduc
  Hướng Dẫn Thêm nút lăn chuột giao diện viết code VBA maidinhdan 0 379 27-11-17, 05:03 PM
Bài mới nhất: maidinhdan
  [Lỗi] Code để bảo vệ văn bản trừ các đoạn formfield vuthaiha90 10 1,631 14-11-17, 05:31 PM
Bài mới nhất: vuthaiha90
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 670 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 2,803 13-02-17, 10:34 PM
Bài mới nhất: ongke0711

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