Scriverb - Need Help!!

[AustinMan]

Please look at thread702-499786.

Any additional questions, let me know.

Thanks!

:-(

 

[mgmslate]

Not sure if this it what you are looking for but I have a form with several checkboxes and comboboxes. If the checkbox = true then I pass the value in the combobox to the report using the where condition.
Dim sWHERE As String
If chklengthID Then
sWHERE = sWHERE & " AND lengthvalue = " & cbolengthID
End If

If chksupplierID Then
sWHERE = sWHERE & " AND suppliercode = """ & cbosupplierID & """"
End If

If chkcolorID Then
sWHERE = sWHERE & " AND colorcode = """ & cbocolorID & """"
End If

If chkthicknessid Then
sWHERE = sWHERE & " AND thicknesscode = """ & cbothicknessid & """"
End If

If chkstatus Then
sWHERE = sWHERE & " AND status = """ & cbostatus & """"
End If
If chkheavy Then
sWHERE = sWHERE & &quot; AND thicknesscode <> &quot;&quot;&quot; & &quot;1438&quot; & &quot;&quot;&quot;&quot;
End If

If sWHERE <> &quot;&quot; Then sWHERE = Mid$(sWHERE, 6)
If EntriesValid = False Then Exit Sub
DoCmd.OpenReport &quot;Greenstone inventory&quot;, acViewPreview, , sWHERE
End Sub
Mike