NAvigation form filter

[diegomarino]

I think I can only help out with the syntax that works with what you're posting. I have no idea if it will work with your real database. First, as I think I noted, I don't use macros so I removed the embedded macro and used the AfterUpdate event of the control. You click on the ellipses (...) in the property sheet to get at that. Do that and enter the code lines between Private Sub and End Sub so that it looks like this:

Private Sub TBXricerca_AfterUpdate()

Me.Filter = "campo1 LIKE '*" & Forms![navigationform].sottomascheraspostamento.Form.TBXricerca & "*' "
Me.FilterOn = True

End Sub

I got the form to filter using that. If you put in a value that is not in the records, it will jump to a new record. Not sure if that's ok.

thanks very much, it worked.


i cannot thanks you as much as deserve, i'm switching to vba code, just started to learn and it's much better then macros
if you come in parma you have a big dinner paid

and i went a bit further nesting my navigation form in another navigation form using "me.tbxricerca" instead of the full reference that gave me problem.
here the file if someone want to try

https://hhfinanza-my.sharepoint.com/...YkPRw?e=zeFfmo

[Micron]

That looks like the same file...

[diegomarino]

That looks like the same file...

try this
https://hhfinanza-my.sharepoint.com/...9CmOg?e=k14fr2

[Micron]

No idea why anyone would put a navigation form onto another form. It seems pointless.

[Raddle]

hey ..

I tried to follow this thread but couldn't quite get there.

Question 1 - can this be achieved using the macro builder or does one need to put a line of code in VB?

Question 2 - my Navigation form is called frm_MainNav and the report I target in one of the tabs is called rpt_Catalogue.

rpt_Catalogue has an event via a hyperlink, to open a details form for that catalogue item. This works when rpt_Catalogue is open directly.

When rpt_Catalogue is opened on the Nav form and one tries the event it bums, asking for the name field value.

I saved a new copy of rpt_Catalogue (called srpt_Catalogue) and have plumped for a line of VB code to achieve this.

Private Sub Name_Click()


DoCmd.OpenForm "frm_TabbedInfo", acViewForm, , "[Name] = srpt_Catalogue!Name????? ...
End Sub

Could anyone provide a steer?

Thank you

[Raddle]

This opens the form but not to the specified record, only to a blank version of the form ....

DoCmd.OpenForm "frm_TabbedInfo", acNormal, , "[Name] = Forms.frm_MainNav.NavigationButton18.Name"

[diegomarino]

Hi raddle, this is a very old topic. my knowledge grew a lot, thaks too this forum, and i use no more a navigation form, that's pure evil.
My suggestion is to create a custom form and use it as navigation form, just putting some button that opens other forms, as you can see in the pic (don't mind the graphic part that is a sh*t)
i don't even remamber how a navigation form works, but if you want i can help you make your own navigation form, it's pretty easy

[diegomarino]

to navigate to a specific record you have to use the "openargs" parameter.

DoCmd.OpenForm "frm_TabbedInfo", acNormal, , "[Name] = Forms.frm_MainNav.NavigationButton18.Name", me.ID

so, when you click on a specific record (even on the "name" control) it takes the ID value (the primary key) and bring it to the form just opened.

of course you have to make some code in the opened form, just like


Private Sub Form_Open(Cancel As Integer)
if me.openargs is not null then

Me.RecordSource = "SELECT table.* FROM Table WHERE (((table.id)= " & Me.OpenArgs & " ))"

end if

end sub


that opens the form and shows the record you want

[Raddle]

Hey - grazie thank you for coming back!

I am using Nav forms because they are 'easy' hahaah.

I think this method should work, it is just the syntax of pointing to the name field on the form that I need to get nailed. I tried your version but it gave an error.

It needs to be something like this but I can't get the specific correct syntax.

Private Sub Name_Click()
DoCmd.OpenForm "frm_TabbedInfo", acNormal, , "[Name] = '" & Forms.frm_MainNav.NavigationButton18.Name & "'"




End Sub

Grrrrr

[Welshgasman]

Start learning to walk your code.
Either hover over Forms.frm_MainNav.NavigationButton18.Name, or put it and Name= into a string variable and debug.print that.
You can also use ? Forms.frm_MainNav.NavigationButton18.Name in the Immediate window.
Learn to use breakpoints.

[diegomarino]

sorry, i misunderstood cause i'm working

i'm not sure about syntax, cause the "[Name] = '" & Forms.frm_MainNav.NavigationButton18.Name & "'" should be the openargs.
but i don't remember navigation forms

if you could attach a sample of your DB i could fix it

[Raddle]

Thanks so much both.

? Forms.frm_MainNav.NavigationButton18.Name returns NavigationButton18 in immediate window.

I think I am not passing the field name in the execution.

The code such as it is (one line!) is stoping at:

DoCmd.OpenForm "frm_TabbedInfo", acNormal, , "[Name] = Forms.frm_MainNav.NavigationButton18.Name"

I need to get the field name (which is unhelpfully called [NAME]) into the right part of the quotes...

I need something like DoCmd.OpenForm "frm_TabbedInfo", acNormal, , "[Name] = Forms.frm_MainNav.NavigationButton18.Name" + the FIELD name .... I think

[Welshgasman]

Do not use reserved names anyway.
So enclose the form address in [ and ]

You had it more correct before as you need to concatenate the form value with &

Probably Forms!FormName as well. If the code is in the form then you should be able to use Me, but I have never used navigation forms. They do not exist in 2007.

[diegomarino]

oh now i see, "name" is the name of the field
try the welsh solution then let us know. Navigation forms are banned in this forum, i think noone are familiar with them

[June7]

Raddle, next time start your own thread instead of highjacking a 3-year old discussion. New thread would get more attention, especially when existing is already flagged as solved. Include reference to existing thread if you think it would be helpful.