TAG

GABRIEL.LOGAN 12/01/2005 17:53:55
#60357 Resposta escolhida

A rotina a seguir, mostra como validar tipos de dados em controles utilizando a propriedade ‘Tag’.
Public Sub VerificaCampo(Frm as Form)


Dim i as Integer
For i = 0 To Frm.Controls.Count -1

If Frm.Controle(i).Tag = "C" Then

If Len(Trim(Frm.Controle(i).Text)) Then

MsgBox ("Um ou mais campos obrigatórios não é válido")
Frm.Controle(i).SetFocus
Exit Sub

End If
If Frm.Controle(i).Tag = "N" Then

If Not IsNumeric(Frm.Controle(i).Text) Then

MsgBox ("Um ou mais campos numéricos não contém um número válido")
Frm.Controle(i).SetFocus
Exit Sub

End If

End if
If Frm.Controle(i).Tag = "D" Then

If Not IsDate(Frm.Controle(i).Text) Then

MsgBox ("Um ou mais campos que devem conter Data ou Hora não é válido")
Frm.Controle(i).SetFocus
Exit Sub

End If

End If

Next i

End Sub
Exemplo:
Private Sub cmdFechar_Click()


VerificaCampo {Nome do formulário}
End Sub

USUARIO.EXCLUIDOS 12/01/2005 17:55:27
#60359

serve para muito tanto quanto não serve para nada, você pode usar ela por exemplo para armazenar valores ou textos e depois vizualiza - lo ou simplesmente alguma informação sobre o form exemplo
label1.caption = form1.tag

USUARIO.EXCLUIDOS 12/01/2005 17:57:29
#60361

Ok, eu pensava que era algo do tipo, depois que vi o código ai percebi que servia para armazenar um valor ou texto. Obrigado galerinha.