Đá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
  Lỗi check và uncheck trên checkbox tieu_ngao 5 184 09-06-17, 02:14 PM
Bài mới nhất: tieu_ngao
  Chọn Mã nhân viên sẽ ra lý lịch nhân viên minhminh25767 2 133 29-05-17, 10:03 AM
Bài mới nhất: cpucloi
  Cho mình hỏi về tạo checkbox để xuất ra report tieu_ngao 4 220 21-05-17, 06:07 PM
Bài mới nhất: tranthanhan1962
  [Help] checkbox HoangManh 25 1,117 28-04-17, 08:15 PM
Bài mới nhất: ongke0711
  Hiển thị theo tùy chọn feeling 4 143 27-04-17, 01:14 PM
Bài mới nhất: tranthanhan1962

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ơ