Hello Ya'll
:banghead:First Part: I have been trying to use to a record value and choose a checkbox. Sat, Unsat, N/A are the 3 boxes. I used the control name and tried Nesting first and then made it simple.
If a.Value = 1 Then
Check68 = True
Check69 = False
Check70 = False
End If
If a.Value = 2 Then
Check68 = False
Check69 = True
Check70 = False
End If
If a.Value = 3 Then
Check68 = False
Check69 = False
Check70 = True
When the report comes up, the check boxes are all empty.
:banghead:Second Part: Even if the checkboxes were full, I'm having trouble looping through each page of the report. Each row of the query ends a page and the next page starts on a new row. The new record has to default the checkboxes back to 0 so the values can change for the next page. Of course like the above, I tried the easiest way but I wasn't successful.
Dim rst As Recordset, i As Integer
Set rst = Me.RecordsetClone
i = 0
rst.MoveFirst
Do While Not rst.EOF
i = i + 1
rst.Edit
rst![SelectServComplete] = Null
rst![a] = Null
rst! = Null
rst![c] = Null
rst![d] = Null
rst![e] = Null
rst![f] = Null
rst![g] = Null
rst![h] = Null
rst! = Null
rst![j] = Null
rst![k] = Null
rst![l] = Null
rst![m] = Null
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Is there hope for me?
Thank you
:banghead:First Part: I have been trying to use to a record value and choose a checkbox. Sat, Unsat, N/A are the 3 boxes. I used the control name and tried Nesting first and then made it simple.
If a.Value = 1 Then
Check68 = True
Check69 = False
Check70 = False
End If
If a.Value = 2 Then
Check68 = False
Check69 = True
Check70 = False
End If
If a.Value = 3 Then
Check68 = False
Check69 = False
Check70 = True
When the report comes up, the check boxes are all empty.
:banghead:Second Part: Even if the checkboxes were full, I'm having trouble looping through each page of the report. Each row of the query ends a page and the next page starts on a new row. The new record has to default the checkboxes back to 0 so the values can change for the next page. Of course like the above, I tried the easiest way but I wasn't successful.
Dim rst As Recordset, i As Integer
Set rst = Me.RecordsetClone
i = 0
rst.MoveFirst
Do While Not rst.EOF
i = i + 1
rst.Edit
rst![SelectServComplete] = Null
rst![a] = Null
rst! = Null
rst![c] = Null
rst![d] = Null
rst![e] = Null
rst![f] = Null
rst![g] = Null
rst![h] = Null
rst! = Null
rst![j] = Null
rst![k] = Null
rst![l] = Null
rst![m] = Null
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Is there hope for me?
Thank you