Bildschirmtastatur (auf Win10-Tablet) per VBA in MS Access (Office 365) ein- und ausblenden?

Question

Hallo, ich möchte für die Dateneingabe in bestimmte Felder einer Access-DB die Bildschirmtastatur des Tablets nutzen. Beim Betreten eines entsprechenden Feldes soll sie automatisch eingeblendet  und beim Verlassen des Feldes wieder ausgeblendet werden. Ich möchte dies mit VBA realisieren.

Ich weiss, dass Access nicht für Tablet-Anwendungen optimiert ist. Meine Suche nach entsprechenden Code-Beispielen war bisher nicht erfolgreich.

Wer kann mir auf die Sprünge helfen?

Answer 1

Es gibt zwei Bildschirmtastaturen, die ältere osk.exe und die neuere TabTip.exe. Aufrufen kann man sie wie folgt:

Im Kopf des Moduls

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, _
 ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Im gewünschten Ereignis (zum Beispiel Text1_Enter):

Dim ret As Long

ret = ShellExecute(0, vbNullString, "osk.exe", vbNullString, "C:\Windows\System32", 1)
If ret <= 32 Then
   Call MsgBox("Tastatur anzeigen ist fehlgeschlagen, vbOkOnly,"Tastatur")
End If

respektive

Dim ret As Long

ret = ShellExecute(0, vbNullString, "TabTip.exe", vbNullString, "C:\Program Files\Common Files\Microsoft Shared\ink", 1)
If ret <= 32 Then
   Call MsgBox("Tastatur anzeigen ist fehlgeschlagen, vbOkOnly,"Tastatur")
End If

Matthias Kläy, Kläy Computing AG

Answer 2

Danke. Das hat mir schon sehr geholfen.

Kann man die TabTip.exe auch nur auf den Ziffernblock beschränken?  Es sollen nur Ziffern eingegeben werden.

Answer 3

Wie nutze ich das Ereignis? Ich habe bis jetzt noch keine guten Tutorials oder auch nur Dokumentation dazu gefunden.