• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Update theo thứ tự

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Update theo thứ tự
• Update theo thứ tự

• Update theo thứ tự

  dtk142 > 05-06-13, 05:47 PM

  Hiện giờ mình đang làm 1 cái table tên là Append_total
  Trong field Tag, mình muốn update vào giá trị NC1, NC2, NC3..... tăng dần và không trùng lặp cho những trị đang null.
  
  Mình cũng lên mạng mò cách update field theo từng reocord
  
  

  Trích dẫn:Option Explicit
  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

  Như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
  Mọi người giúp đỡ với

• RE: Update theo thứ tự

  Xuân Thanh > 05-06-13, 10:57 PM

  Mã PHP:

  Sub UpdateNull()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Select * From Append_Total Where Tag Is Null")
    If rs.RecordCound > 0 Then
        Dim So As Integer :So = 1
        rs.MoveFirst
        Do Until rs.EOF
            rs!Tag = "NC" & So
            So = So + 1
            rs.MoveNext
        Loop
    End If
End Sub 


  
  Bân test lại nhé, tôi chưa thử vì không có file
  Thân mến

• RE: Update theo thứ tự

  dtk142 > 06-06-13, 10:42 AM

  Thank bạn Xuân Thanh rất nhiều,
  Nhưng khi mình chạy đoạn code của bạn đưa , nó break point ở dòng
  

  Trích dẫn:rs!Tag = "NC" & So

  và báo Update or Cancel Update without AddNew or Edit
  
  Máy mình hiện tại ko load lên mediafire hay fshare được nên tối mình về sẽ load file access lên nhé
  
  Thanks bạn

• RE: Update theo thứ tự

  Xuân Thanh > 06-06-13, 11:58 AM

  (06-06-13, 10:42 AM)dtk142 Đã viết: Thank bạn Xuân Thanh rất nhiều,
  Nhưng khi mình chạy đoạn code của bạn đưa , nó break point ở dòng
  

  Trích dẫn:rs!Tag = "NC" & So

  và báo Update or Cancel Update without AddNew or Edit
  
  Máy mình hiện tại ko load lên mediafire hay fshare được nên tối mình về sẽ load file access lên nhé
  
  Thanks bạn

  
  Sory bạn nhé, do viết nhanh nên hơi ...ẩu. Bạn sửa lại như sau
  
  

  Mã PHP:

  Sub UpdateNull()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("Select * From Append_Total Where Tag Is Null")
    If rs.RecordCound > 0 Then
        Dim So As Integer :So = 1
        rs.MoveFirst
        Do Until rs.EOF
            rs.Edit
            rs!Tag = "NC" & So
            rs.Update
            So = So + 1
            rs.MoveNext
        Loop
    End If
End Sub 


  
  Thân mến

• RE: Update theo thứ tự

  dtk142 > 06-06-13, 04:16 PM

  Cảm ơn bạn Xuân Thanh, mình đã thử đoạn code bạn đưa và kết quả rất tuyệt
• Bài trước Bài tiếp