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

[Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA
• [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

• [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

  neverstopvn > 11-12-11, 09:10 AM

  Mình tạo ra một subform hiển thị các record có giá trị được chọn từ combobox, mình muốn làm một thao tác là khi nhấp chọn checkbox Check 4 thì giá trị tương ứng của tất cả các record trong subform cũng thay đổi tương tự cùng giá trị ( true/false). Mình gán giá trị thông qua event AfterUpdate của checkbox mà mãi ko được, mong các bạn có kinh nghiệm chỉ giáo.
  
  Code:
  Sub cboxPickPerson_AfterUpdate()
  Dim dab As DAO.Database
  Dim rst As DAO.Recordset
  Dim qry As DAO.QueryDef
  
  Set dab = CurrentDb
  Set qry = dab.QueryDefs("qry PickPerson")
  Set rst = qry.OpenRecordset(dbOpenDynaset)
  'Phan nhap gia tri cho Field "PickPerson" cua query "qry PickPerson" theo trang thai cua checkbox cboxPickPerson
  If cboxPickPerson = True Then
  Do Until rst.EOF = True
  With rst
  .Edit
  .Fields("PickPerson") = True
  .Update
  .MoveNext
  End With
  Loop
  
  Else
  Do Until rst.EOF = True
  With rst
  .Edit
  .Fields("PickPerson") = False
  .Update
  .MoveNext
  End With
  Loop
  End If
  
  dab.Close
  rst.Close
  qry.Close
  
  End Sub
  
  Mình up file đính kèm !
  http://www.mediafire.com/file/iyonmcz9g1...rQuery.mdb

• RE: [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

  Noname > 11-12-11, 11:23 AM

  Mình nghĩ chỉ đơn giản vầy thôi, bạn đừng lạm dụng code quá
  
  

  Mã PHP:

  Sub cboxPickPerson_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [qry PickPerson] SET PickPerson =" & cboxPickPerson.Value
sfrmPickPerson.Requery
DoCmd.SetWarnings True
End Sub 


• RE: [Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA

  neverstopvn > 11-12-11, 12:59 PM

  (11-12-11, 11:23 AM)Noname Đã viết: Mình nghĩ chỉ đơn giản vầy thôi, bạn đừng lạm dụng code quá
  
  

  Mã PHP:

  Sub cboxPickPerson_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE [qry PickPerson] SET PickPerson =" & cboxPickPerson.Value
sfrmPickPerson.Requery
DoCmd.SetWarnings True
End Sub 


  
  Cám ơn rất nhiều nhưng mình nếu có thời gian nhờ noname giúp mình tại sao code trên lại sai nhé, hix !
• Bài trước Bài tiếp