Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Đếm số CheckBox đã chọn
#1
Em có 1 Form có 10 checkbox tạm đặt tên là: Chk1. Chk2,...Chk10
Giờ em tạo 1 label tên là : TxtDaChon
Giờ em muốn viết 1 đoạn để label hiển thị có bao nhiêu checkbox đã chọn ( true ) thì viết như thế nào ạ. 
Mã:
Private Sub TxtDaChon()
For i=1 to 10
If Me.Controls("Chk" &i) = True Then
' Code gì ở đây???
End If
Next i
End Sub
Chữ ký của k3nzyyb Xin chào, mình là k3nzyyb, Tham gia http://thuthuataccess.com/forum từ ngày 22-11 -14.
Reply
Những người đã cảm ơn
#2
Label của bạn tên là TxtDaChon và Sub lại cũng có tên TxtDaChon là không được. Có thể đổi tên của Sub là Demcheckbox


Mã:
Sub Demcheckbox()
   Dim chbDaChon, i As Integer
       chbDaChon = 0
   For i = 1 To 10
       If Me.Controls("Chk" & i) = True Then
           chbDaChon = chbDaChon + 1
       End If
   Next i
   TxtDaChon.Caption = chbDaChon
End Sub
------------------------------------
Private Sub Chk1_AfterUpdate()
Demcheckbox
End Sub
------------------------------------
Private Sub Chk2_AfterUpdate()
Demcheckbox
End Sub
------------------------------------
...
...
------------------------------------
Private Sub Chk10_AfterUpdate()
Demcheckbox
End Sub
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn k3nzyyb
#3
Mình đã làm được rồi bạn ah, cảm ơn bạn nhiều nhé tranthanhan1962
Chữ ký của k3nzyyb Xin chào, mình là k3nzyyb, Tham gia http://thuthuataccess.com/forum từ ngày 22-11 -14.
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
Wink [Hỏi] Tạo Nút Print- chọn theo trang, khôn in trwcj tiếp connguoi123 4 1,217 05-02-17, 03:24 PM
Bài mới nhất: maidinhdan
  [Help] open Form khi chọn Field Godspear 9 447 04-01-17, 12:55 PM
Bài mới nhất: Godspear
  [Help] Gán giá trị từ checkbox vào subform Dean 4 227 18-12-16, 07:32 PM
Bài mới nhất: Dean
  Thắc mắc về nút lựa chọn Option box nam8384 14 993 20-08-16, 08:58 PM
Bài mới nhất: maidinhdan
  [Hỏi] Hỏi cách chọn combobox tự động cannguyen 6 658 03-06-16, 11:40 PM
Bài mới nhất: cannguyen

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ơ