bằng lăng > 26-09-18, 05:14 PM
(26-09-18, 03:11 PM)duynamvnn1208 Đã viết: 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?
bằng lăng > 26-09-18, 05:17 PM
NguyenDungAnh > 26-09-18, 05:42 PM
ongke0711 > 26-09-18, 06:07 PM
(26-09-18, 05:42 PM)NguyenDungAnh Đã viết: https://drive.google.com/open?id=18BEfG2...JhCDMcxqW4
mình viết đến đây xem thử thì có vẻ ok rồi nhưng lại bị lỗi ko chạy qua được môn thi thứ 2.
NguyenDungAnh > 26-09-18, 07:39 PM
duynamvnn1208 > 26-09-18, 09:15 PM
ongke0711 > 26-09-18, 09:46 PM
 
NguyenDungAnh > 26-09-18, 10:10 PM
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim phong, tongsophong, a, b, c, i As Integer
Dim s, s1, s2 As String
phong = 1
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
rs2.MoveFirst
s1 = "1"
stt = 0
Do While Not rs2.EOF
   stt = stt + 1
   If stt = Me.a1 + 1 Then
   stt = 1
   phong = phong + 1
   End If
   If rs2.Fields("khuvuc") = s1 Then
   rs2.Edit
   rs2!phong = phong
   rs2!stt = stt
   Debug.Print stt
   rs2.Update
   rs2.MoveNext
   Else
   stt = 0
   phong = phong + 1
   s1 = rs2.Fields("khuvuc")
   End If
Loop
phong = phong + 1
rs1.MoveNext
Loop 
NguyenDungAnh > 26-09-18, 10:39 PM
NguyenDungAnh > 27-09-18, 09:32 AM