Função mostra msg

[Technoghost 0]

Bem fiz uma função mto útil para validação de formulários de cadastro e tal....Na função eu uso uma outra função chamada CPF_Valido que valida CPF..Usem uma que voces tenham ou removam ela da função sei lá...Está ai:'Mostra msg de erro se um campo tipo texto(com prefixo txt no name) ou combo (prefixo cbo no name) nao estiver preenchido'Retornando True se alguma msg de erro foi exibida e false caso nao.'Obs: O campo tag está o nome do campo que é usado para mostrar a mensagem de erro'com o nome do campo correto, por isso se a propriedade tag nao estiver preenchida'significa que nao deve ser considerado obrigatório o preenchimento.Public Function MostraMsgErro(frm As Form) As Boolean Dim ctrl As Control Dim strPrefix As String Dim Fl_Retorno As Boolean Fl_Retorno = False For Each ctrl In frm.Controls strPrefix = Mid(ctrl.Name, 1, 3) If (strPrefix = "txt" Or strPrefix = "cbo") Then If AllTrimLen(ctrl.Text) = 0 And AllTrimLen(ctrl.Tag) > 0 Then MsgBox "Campo " & ctrl.Tag & " não preenchido.", vbExclamation ctrl.SetFocus Fl_Retorno = True MostraMsgErro = Fl_Retorno Exit Function ElseIf ctrl.Tag = "CPF" Then If Not CPF_Valido(ctrl.Text) Then MsgBox "CPF inválido.", vbExclamation ctrl.SetFocus Fl_Retorno = True MostraMsgErro = Fl_Retorno Exit Function End If End If End If Next MostraMsgErro = Fl_RetornoEnd Function'-----<Para a função verificar os campos corretamente você deve colocar os campos de traz pra frente.. ou seja primeiro o último campo a ser preenchido até o primeiro, pois o For começa do ultimo pro primeiro....senão ela vai começar validando o último campo q você colocou.Se tiverem sugestões para melhorar a função eu agradeço!Espero ter ajudado!

[cassitos 2]

é isso ae cara! muito bacana!

 

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Technoghost 0]

Vlw.. po curti sua assinatura... é a pura verdade