[Resolvido]Substituir última vírgula

Buenas,

em um Formulário, tenho um campo tipo Memorando com valores (texto) separados por vírgula. Ex:

CampoMemo = "Maria, José, Tiago, Marcos, Amanda"

Eu gostaria de substituir somente a última vírgula pela a letra "e".

Já me quebrei pesquisando nos fóruns e não consegui.

Olá

Não compreendi bem seu objetivo.

Pretende substituir qual das vírgulas?

Tipo

Joao, Maria, Mario e

Tipo isso ?

Mas vc diz ter um campo tipo memorando aue contém textos separados por vírgulas correto?
Mas qual a origem desses textos?
Como são inseridos nesse campo ?


Explique melhor por favor

Aguardo

Pretendo substituir somente a última vírgula.

A origem do CampoMemo é outro campo de valores múltiplos.

O CampoMemo é alimentado após a atualização de outro campo. Acredito que assim fica melhor para tratar os dados.

Queria dar um Replace para que em vez de:

Maria, João, Pedro, Tiago

Ficasse:

Maria, João, Pedro e Tiago

Olá



Mas estamos falando de quantos nomes nesse campo memorando ? Sempre será somente 4 nomes ?

Ou terá mais que 4 nomes as vezes ?

Olá a todos,
Pode usar o instrrev para encontrar a última vírgula.
Depois será montar com o right e left.
Estou no tablet.
Se não conseguir amanhã monto exemplo.
Abraço

Olá a todos
Luiz Tiago, teste assim, pode ser num botão de comando:

Código:

'Álvaro Teixeira (ahteixeira) 2017 para MaximoAccess
Dim tmpStr As String, i As Integer

If Not IsNull([CampoMemo]) Then
   
    tmpStr = [CampoMemo]
    i = InStrRev(tmpStr, ",")
   
    If i > 0 Then
        MsgBox Left(tmpStr, i - 1) & " e" & Right(tmpStr, Len(tmpStr) - i)
    End If
End If

Abraço

Álvaro Teixeira,

funcionou perfeitamente.

Muito obrigado.

Olá Luiz Tiago,
Obrigado pelo retorno.
Os utilizadores do forum agradecem.
Abraço