nguyendaivuong > 22-05-15, 02:05 PM
Minh Tiên > 22-05-15, 03:02 PM
SequentialNum: DCount("Stt";"QueryName";"Stt<=" & [Stt] & " And Makhachhang='" & [Makhachhang] & "'")
Stt: (Select Count (*) FROM TableName as Temp WHERE [Temp].Mahang < tblDanhsach_Hanghoa.Mahang)+1
Private Sub Form_Unload(Cancel As Integer)
Dim DANHSACHHOCSINH As Recordset
Dim TT As Integer
Set DANHSACHHOCSINH = Me.RecordsetClone
TT = 1
DANHSACHHOCSINH.MoveFirst
Do While Not DANHSACHHOCSINH.EOF
DANHSACHHOCSINH.Edit
DANHSACHHOCSINH![SOTHUTU] = TT
TT = TT + 1
DANHSACHHOCSINH.Update
DANHSACHHOCSINH.MoveNext
Loop
DANHSACHHOCSINH.Close
End Sub
nguyendaivuong > 22-05-15, 03:13 PM
Minh Tiên > 23-05-15, 12:01 AM