Filtering a form on an inputbox value.

[Aerowolf]

Here's the code I've got:

Dim QTY As String, q As Integer, p As Integer, ITEM As String

ITEM = InputBox("Enter unit part #:")
DoCmd.OpenForm "frmBOM"
DoCmd.ApplyFilter , [Forms]![frmBOM]![PARENTPART] = ITEM
If [Forms]![frmBOM]![PARENTPART] <> ITEM Then
result = MsgBox("There is no Bill of Materials for this item.")
DoCmd.Close acForm, "frmBOM"
End
End If


The problem is that frmBOM is not being filtered...why not?

Edwin

 

[snyperx3]

You can just open the form with filtering

DoCmd.OpenForm frmName,,,"ParentPart = '" & Item & "'"
(if item is a string)


DoCmd.OpenForm "frmName",,,"ParentPart = " & Item
(if item is a number)

could make your code this way:

DoCmd.OpenForm "frmBOM",,,"ParentPart = '" & InputBox("Enter Unit part #: ") & "'"

-Pete

 

[Remou]

Or change the code a little:
[tt]ITEM = InputBox("Enter unit part #:")
DoCmd.OpenForm "frmBOM"
DoCmd.ApplyFilter , "[PARENTPART] = " & ITEM[/tt]