Select All Records Where Void equals False

[burrina]

I Need to select all records except those where Void is True, default is False. It is a value list set to True/False.


If Void = True Then Do Not Print. Code to run before this! Printed = 1 unless Void is True Then Printed = 0 for that record. Void is a field on form with its control source set to Void. I know how to do this is a query but not in vba. The code is run from the form on a command button.

Printed = 1
If Me.Dirty Then Me.Dirty = False 'Force Save Record
stDocName = "Checks"
Forms!ContinuousBlankChecks.Visible = False
DoCmd.OpenReport stDocName, acPreview
Forms!BlankChecks.Visible = True
__________________________________________________ ______________
Here is what I am trying to make work by skipping the next record but maybe I have to do a loop or something, don't know!
If Me.Void = True Then
DoCmd.NavigateTo acCmdRecordsGoToNext

Dim AddItemsAsInventorymsgbox As String

AddItemsAsInventorymsgbox = MsgBox("Print ALL Checks?", vbInformation + vbYesNo, "ContinuousBlankChecks")

If (AddItemsAsInventorymsgbox = vbYes) Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectAllRecords
Me.Printed = 1
DoCmd.SetWarnings True
DoCmd.Save
If Me.Dirty Then Me.Dirty = False 'Forces a Save Record.
Me.Requery
End If

[June7]

Not understanding. Select records from where? I don't see a field in the subform list of checks called Void. What do you mean by 'value list'? Where is the variable Printed used? Why setting visibility of forms?

[burrina]

I am using a Label to Set the Status to Void.My value list is used for the Void control itself which is not visible on the form. The Print variable is used when you need to print a single check or a batch of them.Thereby skipping any records where they are Voided, i.e. Void = True
Right now trying just enabling and disabling all controls, don't know how else to do it.

[June7]

If you want code to read each record of the subform then yes will need loop structure. Also, I would use a RecordsetClone, easier to detect when the end of the records encountered.

With Me.subformname.Form.RecordsetClone
While Not .EOF
'code to do something with record
.Next
Wend
End With

[burrina]

Thanks, I will give that a try