[Resolvido]Contar TextBox preenchidos

Preciso contar alguns textbox preenchidos e que possuam determinado nome.

Tenho 12 textbox com os nomes de txtCod1, txtCod2 até o txtCod12.

Preciso saber quantos destes textbox estão preenchidos.


Pesquisando no fórum encontrei um código do JPaulo, porém o mesmo conta todos os textbox do formulário.
Preciso fazer referência a apenas os que tenham os nomes que citei acima.

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim t As Integer
Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Not IsNull(ctrl.Value) Then
t = t + 1
End If
End If
Next ctrl
MsgBox "Existem " & IIf(t = 1, "", "") & t & " Campos Preenchidos" & IIf(t = 1, "", "") & " neste formulário."
End Sub

Amigão, repare no código:

For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Not IsNull(ctrl.Value) Then

Se não estiver vazio....

Vieira, no meu formulário existem quase 100 textbox.

Preciso contar apenas os que tem o nome de "txtCod1, txtCod2 ... txtCod12"

Preciso contar os textbox que estiverem preenchidos, destes 12.

Grato

O Código do Mestre JPaulo, faz isso pois ignora os Nulos, ou seja os que não estão preenchidos.Ah, já entendi, você tem 100, mas só 12 é que tem que ser contados.

Tente fazer isso com uma instrução select case

Perdoe minha ignorância... Como poderia fazer a contagem dos textbox com o select case?

Abraços

Tente assim:

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim t As Integer
Dim ctrl As Control

For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Not IsNull(ctrl.Value) And Left(ctrl.Name, 6) = "txtCod" Then
t = t + 1
End If
End If
Next ctrl
MsgBox "Existem " & IIf(t = 1, "", "") & t & " Campos Preenchidos" & IIf(t = 1, "", "") & " neste formulário."
End Sub

Outra opção

Dim t As byte
Dim j as byte
t=0
For j = 1 to 12
If len(me("txtCod" & j) & "")>0 then t = t + 1
Next
if t = 1 then
MsgBox "Existe " & t & " campo preenchido neste formulário."
elseif t=0
MsgBox "Nenhum campo preenchido neste formulário."
else
MsgBox "Existem " & t & " campos preenchidos neste formulário."
end if
End Sub

Grato pelas respostas amigos.

Criquio, o código que vc passou funciona, mas duplica o numero de textbox preenchidas, ou seja, se eu tiver duas preenchidas ela retorna 4.

Avelino, o código funcionou perfeitamente, bastou acrescentar "Then" depois de "elseif t=0"

Grato a todos