Đá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
  Cho mình hỏi về tạo checkbox để xuất ra report tieu_ngao 4 162 21-05-17, 06:07 PM
Bài mới nhất: tranthanhan1962
  [Help] checkbox HoangManh 25 1,018 28-04-17, 08:15 PM
Bài mới nhất: ongke0711
  Hiển thị theo tùy chọn feeling 4 119 27-04-17, 01:14 PM
Bài mới nhất: tranthanhan1962
Wink [Hỏi] Tạo Nút Print- chọn theo trang, khôn in trwcj tiếp connguoi123 4 1,280 05-02-17, 03:24 PM
Bài mới nhất: maidinhdan
  [Help] open Form khi chọn Field Godspear 9 562 04-01-17, 12:55 PM
Bài mới nhất: Godspear

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ơ