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

Update nhiều record từ textbox vào table có điều kiện.

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Help] Update nhiều record từ textbox vào table có điều kiện.
• Update nhiều record từ textbox vào table có điều kiện.

• Update nhiều record từ textbox vào table có điều kiện.

  hueqlhc > 30-04-13, 02:05 AM

  Tôi có dữ liệu như sau: http://www.mediafire.com/?aznowbpedu5zw51
  1 tblNhankhau trong đó có các trường: ID, Hoten, Thuongtru,..., Chon(yes/no)
  2 textbox: Hotentxt, Thuongtrutxt
  1 cmd: Command26
  Tôi muốn update dữ liệu các record từ 2 textbox vào tblNhankhau (điều kiện khi trường Chon có giá trị True).
  Đoạn code tôi viết tại Command26 như sau:
  

  Mã PHP:

  Private Sub Command26_Click()
Dim db As Database
Dim rs As Recordset
Dim stDocName As String
stDocName = "qryXoachon"
Set db = CurrentDb
Set rs = db.OpenRecordset("tblNhankhau", dbOpenTable)
If Chon = True Then
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs!Hoten = Me.Hotentxt.Value
rs!Thuongtru = Me.Thuongtrutxt.Value
rs.Update
rs.MoveNext
Loop
    rs.Close
    MsgBox "So lieu da sua OK"
End If
DoCmd.OpenQuery stDocName, acNormal, acEdit
tblNhankhau_subform.Requery
End Sub 


  Chạy thì không báo lỗi nhưng nó update tất cả luôn kể cả khi trường chọn có giá trị False. Mong các ae có thể hướng dẫn hoặc chỉnh sữa file dữ liệu mình kèm trên được không.
  P/s: Nói chung là chỉ update khi ta chọn giá trị True vào trường Chon thoi. (Và các textbox nếu trống thì giữ nguyên giá trị trước được không nhỉ @@)
  Cái qryXoachon là để cho trường Chon trở về giá trị False thôi
  Thanks..

• RE: Update nhiều record từ textbox vào table có điều kiện.

  quan_pc > 30-04-13, 10:08 AM

  Đã chọn rồi thì sao lại bỏ chọn?

• RE: Update nhiều record từ textbox vào table có điều kiện.

  TvAcc > 30-04-13, 02:24 PM

  - Đồng chí ấy bỏ chọn để lần cập nhật sau sẽ cập nhật các record khác, không cập nhật lại các record này nữa (muốn cập nhật nữa lại chọn lại), ví dụ lần đầu cập nhật cho họ Nguyễn, lần sau cập nhật họ Lê chẳng hạn...
  - Đồng chí hueqlhc sửa lại chút xíu như sau là OK:
  
  Private Sub Command26_Click()
  Dim db As Database
  Dim rs As Recordset
  Dim stDocName As String
  DoCmd.SetWarnings False
  stDocName = "qryXoachon"
  Set db = CurrentDb
  Set rs = db.OpenRecordset("tblNhankhau", dbOpenTable)
  'If Chon = True Then (no khong hieu cho nay nen cap nhat het)
  rs.MoveFirst
  Do Until rs.EOF
  If rs!Chon = True Then
  rs.Edit
  If Me.Hotentxt.Value <> "" Then rs!Hoten = Me.Hotentxt.Value
  If Me.Thuongtrutxt.Value <> "" Then rs!Thuongtru = Me.Thuongtrutxt.Value
  rs.Update
  End If
  rs.MoveNext
  Loop
  rs.Close
  MsgBox "So lieu da sua OK"
  'End If
  DoCmd.OpenQuery stDocName, acNormal, acEdit
  tblNhankhau_subform.Requery
  DoCmd.SetWarnings True
  End Sub

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 01-05-13, 05:55 PM

  Sao bạn lại thay luôn cả họ tên nhân khẩu thế? Bạn chỉ cần thay đổi nơi thường trú của nhân khẩu thôi chứ? Đúng không? Vì khi nhân khẩu thay đổi địa chỉ thương trú thì bạn phải cập nhật lại chứ không thể thay đổi họ tên của người ta được(bị kiện đấy). Trên form, bạn chỉ cần 1 textbox thuongtrutxt, chọn những ai cần thay đổi địa chỉ (tích vào nút Chon) rồi nhấn nút Cập nhật là nó sẽ tự động cập nhật cho bạn thôi. Câu lệnh của nút Cập nhật là :
  

  Mã PHP:

  Private Sub Command26_Click()
    Dim rs As Recordset
    Dim CauSQL As String
    CauSQL = "SELECT * FROM tblNhankhau WHERE Chon=True"
    Set rs = CurrentDb.OpenRecordset(CauSQL)
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            rs.Edit
            rs!Thuongtru = Me.Thuongtrutxt
            rs!Chon = False
            rs.Update
            rs.MoveNext
        Loop
    End If
    rs.Close
End Sub 


  
  Bạn test lại thử xem
  Thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  TvAcc > 01-05-13, 08:20 PM

  - Tôi cũng đã thắc mắc như Xuân Thanh nhưng theo câu hỏi và file kèm thì Đồng chí ấy muốn thay cả họ tên và thường trú.
  
  - Có thể ý Đồng chí ấy thế này:
  
  1. Khi thay họ tên: gõ textbox họ tên, bỏ trống textbox thường trú.
  2. Khi thay thường trú: gõ textbox thường trú, bỏ trống textbox họ tên.
  3. Khi thay cả họ tên và thường trú (thay anh A bằng chị B: chỉ khác họ tên và thường trú còn các trường khác vẫn đúng): gõ cả 2 texbox
  
  => Nếu vậy thì Đồng chí ấy làm đúng rồi đấy, file chạy đúng như 1, 2, 3

• RE: Update nhiều record từ textbox vào table có điều kiện.

  hueqlhc > 02-05-13, 01:03 AM

  Trong hồ sơ hộ khẩu thì có nhiều trường hợp họ muốn điều chỉnh nhiều cái lắm như: Họ và tên, năm sinh, nguyên quán, số CMND. Nói chung là điều chỉnh được hết nhưng phải đúng thủ tục thì cơ quan Công an họ sẽ điều chỉnh hết.
  Thanks các bạn nhiều.

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 02-05-13, 03:49 PM

  Nếu muốn làm như bạn cũng OK thôi vì như trên là chỉ thay đổi 1 trường, muốn làm nhiều trường thì thêm vào thôi
  

  Mã PHP:

  Private Sub Command26_Click()
    Dim rs As Recordset
    Dim CauSQL As String
    CauSQL = "SELECT * FROM tblNhankhau WHERE Chon=True"
    Set rs = CurrentDb.OpenRecordset(CauSQL)
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        Do Until rs.EOF
            rs.Edit
            If Not IsNull(Me.Thuongtrutxt) Then rs!Thuongtru = Me.Thuongtrutxt
            If Not IsNull(Me.HoTentxt) Then rs!HoTen = Me.HoTentxt
            If Not IsNull......'Thêm tiếp vào đây
            rs!Chon = False
            rs.Update
            rs.MoveNext
        Loop
    End If
    rs.Close
    Msgbox "Da Update OK"
End Sub 


  
  Với câu lệnh như trên, sau khi Update xong, nó sẽ trả trường Chon về giá trị False mà không cần phải thêm lệnh hay query gì nữa, một công hai ba việc
  
  Lưu ý : Câu lệnh của các bạn sẽ duyệt hết table tblNhanKhau, khi gặp trường nào có giá trị Chon = True thì thực hiện câu lệnh Edit. Như vậy sẽ rất lâu nếu có vài ngàn record. Dùng câu SQL sẽ giảm thiểu tối đa các recordset được duyệt, chỉ xét những recordset có Chon = True mà thôi nên sẽ rất nhanh
  Thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 03-05-13, 10:22 PM

  mình có 1 from dùng để nhập dữ liệu từ textbox vào table sau đó in ra dữ liệu theo mẫu báo cáo,những mình vẫn chưa nghĩ được cách viết code xin mọi người xem form(link) và giúp đỡ,mình mới học VBA nên còn gà làm.Link from của mình http://www.mediafire.com/?bbhbf1n6zlfkn8o.Quầy trên form của mình là Trẻ em(TE),Nữ(NU),Nam(NA)

• RE: Update nhiều record từ textbox vào table có điều kiện.

  Xuân Thanh > 04-05-13, 10:48 AM

  1/ Dường link không đúng
  2/ Nhấn phải chuột vào file cần lấy link, chọn Copy Link rồi paste vào diễn đàn
  Thân mến

• RE: Update nhiều record từ textbox vào table có điều kiện.

  bignosevinatex > 04-05-13, 04:30 PM

  Em gui lai LINK mong moi nguoi giup do.Thanks All
  http://www.mediafire.com/?bbhbf1n6zlfkn8o
• Bài trước Bài tiếp