[Resolvido]Contar valores;

Boas
tenho uma duvida fácil para vocês,
tenho uma caixa de texto [CAIXA1] com os seguintes valores,

15489654; 02584568; 15487; 2564125;

é possível em outra caixa de texto [CAIXA2] apresentar o total de valores da [CAIXA1]
neste caso Total =4

Boa noite, dteixa
Ainda gostava de saber como sabe que é fácil para outros e não sabe como resolver!
Utilize esta função que lhe criei
Function ContaCaracter(Texto As String, Caracter As String) As Integer
' 'criada por Alexandre Neves www.esnips.com\web\alexandreneves
' 'em 2012-11-20
' 'para dteixa
' 'do fórum MaximoAccess
ContaCaracter = 0
Do Until Texto = ""
If Mid(Texto, 1, 1) = Caracter Then ContaCaracter = ContaCaracter + 1
Texto = Mid(Texto, 2)
Loop
End Function

No escopo do vba do formulário:

Código:

Private Function N() As Integer
    Dim V As Variant
    V = Split(Me.NomeDoCampo, ";")
    N = UBound(V) + 1
End Function

Na origem do campo:

= N()

Acredito que seja isso que está precisando.

Excusas Alexandre, não vi que tinhas respondido

Agradeço aos dois, Alexandre e Criquio
resolvi assim de um outro exemplo que tirei aqui do fórum mas não sei quem o autor

Private Sub Texto19_AfterUpdate()
Dim I As Integer, N As Integer

I = 1

Do While I < Len(Me.CAIXA1)
If Mid(Me.CAIXA1, I, 1) = ";" Then
N = N + 1
End If
I = I + 1
Loop

Me.CAIXA2 = N + 1
End Sub

Acredito que esse exemplo tambem foi postado por mim. Ele é praticamente igual ao que o colega Alexandre postou. Agora, não sei se o colega Alexandre irá concordar comigo, mas acho a primeira forma que postei aqui mais rápida, pois essa que você está usando tem que passar caractere por caractere para fazer a contagem, enquanto a primeira, que utiliza o Split, não precisa contar caractere a caractere.

CRIQUI Obrigado,
tem dois problemas
1ºos valores do campo vou introduzir via seleção de uma caixa de listagem.
2º o resultado, eu quero armazenar na tabela.

Para obter os resultados, basta utilizar o índice da função Split. Quando dividimos, as partes são identificadas numericamente, começando do zero. Portanto, se você tem quatro campos e quer jogar cada parte em um, basta utilizar o índice dessas partes:

Me.NomeCampo1 = N(0)
Me.NomeCampo2 = N(1)
Me.NomeCampo3 = N(2)
Me.NomeCampo4 = N(3)

O LBound captura a parte cujo número seja o menor. Nesse caso, equivalente ao N(0). Portanto, tanto faz colocar N(0) quanto N(LBound(N)). A mesma coisa acontece com a parte cujo índice seja o de maior valor, nesse caso, utilizando UBound. Quando não sabemos exatamente quantas partes uma determinada matriz contem, utilizamos o UBound para identificar a maior parte. Assim, poderemos obter todas as partes fazendo um Loop pela matriz ou utilizando um For...Next.

Colegas,

achei que podia responder aqui, pois achei este tópico que me foi muito útil e gostaria de tirar algumas dúvidas com vocês.

No meu bd tenho um campo chamado QUART_CONCL que apresentará sequencias similares a: 12;1;104;10. Neste campo só se aceita ";" e números.
Em outro campo chamado QUART_CONCL_T necessito contar os itens da sequencia digitada no campo QUART_CONCL.

Utilizei algumas sugestões de vocês e criei:

Código:


Private Sub QUART_CONCL_AfterUpdate()
Dim I As Integer, N As Integer

If IsNull(Me.QUART_CONCL) Or Me.QUART_CONCL.Value = 0 Then
    Me.QUART_CONCL_T = "0"
Else
I = 1
Do While I < Len(Me.QUART_CONCL)
If Mid(Me.QUART_CONCL, I, 1) = ";" Then
N = N + 1
End If
I = I + 1
Loop

Me.QUART_CONCL_T = N + 1

End If

End Sub


Entretanto, ao digitar apenas o caracter ;, a funçaõ também o conta como um item sequencial, ou seja, se eu digitar ;;; ela contará três itens. assim também se utilizar o Split.

Onde posso restringir isto?

Obrigado!