|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Miscelâneas)
|
|
 |
Título da Dica: Verifica se os campos obrigatórios do form estão preenchidos
|
 |
|
|
|
Postada em 31/12/2003 por Brexuega
'*******************************************************
' CheckObjectStatus
' Verifica se os campos obrigatórios do form estão
' preenchidos
' para defenir campo obrigatório basta preencher a
' propriedade Tag dos objectos de seu form.
' esse preenchimento de ve ser feito com o nome do campo
' ex: TextBox-> Name| txtNome
' Tag | Nome
' assim a mensagem que é apresentada aparece
' Campo Nome Não Preenchido.
'*******************************************************
Public Sub CheckObjectStatus(ByVal Frm As Form)
Dim ctrl As Control
On Error Resume Next
For Each ctrl In Frm.Controls
If ctrl.Tag <> "" Then
If ctrl.Text = "" Then
MsgBox "Campo " & ctrl.Tag & " Não Preenchido.", vbOKOnly + vbInformation, "Campo Obrigatório."
ctrl.SetFocus
Exit Sub
End If
End If
Next
End Sub
----------------------------------------------------------------------
¥ ADS
|
|
|
|
|
