Is There a batter way to implement Checkboxes?

[ched35]

I am basically writting a program to assign inventory to a patient. The inventory is being added to the database by checkboxes. So when they click each of the check boxes, 1 is added to each of their equipment signed out. and inventory is decremented by 1 for each equipment.

When the Submit button is clicked everything is added to the DB.


Question:

As I am writting this, I realised if there was 100 pieces of equipment, that would take me forever to write. I am only using 20 equipments--i.e checkboxes.

The code below would have to be written for each checkbox selected. Is there a better way?

Here is what I came up with.

//code for the actual checkbox
Private Sub chkbed_Click()
 
bedchk = False
 
'vbchecked is a reserved word
chkBed.Value = vbChecked
bedchk = True
 
End Sub
 
 //adds to the patients equipment in the database
'customers only get one thing of each equip
add = 1
 
'Adding equipment to patient
With rspatientequip
.AddNew
 
id = getCustID
 
!CustId = id
 
If addequip = True Then
!bed = "bed"
 
End If
rspatient.Update
End With
 
 
 
//code for updating inventory
 
Dim id As String
'customers only get one thing of each equip
reduce = 1
 
 
 
'taking away from inventory, Updates inventory field UNitIn Stock - reduce(1)
Dim newDBInstockValue As Integer
Dim dbInStock As Integer
 
With rsinventory
    .MoveFirst
    .Find "ProductName = 'Bed'"
    dbInStock = !UnitInStock
 
    newDBInstockValue = (dbInStock - reduce)
    !UnitInStock = newDBInstockValue
 
rsinventory.Update
End With