Início![[Resolvidos] Contar Campos Preenchidos Empty](https://2img.net/i/empty.gif)
Assis 24/3/2010, 20:19Num formulário com vários (31) campos.
Como Contar os Campos que estão Preenchidos
Obrigado
Como Contar os Campos que estão Preenchidos
Obrigado
2 participantes
[Resolvidos] Contar Campos Preenchidos
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Olha eu aqui de novo;
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
Private Sub SeuBotão_Click()
'By JPaulo
Maximo AccessDim 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
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvidos] Contar Campos Preenchidos Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Mais uma que fico a dever
Obrigado JPaulo
Obrigado JPaulo
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Tranquilo, abraço.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...