fjvanlochem
Verenigingslid
- Lid geworden
- 23 nov 2009
- Berichten
- 53
Ik wil dat op een access formulier de cursor alleen met de returntoets tussen de in te vullen velden kan worden verplaatst. Dus niet met de muis. Bestaat hier voor een manier?
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Maar dat lijkt dus net het probleem: het maakt niet uit in welk veld je formulier opstart, je kunt met de muis in elk willekeurig veld klikken. Daar gaat je zorgvuldig ingerichte 'flow' . En dat schijnt bij TS dus een probleem te zijn...En: Je kunt bij het formulier heel eenvoudig kiezen in welk veld de muis bij het opstarten moet staan...
Private Sub CommandButton1_Click()
Static sstrCaption As String
Static blnClip As Boolean
If blnClip Then
Call acb_apiClipCursor(ByVal vbNullString)
Else
Call acb_apiClipCursor(typRect)
End If
blnClip = Not blnClip
Range("F12").Select
End Sub
Option Explicit
Type acb_tagRect
lngLeft As Long
lngTop As Long
lngRight As Long
lngBottom As Long
End Type
Public Declare Sub acb_apiClipCursor Lib "User32" Alias "ClipCursor" (typRect As Any)
Public Declare Sub acb_apiGetWindowRect Lib "User32" Alias "GetWindowRect" (ByVal Hwnd As Long, typRect As acb_tagRect)
Ik prbeer het aalleen zo makkleijk te maken zodat mensen hopelijk inzien dat de TAB het makkelijkste is, waardoor ze meteen in de flow zitten...Maar dat lijkt dus net het probleem: het maakt niet uit in welk veld je formulier opstart, je kunt met de muis in elk willekeurig veld klikken. Daar gaat je zorgvuldig ingerichte 'flow' . En dat schijnt bij TS dus een probleem te zijn...
Declare the following API Function:
Public Declare Function BlockInput Lib "USER32.dll" (ByVal fBlockIt As Long) As Long
Private Sub ImpData_Click()
On Error GoTo Err_ImpData_Click
Dim intCounter As Long
DoCmd.Hourglass True
BlockInput True
For intCounter = 1 To 2147000000
'take a nap!
Next
BlockInput False
DoCmd.Hourglass False
Exit_ImpData_Click:
Exit Sub
Err_ImpData_Click:
BlockInput False: DoCmd.Hourglass False
MsgBox Err.Description, vbExclamation, "Error in Pic Names"
Resume Exit_ImpData_Click
End Sub
BTW, there is an Escape Route, ALT + CTRL + DEL will effectively Disable Input Blocking.
Daarmee respecteer je de gebruiker toch nog....die het anders wil.............Anders wordt het imho toch jouw taak ....om het zo aantrekkelijk te maken dat de tab functie toch DE manier is.... ipv de muis.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.