dtk142 > 05-06-13, 05:47 PM
Trích dẫn:Option ExplicitNhưng bị báo lỗi "invalid in use Me keyword" , còn nếu bỏ dòng While ra thì nó update NC1 cho toàn bộ record
Option Compare Database
Public Sub Append()
Dim lsSQL, l1 As String
Dim lrsRecord As Recordset
Dim counter As Integer
counter = 1
While Me.CurrentRecord < Me.Recordset.RecordCount
lsSQL = "Update Append_total set first([Append_total].[Tag]) ='NC" & CStr(counter) & "'" & _
" where [Append_total].[Tag] is null"
CurrentDb.Execute lsSQL
counter = counter + 1
DoCmd.GoToRecord , , acNewRec
Wend
End Sub