command buttons 1

[kpryan]

Hi all,

I have a form with a command button which updates an append query.
What I want to do is that once it has been activated is to lock the button. When the form is reopened it will unlock the command button. Is this possible in MS ACCESS?

 

[jimati]

make sure your in your properties for the button that enable = true.

Then in the onClick event for your button you do this

docmd.setwarning false 'I do this so that it won't remind me I am about to append records
docmd.openquery "YourQueryName"
button1.enable = false 'this will disable your button.
docmd.setwarnings true 'turn warnings back on
That should work. If you want to be safe, you can add this in the onOpen event for your form

if button1.enabled = false then
button1.enable = true
end if

 

[kpryan]

Thanks jimati,for geeting back to me.
have used the code, but get an error when the command button is clicked.."You can't disable a control while it has the focus. Not sure what this means.
Can you help further.

many thanks,

Ken

 

[Lightning]

Ken

When you click on the button, you make it the active control on the form. This is called giving the focus to the control. While any control has the focus, it can not be disabled.

You need to move the focus away from the button and then disable it.

docmd.setwarning false 'I do this so that it won't remind me I am about to append records
docmd.openquery "YourQueryName"
[b]Another_Control.SetFocus[/b]
button1.enable = False 'this will disable your button.
docmd.setwarnings true 'turn warnings back on

You can set the focus to any other visible control on the form. I usually set it to the next control that the user will need to action.

HTH
Lightning