Đá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
  tạo query trị giá cao nhất tran780 4 88 8 Giờ trước
Bài mới nhất: tran780
  Xin giúp về tạo query để làm theo mẫu report trungminh 10 296 23-05-17, 08:08 AM
Bài mới nhất: tranthanhan1962
  Nhờ sửa lỗi # Error khi tính toán trong Query tieu_ngao 13 402 18-05-17, 06:52 AM
Bài mới nhất: tieu_ngao
  Thiết lập giá bán chi tiết cho query feeling 2 133 11-05-17, 04:22 PM
Bài mới nhất: tranthanhan1962
  [Help] Query danh sách mặt hàng có ngày gần nhất với ngày nhập hàng hiện tại ? robocon1183 2 129 27-04-17, 03:12 PM
Bài mới nhất: robocon1183

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ơ