USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página