The DB name is FalconAnalysis, the table name is UnitSize and the only field in the table is Size. Here is the Code I am using, the first builds my array based on the check boxes, and the second part passes the values into my table as long as they are not zero.
Expand|Select|Wrap|Line Numbers
- Private Sub MakeFilter2()
- If Nz(chkv2125S, False) Then _
- SizeArray(0) = 150
- If Nz(chkv2125H, False) Then _
- SizeArray(1) = 151
- If Nz(chkv215S, False) Then _
- SizeArray(2) = 180
- If Nz(chkv215H, False) Then _
- SizeArray(3) = 181
- If Nz(chkv2175S, False) Then _
- SizeArray(4) = 210
- If Nz(chkv2175H, False) Then _
- SizeArray(5) = 211
- If Nz(chkv220S, False) Then _
- SizeArray(6) = 240
- If Nz(chkv220H, False) Then _
- SizeArray(7) = 241
- If Nz(chkv225S, False) Then _
- SizeArray(8) = 300
- If Nz(chkv225H, False) Then _
- SizeArray(9) = 301
- End Sub
- Private Sub boxxob_Click()
- Dim intI As Integer
- For intI = 0 To 9
- Dim FalconAnalysis As Object
- Dim tblUnitSize As Object
- Dim colSize As Object
- Set FalconAnalysis = CurrentDb
- Dim UnitSize As Recordset
- Set UnitSize = FalconAnalysis.OpenRecordset("UnitSize", dbOpenTable)
- Dim strStringArray()
- If SizeArray(intI) = 0 Then
- Else
- UnitSize.AddNew
- UnitSize.Fields(0).Value = SizeArray(intI)
- UnitSize.Update
- UnitSize.Close
- End If
- Next
- End Sub