devxlogo

Limit Selected Check Boxes With Collection Logic

Use the Count property to determine exactly how many controls are loaded. You can also use the For Each loop to perform code on each control. For instance, if you have a control array of check boxes and you don’t want more than three checked, use this code:

 Private Sub Check1_Click(Index As Integer)	Dim chk As CheckBox	Dim lCnt As Long	Const cMAX = 3	For Each chk In Check1		If chk.Value = vbChecked Then			lCnt = lCnt + 1			If lCnt > cMAX Then				Check1(Index).Value = vbUnchecked				MsgBox "Too many checked!"				Exit For			End If		End If	Next chkEnd Sub

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.

See also  How Seasoned Architects Evaluate New Tech

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.