[Resolvido]Contar Caractere específico em um campo

Boa tarde, como faço para contar um caractere específico dentro de um campo, por exemplo, o campo, lavada, contem um texto assim: " Puido, lixado, amaciado, passado" , eu preciso contar o número de processos utilizados, neste caso 4 , portanto o número de processos vai ser sempre o número de vírgulas +1 .

Se alguém puder me ajudar com uma função em vba para access.

Obrigado

Talvez assim:

Dim varNum As Variant, I As Integer

varNum = Split(Me.SeuCampoADividir, ",")

    For I = 0 To UBound(varNum)
        Me.SeuCampoTotal = varNum(I)
    Next I

Sr. Criqio, entendi o que o procedimento faz, porém no campo total não retornou o número de processos:

Private Sub LAVADA_AfterUpdate()

Dim varNum As Variant, I As Integer

varNum = Split(Me.LAVADA, ",")

For I = 0 To UBound(varNum)
Me.TEMPO_LAVADA = varNum(I) '=> apresenta um erro de que o campo não aceita o tipo de resultado
Next I

End Sub

No campo TEMpo_lavada eu preciso que apareça o nº de processos, tipo 1 , 2 3 ou 4 ...
Fico no aguardo.

Obrigado.

Quem sabe assim:


Option Compare Database

Function ContaString(TextoBase$, StringAcha$) As Long
ContaString = 0
If StringAcha = "" Then
MsgBox "Erro: Contador de Strings igual a nulo...", vbCritical, "Erro"
Exit Function
End If
Dim Posição&
Posição = 1
Do While True
If InStr(Posição, TextoBase, StringAcha) > 0 Then
ContaString = ContaString + 1
Posição = InStr(Posição, TextoBase, StringAcha) + Len(StringAcha)
Else
Exit Do
End If
Loop
End Function






Private SeuBotão_Click()
Dim texto$
texto = "Puido, lixado, amaciado, passado"
MsgBox ContaString(texto, ",") + 1
End Sub

Podes substituir o texto por uma caixa texto...

Problema resolvido pelo Harysohn , utilizei a Function e funcionou 100 % . Obrigado.

http://dl.dropbox.com/u/26441349/ContaString.rar

Saudações

O Fórum agradece o retorno.

Provavelmente seu campo esteja formatado com algum formato ou tenha ficado algo faltando, pois esse esquema é simples e eu até o tenho aqui em vários projetos funcionando direitinho.

Amigo Criquio.. testei aqui... com o texto
Presente, Passado, Futuro

No campo total me devolveu a palavra futuro... Errei em algo?

Private Sub Comando7_Click()
Dim varNum As Variant, I As Integer
varNum = Split(Me.Campo1, ",")
For I = 0 To UBound(varNum)
Me.Campo2 = varNum(I)
Next I
End Sub

Tambem pode ser feito assim:

Dim I As Integer, N As Integer
I = 1
Do While I < Len(Me.NomeDoCampoADividir)
If Mid(Me.NomeDoCampoADividir, I, 1) = "," Then
N = N + 1
End If
I = I + 1
Loop
Me.NomeDoCampoDoTotal = N + 1

Consegui assim com a expressão primeira Amigão:


Private Sub Comando7_Click()
Dim varNum As Variant, I As Integer
varNum = Split(Me.Campo1, ",")
For I = 0 To UBound(varNum)
'Me.Campo2 = varNum(I)
Next I
Me.Campo2 = I
End Sub

A expressão em azul vai retornando palavra a palavra a cada loop

Mais simples e mais funcional este código Amigão...

Seguimos aprendendo cada dia mais.. Graças a mestres como você..

Obrigado

Aqui um pequeno exemplo com os dois modelos com uma pequena alteração no código:

http://dl.dropbox.com/u/5454503/ContarPalavras.mdb