View Single Post
Old 04-21-2017, 12:02 AM   #9
CJ_London
Super Moderator
 
Join Date: Feb 2013
Location: UK
Posts: 11,242
Thanks: 40
Thanked 3,646 Times in 3,516 Posts
CJ_London is a glorious beacon of light CJ_London is a glorious beacon of light CJ_London is a glorious beacon of light CJ_London is a glorious beacon of light CJ_London is a glorious beacon of light
Re: Increase focus rectangle thickness for Ultra-HD screens

well you can automate it on opening the form

in the module put

Code:
 
function setForm(frm as form)
dim ctrl as control
 
for each ctrl in frm.controls
    on error resume next ' in case ctrl does not have these event properties
    ctrl.onenter="=changeborder()"
    ctrl.onexit="=restoreborder()"
next ctrl
end function
and in the form open event put

=setForm([Form])

You can also create a form template. In access, go to help and search for 'Specify a new template for forms and reports'.
__________________
CJ_London
_______________________
A little thanks goes a long way. If you have found this post useful, please tick the thanks button
CJ_London is offline   Reply With Quote
The Following User Says Thank You to CJ_London For This Useful Post:
wisekat (04-21-2017)