G
Guest
Need help addressing the KepPress Event
I'm new to Access programming...
Background & Fact pattern:
I downloaded the Calander example example form:
" http://www.fontstuff.com/access/acctut09.htm "
It works fine and is a great starting point!
The application I am creating, using Access 97, is basicly a data entry app.
To speed up data entry and have a consistant feel to the application I want
to allow the users to use the keyboard arrow & "enter" keys to select the
date (in additon to mouse events)
In the Calander's Properties -> Event dialogue the only events exposed are:
On Updated
On Enter
On Exit
On GotFocus
On LostFocus.
I did a search on my system and found exactly on instance of MSCL.OCX
version 8.0.0.3432
I found the Mscal.hlp file & says the KeyPress event is avalible...
One of the examples in the help is:
The following example increments the value of a Calendar control by one week
when the user clicks the button named ShowNextWeek.
To try this example, create a form with a Calendar control named ActiveXCtl0
and a command button named ShowNextWeek. Paste the following code into the
form's module. Switch to Form view and click the command button to increment
the week.
Private Sub ShowNextWeek_Click()
Me!ActiveXCtl0.NextWeek
End Sub
which would be approperate action, for the down arrow key, in a Case
statement.
Thanks for your help...
Marvin
I'm new to Access programming...
Background & Fact pattern:
I downloaded the Calander example example form:
" http://www.fontstuff.com/access/acctut09.htm "
It works fine and is a great starting point!
The application I am creating, using Access 97, is basicly a data entry app.
To speed up data entry and have a consistant feel to the application I want
to allow the users to use the keyboard arrow & "enter" keys to select the
date (in additon to mouse events)
In the Calander's Properties -> Event dialogue the only events exposed are:
On Updated
On Enter
On Exit
On GotFocus
On LostFocus.
I did a search on my system and found exactly on instance of MSCL.OCX
version 8.0.0.3432
I found the Mscal.hlp file & says the KeyPress event is avalible...
One of the examples in the help is:
The following example increments the value of a Calendar control by one week
when the user clicks the button named ShowNextWeek.
To try this example, create a form with a Calendar control named ActiveXCtl0
and a command button named ShowNextWeek. Paste the following code into the
form's module. Switch to Form view and click the command button to increment
the week.
Private Sub ShowNextWeek_Click()
Me!ActiveXCtl0.NextWeek
End Sub
which would be approperate action, for the down arrow key, in a Case
statement.
Thanks for your help...
Marvin