Recent content by Cliff67

@Pat Hartman Yes, I will create looping system before deployment, I just wanted to make sure it did want I wanted it to do. Now I've proved the idea an refine it. It will be worth it as I've got other forms that need this style of menus. once again thank you all for your help

Hello All, a quick update, Having gone through the code I found that I was not managing the focus of a control correctly. once I found this it all works ok. Thank you all for your advice

@Pat Hartman Many thanks for the code snippet. I'll give it a try, it is always useful to have another approach in the arsenal.

@isladogs I've managed to find the original issue, I had one of the hide functions on the buttons LostFocus event. As soon as you lost focus it would try to hide the buttons so were not really active and not really hidden. Once removed The buttons worked correctly. I then found that I would...

Hi @Josef P. in reply, to you questions, 1. I only need to clear the error 2165 which is the fact that the control has the focus and you can't hide a control with the focus 2. the Err_Hand is a procedure that logs errors (on an Error log table) that I have not accounted for by the error number...

Sorry isladogs Function showFile() On Error GoTo ErrHand Me.CmdFile1.Visible = True Me.CmdFile2.Visible = True Me.CmdFile3.Visible = True hideNav On Error GoTo 0 ErrHand: Err_Hand ("showFile") Err.Clear End Function Function hideFile() On Error GoTo ErrHand...

So these get called from the various button such as: Private Sub CmdSearches_Click() hideFile showSearch hideActions End Sub For the navigation button: Private Sub CmdAction5_Click() On Error GoTo ErrHand showNav On Error GoTo 0 Exit Sub ErrHand: Err_Hand...

So here goes Function showFile() Me.CmdFile1.Visible = True Me.CmdFile2.Visible = True Me.CmdFile3.Visible = True End Function Function hideFile() Me.CmdFile1.Visible = False Me.CmdFile2.Visible = False Me.CmdFile3.Visible = False End Function Function showSearch()...

bugger the code toggle didn't work one second

F unction showFile() On Error GoTo ErrHand Me.CmdFile1.Visible = True Me.CmdFile2.Visible = True Me.CmdFile3.Visible = True On Error GoTo 0 ErrHand: Err_Hand ("showFile") Err.Clear End Function Function hideFile() On Error GoTo ErrHand Me.CmdFile1.Visible = False...

Hello All, So my boss has decided to give me some layout advice (poke his nose into a support database) and wants to bring things in line with the latest thinking of MSDN before roll out. To that end I've had to remove the majority of the buttons used for normal database things and add them to...

no problems

Hi Jason thanks for the offer, it has been decided to leave the idea of editable PDFs behind now. many thanks Cliff

Hi Pat Just thought I would update you on this as I know a lot has happened. Finally the boss man has agreed to put the DB on citrix and he has completely abandoned the idea of editable PDF. (mainly thanks to me ignoring the requests). You mentioned a bat file for the FE could you post it to...

Welcome Brother