Recent content by MediaHolic

Thank you, the kind words and support are very much appreciated. When I get to a decent standard of knowledge, hopefully I can also contribute back and help others who are in the position that I am now as people have on here. I have a need to know, if I make ten mistakes to find the answer I'd...

Thank you, this has given me a lot to work through and learn. The way my head works, I need to understand how and why it works.

Thank you, as your signature says "Teach a man to fish and you feed him for life"

Thank you for taking the time to explain this, very much appreciated.

@arnelgp This is true, absolutely agree. The only shifted character out of all the titles is the apostrophe in Marvel's. I'll try and get to grips with the code and apply it at a later date. I'm still learning and I'd like to be able to create the code and know how and why it works, I'm just...

@Josef P. Thank you for input, I was looking for an easier solution as I'm still cutting my teeth with VBA. That function is a little beyond my experience at present as I'd like to know both the syntax and how/why it works which I'll build up to, the help is appreciated. After experimentation...

Hello again, Struggled with this until admitting defeat, back to my steelbook database and the film title "Marvel's Avengers", when I run the VBA filter. From the main form, a sub form called frm_Allitems5. Private Sub Command199_Click() DoCmd.OpenForm "frm_AllItems5", , , "[Film Title] = "...

"You are using Click event which won't trigger if someone tabs into control and starts typing." Very useful to know, I'll look into it. Thank you.

Thank you.

I'll have to find out how to add breakpoints and do walkthroughs. I appreciate the advice, thanks again for your help.

As an aside, I've set it to select no as the owned status afterwards. This wasn't what was originally intended but it's better than what I first wanted. Private Sub OwnStatus_Click() If OwnStatus = "6" And DCount("*", "tbl_Smithsonian", "[Own]='6'") >= 10 Then MsgBox "Ten most wanted...

Perfect! Thank you so much.

Done, thank you.

Couldn't get it to work. This compiles, error free but the message box no longer appears. Private Sub OwnStatus_Click() If OwnStatus = "Top 10 most wanted" Then If DCount("*", "tbl_Smithsonian", "[Own]='6'") >= 10 Then MsgBox "Ten most wanted already assigned" End If End Sub

Kind of getting there! Private Sub OwnStatus_Click() If OwnStatus = "Top 10 most wanted" Then DCount("*", "tbl_Smithsonian", "[Own]='6'") > = 10 MsgBox "Ten most wanted already assigned" End If End Sub