Multi Item Form checkbox Selection (1 Viewer)

[lalit81inin]

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

Private Sub chk_Click()
If chk.Value = -1 Then
MsgBox (ID)
Dim s As String
'MsgBox (chk.name)

MsgBox (chk.name & "sdfjshfdjds")
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

 

[arnelgp]

the checkbox is unbound and your form is continuous.
on continuous form there is only but 1 checkbox (see it in design view).

what you will need to Include a Record is instead of checkbox, use
command button (cmdCheck) and an Unbound Textbox (txtUnbound).

in design view of your form, remove the checkbox.
put the command button on same position as the checkbox.
put txtUnbound anywhere, set it's Visible property=No.

add code to cmdCheck's Click event.

Private Sub cmdCheck_Click()
If Me.NewRecord = False Then
    If Instr(Me!txtUnbound, Me!ID & ",") > 0 Then
        Me!txtUnbound = Replace(Me!txtUnbound, Me!ID & ",", "")
    Else
        Me!txtUnbound = Me!txtUnbound & Me!ID & ","
    End If
End If
End Sub

the last step.
select together ID, Name and Age textbox.
add Conditional Format.

Expression Is= Nz([ID], 0) > 0 AND Instr([txtUnbound], [ID] & ",") > 0
choose different Backcolor (yellow, maybe).

 

[lalit81inin]

the checkbox is unbound and your form is continuous.
on continuous form there is only but 1 checkbox (see it in design view).

what you will need to Include a Record is instead of checkbox, use
command button (cmdCheck) and an Unbound Textbox (txtUnbound).

in design view of your form, remove the checkbox.
put the command button on same position as the checkbox.
put txtUnbound anywhere, set it's Visible property=No.

add code to cmdCheck's Click event.

Private Sub cmdCheck_Click()
If Me.NewRecord = False Then
    If Instr(Me!txtUnbound, Me!ID & ",") > 0 Then
        Me!txtUnbound = Replace(Me!txtUnbound, Me!ID & ",", "")
    Else
        Me!txtUnbound = Me!txtUnbound & Me!ID & ","
    End If
End If
End Sub

the last step.
select together ID, Name and Age textbox.
add Conditional Format.

Expression Is= Nz([ID], 0) > 0 AND Instr([txtUnbound], [ID] & ",") > 0
choose different Backcolor (yellow, maybe).

Dear Friend Thanks For Your inpouts but as per the requirement there i need to use checkboxes only command button not permitted

 

[arnelgp]

you add a checkbox to your table.

 

[lalit81inin]

you add a checkbox to your table.

There is already field named check with the data type yes/no to whom checkbox is bound,So how I can proceed further to get the desired result

 

[arnelgp]

you just add the check field to your form.
on msa menu, Design, on Ribbon->Add Existing Fields.

I see your code.

Private Sub chk_Click()
If chk.Value = -1 Then
me.dirty=false
MsgBox (ID)

'MsgBox (chk.name)
currentdb.Execute "update table1 set check=0 where id <> " & me![id]
End If
End Sub

 

[lalit81inin]

you just add the check field to your form.
on msa menu, Design, on Ribbon->Add Existing Fields.

Checked That but still problem persist it is keeping previousl;y heckbox checked as well my condition is when say id1 is already selected and after that i slect the ID 4 id 1 checkbox should get cleared

 

[arnelgp]

see my Edited post#6 for the code.

 

[lalit81inin]

see my Edited post#6 for the code.

Dear Thanks for Your Efforts but the data is going to be more than 50,000 records using update commnd will affect the things and i already mention in my POST dont want to use UPDATE command

 

[arnelgp]

update query is Faster than using Loop.
I also saw your post "don't want to use update and loop".

 

[lalit81inin]

update query is Faster than using Loop.
I also saw your post "don't want to use update and loop".

ANY OTHER WAY OF DOING ??????????