thanhquyt > 13-09-15, 04:16 PM
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim st As String
Dim i As Integer
i = 1
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
rs.MoveFirst
Do While Not rs.EOF
st = ""
st = st & Day(Now) & Month(Now) & Year(Now) & i
rs.Edit
rs!maso = CLng(st)
rs.Update
i = i + 1
rs.MoveNext
Loop
Set rs = Nothing