[Resolvido]Teclado Virtual

Boa noite pessoal...

Estou utilizando o access 2013 no windows 10 32 bits.

Procuro uma solução para complementar meu sistema para acesso via conexão remota pelo android num tablet!

Estou à procura de procedimento para esconder o teclado virtual ao sair de um campo...

agradeço a ajuda

Olá Nilton,

Talvez fazer o "Kill" ao sair, veja aqui se ajuda:
access-programmers.co.uk/forums/threads/trigger-windows-10-on-screen-keyboard-using-vba.290628/
codeproject.com/Questions/159644/how-to-show-hide-windows-Virtual-keyboard

Abraço

bom dia Teixeira

no meu caso, em todos forms onde tem entrada de dados, na ação "ao apertar mouse" eu abro o teclado virtual...

essa parte já está ok

agora preciso esconder este teclado "ao perder foco" do campo ou da caixa de texto

para ficar parecido com o teclado automático do android

 

Olá Nilton

Não testei, mas poderia colocar no evento ao perder o foco (campo) quer seja por bater enter ou clicar noutro espaço.
A questão será se passa de um campo para outro vai retirar o teclado e voltar a chamar.

Veja também os eventos do formulário se ajuda



Abraço

Olá Teixeira

não funciona

só estou conseguindo minimizar o menu pelo botão minimizar do mesmo

já procurei uma solução e não encontrei

grato

Olá,

Baixou e testou o exemplo do primeiro link?
Se não conseguir, monte um pequeno formulario onde pretende ter o teclado e partilhe a base de dados para se testar.

Abraço

Olá Teixeira

Agora funcionou perfeitamente

obrigado pela atenção...

segue o conteúdo do link...

Código:

Dim lngPtr As Long
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

'Call Wow64DisableWow64FsRedirection prior to calling ShellExecute and Wow64RevertWow64FsRedirection, immediately after.
Private Declare Function Wow64DisableWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean
Private Declare Function Wow64RevertWow64FsRedirection Lib "kernel32.dll" (ByRef ptr As Long) As Boolean

Public Function ShowKeyboard()
Call Wow64DisableWow64FsRedirection(lngPtr)
ShellExecute 0, "open", "osk.exe", "", "", vbNormalFocus
Call Wow64RevertWow64FsRedirection(lngPtr)
End Function

Public Function HideKeyboard()
Call Wow64DisableWow64FsRedirection(lngPtr)
ShellExecute 0, "open", "tskill", "osk", "", vbHidden
Call Wow64RevertWow64FsRedirection(lngPtr)
End Function

Olá Nilton,

Fico feliz por ter resolvido.
Obrigado pelo retorno, o fórum agradece.

Abraço