Đá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
  Thắc mắc về nút lựa chọn Option box nam8384 14 832 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 583 03-06-16, 11:40 PM
Bài mới nhất: cannguyen
  [Help] Sắp xếp theo tên khi chọn chức năng thêm ngochieu8109 1 144 20-02-16, 08:54 AM
Bài mới nhất: tranthanhan1962
  [Help] Chọn COMBOBOX theo từng nhóm! caytregiavn77 9 564 10-02-16, 12:15 AM
Bài mới nhất: caytregiavn77
  [Help] Làm sao click phải chuột trong Report access thì hiện lệnh chọn in, xuất file Excel.. tronghieu9792 3 778 14-11-15, 02:29 PM
Bài mới nhất: levanchon1801

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ơ