MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Inserir caractere unicode via VBA

    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/08/2010

    [Resolvido]Inserir caractere unicode via VBA Empty [Resolvido]Inserir caractere unicode via VBA

    Mensagem  lindomar.silva Dom 4 Set - 11:16

    Olá,

    Já fiz várias pesquisas e testes, mas eu não estou conseguindo avançar, então peço a ajuda de vocês.

    Preciso de uma solução para que quando eu pressionar uma determinada tecla (por exemplo F11) seja inserido em qualquer campo que eu estiver (incluindo um subformulário) um caractere especial, no caso § (U+00A7). Pelo que eu pesquisei esse é o código unicode.

    Alguém tem alguma sugestão de como resolver isso?


    Obrigado!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Inserir caractere unicode via VBA Empty Re: [Resolvido]Inserir caractere unicode via VBA

    Mensagem  DamascenoJr. Dom 11 Set - 22:38

    No evento "ao apertar tecla"

    Código:
    If KeyCode = vbKeyF11 Then
        Screen.ActiveControl.Value = Screen.ActiveControl.Text & Chr(167)
        KeyCode = 0
    End If


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/08/2010

    [Resolvido]Inserir caractere unicode via VBA Empty Re: [Resolvido]Inserir caractere unicode via VBA

    Mensagem  lindomar.silva Qui 15 Set - 19:05

    Prezado DamacenoJr.

    Primeiramente quero pedir desculpa pela demora em dar um retorno.
    Agradeço muito pela sua orientação.
    A minha maior dificuldade estava em fazer o código para do "Ao apertar tecla"

    Acabei mudando o código, pois ao pressionar a tecla F11 é inserido o caractere desejado, mas em seguida o campo todo fica selecionado.

    Então adicionei um outro código que se não estou enganado foi você que ensinou em outra postagem.

    Ficou assim:

    If KeyCode = vbKeyF11 Then
    Dim objws As Object
    Set objws = CreateObject("wscript.shell")
    objws.SendKeys Chr(167)
    Set objws = Nothing
    End If


    Muito obrigado!


    Última edição por lindomar.silva em Qui 15 Set - 19:25, editado 1 vez(es) (Motivo da edição : Digitação errada)
    lindomar.silva
    lindomar.silva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 135
    Registrado : 27/08/2010

    [Resolvido]Inserir caractere unicode via VBA Empty Re: [Resolvido]Inserir caractere unicode via VBA

    Mensagem  lindomar.silva Qui 15 Set - 19:27

    Eu havia esquecido de marcar como Resolvido Very Happy

      Data/hora atual: Sab 1 Out - 12:26