MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Como fazer aparecer acentos em palavras ou retirar caracteres desconhecido

    Compartilhe

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Como fazer aparecer acentos em palavras ou retirar caracteres desconhecido

    Mensagem  HugoLuiz em Qua 21 Jan 2015, 11:59

    Bom dia galera, estou mais uma vez pedindo uma ajuda de vocês.

    Trabalho com um sistema onde utilizamos o access para acessar o banco de dados que é na extenção (.dat) e também para criar alguns relatórios.
    Como não tenho muito conhecimento em access vim aqui lhe pedir uma ajuda aqui.

    Meu problema é o seguinte: no sistema é lançado um texto onde o mesmo contem varias palavras com acento, porem quando eu abro no access as palavras que estavam com acento demostra totalmente bagunçadas conforme demostrado abaixo
    Palavras com Acentos
    A‡Æo      <<--  Ação
    M‚dia       <<--  Média
    Com‚dia   <<--  Comédia
    CÆo        <<--  Cão

    Alguém sabe me dizer como eu importo para uma tabela local os dados com acento ou sem acento?


    Vou anexar um print da tela do sistema onde foi digitado os dados com acento (TelaSistema), também vou anexar o Banco de dados (DadosErro)
    Foi criado um arquivo.zip onde esta o banco de dados e o print do sistema
    Anexos
    Arquivo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 4 vez(es)

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: Como fazer aparecer acentos em palavras ou retirar caracteres desconhecido

    Mensagem  LiveBrain em Qua 21 Jan 2015, 22:16

    opa amigo, como você só mando a tabela sem nenhum formulário, eu montei um código que você pode adapta para o seu projeto

    Acho que você pode adaptá-lo no momento em que salva os dados na tabela.

    ah, não fiz o mapeamento da letra é pois o caractere especia dela está como virgula e se no texto aparecer alguma virgula, seria substituido também.


    Código:
    Dim stFrase As String
    stFrase = "Palavras com Acentos A‡Æo M‚dia Com‚dia CÆo"

    Dim stCE As String
    Dim stCC As String

    stCE = "‡Æ"
    stCC = "çã"


    For i = 1 To Len(stCE)
        stFrase = Replace(stFrase, VBA.Mid(stCE, i, 1), VBA.Mid(stCC, i, 1))
    Next


    MsgBox stFrase


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: Como fazer aparecer acentos em palavras ou retirar caracteres desconhecido

    Mensagem  HugoLuiz em Qui 22 Jan 2015, 01:35

    LiveBrain Obrigado pela ajuda.

    porem eu não consegui implementar este comando.
    eu preciso coloca-lo para atualizar o campo "CAMP_DESCRICAO" da tabela em anexo
    ou
    então criar uma nova tabela com os mesmos campos mas caso o campo onde contem os caracteres com acento aplicar o código que você passou.

    só que não consegui desenvolver, sera que é possível fazer isso?

    desde já agradeço a ajuda!

      Data/hora atual: Dom 04 Dez 2016, 12:11