Xuân Thanh > 23-04-15, 06:50 PM
(21-04-15, 12:22 PM)maidinhdan Đã viết: Tác giả câu hỏi: phuoc_bhxhbl
Yêu cầu: Tạo code có sự liên kết giữa 4 cột A B C D
Trong đó A B C D bị trói buộc bởi tb khai báo là chỉ được sắp xếp tối đa số lượng đã ghi
A phụ thuộc B-->C-->D
Hình minh họa
tbkhaibao là số cố định buộc cột D chỉ tăng đến 5, rồi lại bắt đầu từ 1 cư thế đến hết Record, Trong khi cột D đã nhảy đến hết 5 thì cột C lại tăng 2... cho đến khi hết giá trị được khai báo trong tbkhaibao. Đến khi C tăng đến hết 10 thì cột B sẽ bắt đầu là 2....
Khi dùng code sẽ ra kết quả như vậy.
Rất mong các cao thủ đóng góp về code này.
Sub Ghi()
Dim rsh As Recordset, rsk As Recordset, i As Integer, k As Integer, j As Integer
Dim x As Integer, y As Integer, z As Integer
Set rsh = CurrentDb.OpenRecordset("tblHoSo", dbOpenTable)
Set rsk = CurrentDb.OpenRecordset("tblKhaiBao", dbOpenTable)
x = rsk.Fields(1): y = rsk.Fields(2): z = rsk.Fields(3)
i = 1: j = 1: k = 1
rsh.MoveFirst
Do Until rsh.EOF
rsh.Edit
rsh.Fields(4) = k
rsh.Fields(3) = j
rsh.Fields(2) = i
rsh.Fields(1) = 1
k = k + 1
If k = z + 1 Then j = j + 1: k = 1
If j = y + 1 Then i = i + 1: j = 1
If i = x + 1 Then i = 1
rsh.Update
rsh.MoveNext
Loop
End Sub