Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Update theo thứ tự
#1
Exclamation 
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.
[Hình: duanx.jpg]
Mình cũng lên mạng mò cách update field theo từng reocord 021

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 024
Mọi người giúp đỡ với 015
Reply
Những người đã cảm ơn
#2
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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dtk142 , conmeo
#3
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 021 nên tối mình về sẽ load file access lên nhé 007

Thanks bạn
Chữ ký của dtk142 Xin chào, mình là dtk142, Tham gia http://thuthuataccess.com/forum từ ngày 05-06 -13.
Reply
Những người đã cảm ơn Xuân Thanh
#4
(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 021 nên tối mình về sẽ load file access lên nhé 007

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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn dtk142 , conmeo , Noname
#5
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 015
Chữ ký của dtk142 Xin chào, mình là dtk142, Tham gia http://thuthuataccess.com/forum từ ngày 05-06 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Số Thứ Tự Theo Nhóm Hàng Hóa Trong Access pherotao 2 145 02-11-16, 03:05 PM
Bài mới nhất: pherotao
  [Thủ Thuật] [Share Code] Demo Quay số trúng thưởng theo danh sách trong table maidinhdan 9 1,502 10-03-16, 11:43 AM
Bài mới nhất: phamlong24
  [Thủ Thuật] Lọc điều kiện theo nhiều dòng trong 1 Listbox hoặc nhiều Listbox ongke0711 7 617 12-02-16, 09:50 PM
Bài mới nhất: caytregiavn77
  [Thủ Thuật] Demo Tạo Form tìm kiếm theo nhiều điều kiện maidinhdan 9 1,875 14-07-15, 08:27 PM
Bài mới nhất: maidinhdan
  Làm sao tính tồn kho theo hạn sử dụng? tt1212 0 322 25-04-15, 10:03 PM
Bài mới nhất: tt1212

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ