Using a form with text input to open form and display record

[TrekMietta]

Okay i need some help if you guys dont mind.

I have a form named customers, i would like to have a seperate form (Not a subfrm) where i can enter the customer number then click a button (search) and it will open the Customers form and display the correct record.

On the same form i wish to have the same thing but instead it should open the Orders form and display the correct record.

How do i do this, i had this working ages ago using a tutorial on a website but i cant find the site or the tutorial.

Please help.

 

[boblarson]

Check this site out:

http://www.baldyweb.com/

 

[TrekMietta]

Thanks but it doesnt tell me where to enter the "expressions" or "Code" that he gives?? any suggestions?

Regards
Trek

 

[boblarson]

Thanks but it doesnt tell me where to enter the "expressions" or "Code" that he gives?? any suggestions?

Regards
Trek

How about the CLICK event of your button?

 

[TrekMietta]

Just tried it and it says it "cant find the object Do.cmd"

Regards

 

[boblarson]

that means you put the code in the event PROPERTY and not in the VBA window where it needs to go. See this for where to put code for events.

 

[TrekMietta]

today must just not be my day, it now says

"Run time error: 3464
Data type mismatch in criteria expression"

Any ideas, its starting to drive me mad now, been trying to do this for nearly 3 days.

Regards and thank you very much for you help and very quick replies.
Trek

 

[boblarson]

Post the code you are using. You are likely either not using delimiters (" for text and # for dates) or are using delimiters with a number field which does not use them.

 

[TrekMietta]

hello,

yes it is searching int field in a table i.e. "123456", here is the code i'm using:

Private Sub Command3_Click()
    DoCmd.OpenForm "Customers", , , "custno = '" & Me.ipt_custno & "'"
End Sub

Thanks again

 

[boblarson]

Because it is a numeric field you do not want the quotes. Try this instead:

DoCmd.OpenForm "Customers", , , "custno = " & Me.ipt_custno

 

[TrekMietta]

Thank you,

It worked straight away, thank you for your patience.

Regards Trek