FindRecord Problem

[zareh]

Dear All,

I attached a simple file which contains two forms.

FRM1 has a sub form on it. In which field the user wants to do a search, the focus goes there (He/She selects the field). When the search button is clicked another form is opened and asks for the search item.



So far I managed to identify the name of the form and the last control. Then I need to use FindRecord function to find the search item.


I get error !

Can somebody tell me what is wrong?

Thanks

[June7]

Instead of a form/subform, why not a single form set in Continuous view? The search controls can be in that form header. Controls can be arranged to look like datasheet.

You have a dynamic parameterized SQL as the Customer form RecordSource. The only code that should be needed is to requery the form. This would be easy if the search textbox was on frm1 instead of opening a popup for the criteria input.

If you want to use VBA to manage the filter, then remove the dynamic parameters. The code approach you are taking is very tricky to accomplish.

[zareh]

Thanks for the reply.

I know some other ways to do the search and I did.

For some reasons I need to do it this way.

Any help on FindRecord part?

Thanks

[June7]

Not if the query has dynamic parameters.

[zareh]

Dear June7,

I attached a file which I did it on the form. You can see that it works when it is done from the same form, but when other form opens to get the search item I have a problem.

Any ideas?
Thanks

[zareh]

An interesting thing I just realized !!!!!!!!!!!!!!!!

When I put a toggle break-point before FindRecord line, program stops and when I press F5 it finds the records without any error????????!!

Anybody knows why!!!!!!

[June7]

The form RecordSource is still a dynamic parameterized query. But it references something named fld_search as parameter. What is fld_search? Why not reference Text10 which is name of textbox on Frm1?

I always name subform container control different from the object it holds, like: ctrDetails

Then the only code needed to filter the records is:

Private Sub Command3_Click()
Me.ctrDetails.Requery
End Sub

The Find First and Find Next is more complicated. I give up trying to make it work with form/subform.

[zareh]

Thanks a lot.

[zareh]

fld_search was added by somebody else, I forgot to delete it.

[orange]

A couple of things about your database.

You will save yourself hours of frustration with syntax errors IF:
-you do not allow embedded spaces in your table fields and object names,
-use only A thru Z and 0 thru 9 and _ (the underscore) in names.

In your table you have duplicate names. This is a poor design.

A database with 1 table is rare. WHAT is your proposed database about? A simple description would be helpful to readers.

[June7]

Latest db doesn't incorporate my suggestions. I still give up.