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

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.

Mostre o código completo.

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.

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

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.

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?

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.

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

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

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.

O fórum agradece o retorno. Sucesso.