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


    Substituir Caracteres

    paulodaeira
    paulodaeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 50
    Registrado : 02/10/2012

    Substituir Caracteres Empty Substituir Caracteres

    Mensagem  paulodaeira em 6/9/2019, 11:51

    Olá pessoal

    Venho mais uma vez solicitar ajuda

    Tenho uma Caixa de texto num formulário em que queria que o utilizador ao escrever fossem alterados alguns caracteres

    Tendo em conta que o que o utilizador escrever será usado para dar nome a um ficheiro que será guardado numa pasta

    Exemplo:

    CaixaA: Orçamento 12/2019 15:33

    Resultado por exemplo

    CaixaA: Orçamento 12-2019 15_33


    Em resumo, queria que não fossem usados caracteres que o Windows não deixe usar quando se cria um ficheiro

    Desde já agradeço o tempo dispensado

    Paulo Delgado
    Sidney
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 380
    Registrado : 08/10/2012

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  Sidney em 6/9/2019, 12:23

    Paulo bom dia!!

    Você pode utilizar a função "Replace", como funciona:

    Código:
    varReplace = Replace(("Meu aniversário é dia 12/11/1977"), "/", "-")
    'Resultado: Meu aniversário é dia 12-11-1977
    paulodaeira
    paulodaeira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 50
    Registrado : 02/10/2012

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  paulodaeira em 6/9/2019, 14:23

    Obrigado pela ajuda

    Existe alguma forma de colocar ao escrever, ou seja o utilizador vai escrevendo e sempre que pressiona / ele altera para - e sempre que coloca : ou . ele transforma em _

    cumprimentos

    Paulo Delgado
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 23/01/2017

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  thiagomcosta em 6/9/2019, 15:11

    Estou sem tempo de tentar aqui, mas veja se os eventos do campo "Ao apertar tecla" ou "Ao modificar" resolvem seu problema.

    Eu iria pelo caminho do "Ao apertar tecla" e faria a leitura do código da tecla apertada no campo e faria a substituição durante a digitação.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 856
    Registrado : 13/12/2016

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  Alexandre Fim em 6/9/2019, 15:20

    Bom dia Paulo,

    O sistema pode permitir que o usuário informe estes caracteres exclusivos do Windows, mas na hora de salvar o registro, o sistema substitui os caracteres.
    Você pode criar um botão "Salvar" e obrigar o usuário a clicar nele.
    No evento "Ao Clicar" deste botão, você utiliza a função REPLACE, conforme nosso amigo Sidney, na mensagem 01.

    Boa sorte.


    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 23/01/2017

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  thiagomcosta em 6/9/2019, 16:38

    Eu acho melhor a solução dada pelos nossos colegas Sidney e Alexandre, mais rápido para programar e mais rápido processamento pela máquina do usuário.
    Porém, se quiser, consegui fazer um código para substituir os caracteres;

    Considere um formulário com uma caixa de texto com o nome Texto0, no evento "Ao liberar tecla" desta caixa de texto, coloque:
    Código:

    Private Sub Texto0_KeyUp(KeyCode As Integer, Shift As Integer)
        'Este exemplo substitui todas as letras A por underline (_)
        If KeyCode = 65 Then
            strTextoDigitado = Left(Texto0.Text, Len(Texto0.Text) - 1) & "_"
            Texto0.Text = strTextoDigitado
            Texto0.SelStart = Len(strTextoDigitado)
        End If
    End Sub
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    Registrado : 12/01/2015

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  renpv em 6/9/2019, 19:15

    Sugestão: Deixa os dados gravados e apresentados normalmente, muda apenas quando for gravar o relatório.

    Se você for mudar esses caracteres para o usuário vai estar quebrando o paradigma de UX/UI Design.

    Se o problema é apenas para gravar na pasta do windows trate apenas isso. Não crie um problema pro usuário a fim de resolver outro.

    Só uma sugestão.

    Conteúdo patrocinado

    Substituir Caracteres Empty Re: Substituir Caracteres

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 12:53