Đá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
  Hướng Dẫn Query cấp phát quần áo cho công nhân tieuho828 10 332 15-02-17, 10:36 AM
Bài mới nhất: tieuho828
  Hướng Dẫn hướng dẫn làm query theo cbobox tieuho828 3 118 03-01-17, 03:54 PM
Bài mới nhất: cpucloi
  [Hỏi] Câu lệnh để tìm max tại criteria trong query khongcodit 8 343 23-12-16, 12:05 AM
Bài mới nhất: ongke0711
  [Hỏi] Hỏi Query tính giá trị trung bình luonguct 2 100 17-12-16, 07:21 PM
Bài mới nhất: ongke0711
  Thiết lập Query sổ chi tiết slow2812 11 228 13-12-16, 07:44 PM
Bài mới nhất: ongke0711

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ơ