I had created a multi item Form with the table as shown having a checkboxes .But If I select the checkbox all other chekcboxes should get clear only one can remain checked at a time. the form is shown below and code as well i dont want to use update query or for loop is there any way
Code:Private Sub chk_Click() If chk.Value = -1 Then MsgBox (ID) Dim s As String 'MsgBox (chk.name) MsgBox (chk.name & "") Dim contr As Control For Each contr In Me.Controls If TypeName(contr) = "CheckBox" Then contr.Value = False If contr.name = s Then contr.Value = True End If End If Next End If End Sub