Filtering within code

lryckman · August 4th, 2003, 11:05 AM

Good morning all,
I have a set of code to open a form to a specific record. I get a runtime error saying "Object required". My code is listed below. Can anyone help me with this please?

Private Sub cmdEditPartNumber_Click()
Dim InputPartNumber As String
InputPartNumber = InputBox("Please enter the Part Number")
DoCmd.OpenForm "SpecForm", acNormal, , Parts!PartNumber = InputPartNumber, acFormEdit, acWindowNormal

End Sub

Regards,
Laura

The only thing standing between you and your goal is doubt. Quit doubting yourself and you'll be able to accomplish anything!

John Anthony · August 4th, 2003, 11:42 AM

You need to change your WHERE portion of the code to be .....

"PartNumber =" & InputPartNumber & "'"

This should fix you right up

John

SerranoG · August 4th, 2003, 11:49 AM

Laura, try this (extra code in bold):

Code:

Private Sub cmdEditPartNumber_Click()

   Dim InputPartNumber As String, Criteria as String

   InputPartNumber = InputBox("Please enter the Part Number")
   Criteria = "[Part No. Field] = '" & InputPartNumber & "'"
   DoCmd.OpenForm "SpecForm", acNormal, , Criteria, _
                  acFormEdit, acWindowNormal

End Sub

Make sure you substitute [Part No. Field] with the actual part number field name.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division