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]Separar valores de uma caixa de texto com virgulas e "e" no final.

    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/03/2012

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  geremias 25/9/2021, 14:42

    Bom dia Prezados amigos do fórum.

    Como já devem ter percebido, sou novato em vba access e empaco em questões provavelmente óbvias aos mestres.

    a questão é:

    como posso colocar em uma caixa de texto os valores gerados por um loop, separados por virgulas e "e" entre o penúltimo e ultimo valor.

    eu fiz colocando: CaixadeTexto = CaixadeTexto & Valor & ", "

    mas o resultado fica assim: 1, 2, 3, 4,

    quando gostaria que ficasse: 1, 2, 3 e 4
    para uma apresentação mais agradável.

    poderiam me ajudar? sei que é uma dúvida primária, mas como disse sou extremamente leigo em access.

    grato a todos!

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  DamascenoJr. 25/9/2021, 15:31

    Mostre o código completo.


    .................................................................................
    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.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/03/2012

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  geremias 25/9/2021, 18:02

    Boa tarde DamascenoJr!

    eu fiz assim:

    Código:
    Me.Txt1 = ""

    For y = i To Len(Me.TxtNum)

    Me.Txt1 = Me.Txt1 & y & ", "

    Next y

    ai fica na Txt1 1, 2, 3, 4,

    gostaria de um jeito de deixar a Txt1 = 1, 2, 3 e 4.

    grato,

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  DamascenoJr. 25/9/2021, 19:25

    Bom, se o seu código for este e está funcionando, então o código abaixo fará da maneira pretendida

    Código:
    Me.Txt1 = ""

    For y = i To Len(Me.TxtNum)

        If y = i Then
            Me.Txt1 = y
        ElseIf Len(Me.TxtNum) = y Then
            Me.Txt1 = Me.Txt1 & " e " & y
        Else
            Me.Txt1 = Me.Txt1 & ", " & y
        End If

    Next y


    .................................................................................
    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.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/03/2012

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  geremias 26/9/2021, 14:29

    Bom dia DamascenoJr!

    agradeço pela ajuda!

    na verdade eu cometi um erro no código que enviei. Onde coloquei "i" na verdade é "1".

    e também me expressei mal ao formular a questão.
    o que ocorre é que eu tenho em uma caixa de texto "TxtNum" os valores gerados aleatoriamente por um loop.
    Então no Txtnum ficaria por exemplo o valor "1234141820"

    na "Txt1" eu precisaria que ficasse separado esses valores por "," e entre o penúltimo e o ultimo aparecesse o "e",
    ficando assim na Txt1 "1, 2, 3, 4, 14, 18 e 20"

    com o seu exemplo eu consegui chegar perto disso com o código abaixo, mas ocorre que ele esta separando digito por digito, aí fica errado quando tenho um valor de dois dígitos ou mais, ficando assim: "1, 2, 3, 4, 1, 4, 1, 8, 2, e 0"

    Como eu poderia resolver isso?

    segue como fiz:

    Código:

    me.txt1=""

    For y = 1 To Len(Me.TxtNum)

        If y = 1 Then
            Me.Txt1 = Mid(Me.TxtNum, y, 1)
        ElseIf Len(Me.TxtNum) = y Then
            Me.Txt1 = Me.Txt1 & " e " & Mid(Me.TxtNum, y, 1)
        Else
            Me.Txt1 = Me.Txt1 & ", " & Mid(Me.TxtNum, y, 1)
        End If

    Next y

    agradeço desde já por qualquer ajuda!

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  DamascenoJr. 26/9/2021, 15:16

    Infelizmente não sei como ajudá-lo, pois tudo começa a degringolar quando o código tem que adivinhar.

    Veja sua sequência: "1234141820"

    A maneira que você quer é: 1, 2, 3, 4, 14, 18 e 20.
    O que impede de ser: 12, 34, 141 e 820?


    .................................................................................
    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.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/03/2012

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  geremias 26/9/2021, 20:55

    Boa tarde DamascenoJr!

    então, o que impede de ser os valores da forma como especificou é que esses valores são gerados randomicamente entre 1 e 99 e armazenados na caixa de texto me.TxtNum. como eu disse eu tentei armazená-los já separados por virgula na geração dos números, mas não consegui.
    pois fica, como falei, da seguinte forma: (1,3,5,21,34,2,17,) quando gostaria que ficasse : (1,3,5,21,34,2 e 17).

    Código:
    Let me.TxtNum = ""

    For i = 1 To 10

    Me.TxtNum = Me.TxtNum & Int((99 * Rnd) + 1) & ","

    Next i

    por isso estava tentando, fazer outro loop, para ler o que foi armazenado e manipular para ficar como eu gostaria na caixa de texto Me.Txt1.

    sei que o correto seria fazer isso na geração dos numeros, mas não consegui, e também não consegui com a ajuda que deu. quase deu certo aqui, mas esbarrei nessa situação de que ele separa a cadeia digito por dígito, mesmo quando for dezenas.

    mas valeu pela ajuda até aqui.

    lhe agradeço muito.

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  DamascenoJr. 26/9/2021, 21:11

    Mais detalhes, mais trecho de código, mais fácil entender e ajudar. Smile

    Código:
    bytQuantosNumerosGerar = 10
    Let me.TxtNum = ""

    For i = 1 To bytQuantosNumerosGerar

        'se é o primeiro
        If i = 1 Then
            me.TxtNum = Int((99 * Rnd) + 1)
        'se é o último
        ElseIf i = bytQuantosNumerosGerar Then
            me.TxtNum = me.TxtNum & " e " & Int((99 * Rnd) + 1)
        'se não é nenhuma das situações anteriores
        Else
            me.TxtNum = me.TxtNum & ", " & Int((99 * Rnd) + 1)
        End If

    Next i


    .................................................................................
    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.
    avatar
    geremias
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 14/03/2012

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  geremias 28/9/2021, 17:36

    Boa tarde DamascenoJr

    Agradeço por demais a ajuda e a paciência!

    Funcionou direitinho.

    vamos ver onde vou empacar agora, kkkk.

    fique com Deus!

    Gerson.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3130
    Registrado : 22/11/2016

    [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final. Empty Re: [Resolvido]Separar valores de uma caixa de texto com virgulas e "e" no final.

    Mensagem  DamascenoJr. 29/9/2021, 01:42

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    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.

      Data/hora atual: 16/10/2021, 21:43