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


3 participantes

    [Resolvido]buscando palavras

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 5/8/2014, 19:50

    tenho um campo chamado custo medio

    eu gostaria que ele transformasse o valor para letras

    exemplo

    M A R T E L I N H O
    1 2 3 4 5 6 7 8 9 0

    entao eu gostaria que buscasse as letras nesta palavra (MARTELINHO conforme o exemplo acima)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Alexandre Neves 5/8/2014, 21:30

    Boa noite,
    Crie uma função que recebe como argumento o valor e substitui cada algarismo pela letra correspondente


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 6/8/2014, 13:50

    nao entendi tem como vc postar um exemplo?
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 7/8/2014, 14:00

    Alexandre Neves, ou alguem me ajuda ai..........
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Alexandre Neves 7/8/2014, 14:07

    Boa tarde,
    A função será do género:
    function TransfNrLetra(dblNumero as double)as string
    dim I as integer
    for i=1 to len(dblnumero)
    select case mid(dblnumero,1,1)
    case 0
    TransfNrLetra=TransfNrLetra & "O"
    case 1
    TransfNrLetra=TransfNrLetra & "M"
    case 2
    TransfNrLetra=TransfNrLetra & "A"
    case 3
    TransfNrLetra=TransfNrLetra & "R"
    case 4
    TransfNrLetra=TransfNrLetra & "T"
    case 5
    TransfNrLetra=TransfNrLetra & "E"
    case 6
    TransfNrLetra=TransfNrLetra & "L"
    case 7
    TransfNrLetra=TransfNrLetra & "I"
    case 8
    TransfNrLetra=TransfNrLetra & "N"
    case 9
    TransfNrLetra=TransfNrLetra & "H"
    end select
    next
    end function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 7/8/2014, 17:21

    beleza, mas como eu representaria no campo ctomedio o valor de 112,20 que seria em letras : MMA,AO
    como eu transfiro pra o campo com a virgula e ponto se tiver
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Alvaro Teixeira 7/8/2014, 17:34

    Olá,
    Que tal utilizar os dois ultimos numeros (letras) para os decimais!!!
    Quando for converter de letras para numeros aplica a formatação.
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 28/8/2014, 18:47

    Quando eu busco nesta funcao ai ele so busca a primeira

    ex
    150,00 fica assim = mmmmm e teria que ficar assim MEO,OO
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Alvaro Teixeira 29/8/2014, 14:36

    Olá,
    Pode postar base de dados com exemplo do que está a fazer?? e onde pretende fazer ?

    Uma solução poderá ser utilizando o format
    Outra solução caso a origem tenha sempre as duas casas decimais (mesmo que seja 00) e construir assim:

    Código:
    CampoFormatado = Left([CampoOriginal], Len([CampoOriginal])-2) & "," & Right([CampoOriginal],2)

    --Não testado--Ficamos aguardar, abraço.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Alvaro Teixeira 8/8/2019, 08:33

    Olá,

    Como ficou esta situação! O tópico até é interessante.

    Os membros do fórum merecem e agradecem o retorno.

    Aguardamos,

    Abraço
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010

    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  NADIRONUNES 9/8/2019, 14:52

    ja resolvi

    desculpa mas nao sabia q ainda estava aberto

    Conteúdo patrocinado


    [Resolvido]buscando palavras Empty Re: [Resolvido]buscando palavras

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:00