Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Nhập giá trị True/False cho một Trường của Query bằng VBA
#1
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.
[Hình: Form.jpg]
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
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
Reply
Những người đã cảm ơn
#2
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 
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn neverstopvn
#3
(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 !
Chữ ký của neverstopvn Xin chào, mình là neverstopvn, Tham gia http://thuthuataccess.com/forum từ ngày 20-05 -11.
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
  Lọc query có điều kiện để tạo report honglv157 3 155 01-12-16, 05:15 PM
Bài mới nhất: maidinhdan
  [Help] ẩn nút ""Close Windown" khi mở query tronghieu9792 4 85 30-11-16, 09:36 PM
Bài mới nhất: tronghieu9792
Question [Help] Cần giúp đỡ tạo query lấy giá trị của dòng liền trước để tính giá trị trung bình luonguct 4 87 23-11-16, 12:33 AM
Bài mới nhất: luonguct
  Hướng Dẫn hướng dẫn làm query tieuho828 6 146 21-11-16, 12:36 AM
Bài mới nhất: toancvp
  [Hỏi] cách lọc giá trị trên 2 trường khác nhau? hoanghai902 1 68 18-11-16, 09:27 AM
Bài mới nhất: vulhu06

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ơ