• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Đếm số CheckBox đã chọn

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Hỏi] Đếm số CheckBox đã chọn
• Đếm số CheckBox đã chọn

• Đếm số CheckBox đã chọn

  k3nzyyb > 24-10-15, 11:26 AM

  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

• RE: Đếm số CheckBox đã chọn

  tranthanhan1962 > 24-10-15, 01:59 PM

  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

• RE: Đếm số CheckBox đã chọn

  k3nzyyb > 25-10-15, 09:58 PM

  Mình đã làm được rồi bạn ah, cảm ơn bạn nhiều nhé tranthanhan1962
• Bài trước Bài tiếp