MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Compartilhe
    avatar
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Erro na Função de Chamada do Teclado Virtual

    Mensagem  Jeferson de Paula em Sex 27 Set 2013, 01:52

    Fala Galerinha,

    Alguém sabe me dizer o que estou fazendo de errado no código abaixo?

    Código:
    Private Sub cmdTeclado_Click()
    'Retirado do Repositório de Exemplos do Fórum Máximo Access - JPaulo
    'Adaptado conforme Documentação da Microsoft - Jeferson de Paula
    Dim RetVal As Double
        RetVal = Shell("C:\Windows\System32\Osk.exe", 1)
    End Sub
    Estou usando o Microsoft Windows 8 Pro e o Microsoft Office 2013. No Access 2003 funciona perfeitamente da maneira que está acima, já no 2013 ocorre um erro:

    Erro em tempo de execução: 5
    Argumento ou chamada de procedimento inválida


    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Mensagem  criquio em Sex 27 Set 2013, 02:15

    Faça uma pesquisa no pc para ver se o nome do programa ainda é o mesmo e se ainda se encontra no mesmo caminho.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Mensagem  Jeferson de Paula em Sex 27 Set 2013, 05:22

    Olá amigo Criquio, fiz a busca assim que o erro começou aparecer e, o caminho e o nome continuam o mesmo "C:\Windows\System32\Osk.exe", isso ainda a Microsoft não mudou! Será que pode ser alguma referencia ausente no Access?

    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3389
    Registrado : 04/04/2010

    Re: [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Mensagem  Avelino Sampaio em Sex 27 Set 2013, 08:06

    Olá!

    Experimente com o SHELL da API.

    #If VBA7 Then
    'Access 2010 e 2013
    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
    #Else
    'Access 2003 e 2007
    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
    #End If

    Utilize a linha de chamada abaixo:

    ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

    Sucesso!
    avatar
    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Mensagem  Jeferson de Paula em Sex 27 Set 2013, 17:08

    Olá Avelino, funcionou perfeitamente. Mas eu gostaria de saber o porque do erro?

    Cumprimentos!

    Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2934
    Registrado : 06/11/2009

    Re: [Resolvido]Erro na Função de Chamada do Teclado Virtual

    Mensagem  Assis em Qui 20 Jul 2017, 12:52

    Obrigado Teixeira

    Pelo link, mas a função do Mestre Avelino, como aplicar?
    Colei num Módulo e ao fazer o Debug marca logo na primeira linha .... Fica logo azul
    Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, _


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Ter 19 Set 2017, 12:48