Search results

Thanks arnelgp. It does the job and gets me out of trouble. I will still have to find why the "Close Report" option works on other databases and why just that one option on the menu does not work. Self imposed punishment but we don't like to be beaten.

Thanks for the replies. I have knocked up a very small, crude database which is attached to which shows that the code works. If one of you is really bored then you could have a quick look to see what the end result should be. I can only assume that there is something else stopping it in the...

Found a few years ago at: "access-programmers.co.uk/forums/attachments/accesscontrols-xlsx.67523/" Although the symptoms point to an incorrect ID, 923 has worked for a long time and still does, just not on this database. I do not think the coding or references are wrong as the other ID's on...

Thanks for the replies. I am using the correct references (Office Object Libraries 16.0). I open a various reports in print preview and use the right click menu to close them. I copied the code from other databases that work perfectly as does the 923 ID. All the other ID's in the code work.

I have a right click shortcut menu which works well. All options work except ControlButton Id 923 which does nothing. It works on other Databases. Have done lots of comparisons between between them and and now am lost as to where to go next. I am using Office 365 on Windows 10 and 11. Help!!!

Static Thanks for pointing me in the right direction. I now have it working.

Static, thanks for replying. I have a VBA function in a module which does various calculations based on parameters sent to it via the form VBA behind the button. The form VBA loops 101 times and the function returns a value for each loop. I am currently writing these value out to a text file but...

I have a button on a form which runs the following code and sends parameters to a VBA function. I want to append the returned value to a table. Sounds simple, but I cannot make it work. HELP! Dim Value(100) As Integer Dim HcLoop As Integer For HcLoop = 0 to 100 ReturnValue(HcLoop) =...