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