VALIDAR CAMPOS USANDO ERRORPROVIDER.
Bom meus amigo não estou conseguindo Validar meus campos do formulario antes de gravar no banco de dados!
bom criei um metodo assim
Private Sub ValidaCampo()
ErrorProvider1.Clear()
For Each i As Control In Me.Controls
If TypeOf i Is TextBox Then
If i.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(i, [Ô]Campo Obrigátorio![Ô])
i.Focus()
Return
Exit Sub
End If
End If
If TypeOf i Is MaskedTextBox Then
If Not IsNumeric(i.Text) Then
ErrorProvider1.SetError(i, [Ô]Campo Obrigátorio![Ô])
i.Focus()
Return
Exit Sub
End If
End If
If TypeOf i Is ComboBox Then
If i.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(i, [Ô]Selecione o Item![Ô])
i.Focus()
Return
Exit Sub
End If
End If
Next
End Sub
OBS: não sei se tem a ver dos campos (textbox,maskedtextbox,combobox) estarem sobre groupbox[ô]s, eu chamo o metodo no botao gravar assim ValidaCampo()
bom criei um metodo assim
Private Sub ValidaCampo()
ErrorProvider1.Clear()
For Each i As Control In Me.Controls
If TypeOf i Is TextBox Then
If i.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(i, [Ô]Campo Obrigátorio![Ô])
i.Focus()
Return
Exit Sub
End If
End If
If TypeOf i Is MaskedTextBox Then
If Not IsNumeric(i.Text) Then
ErrorProvider1.SetError(i, [Ô]Campo Obrigátorio![Ô])
i.Focus()
Return
Exit Sub
End If
End If
If TypeOf i Is ComboBox Then
If i.Text.Trim.Equals([Ô][Ô]) Then
ErrorProvider1.SetError(i, [Ô]Selecione o Item![Ô])
i.Focus()
Return
Exit Sub
End If
End If
Next
End Sub
OBS: não sei se tem a ver dos campos (textbox,maskedtextbox,combobox) estarem sobre groupbox[ô]s, eu chamo o metodo no botao gravar assim ValidaCampo()
Uma parte você [Ô]matou[Ô]. Sim, tem á ver com o fato de que os GroupBoxes é que estão na coleção Controls do Form, e em cada um deles, a coleção Controls é quem contém, provavelmente, seus controles de entrada de dados.
Mas ainda que corrija esse lapso, veja ainda, como uma sub, s ValidaCampo não possui retorno, e assim, você deve se certificar de que as entradas todas são válidas antes de efetivamente salvar na base de dados.
Mas ainda que corrija esse lapso, veja ainda, como uma sub, s ValidaCampo não possui retorno, e assim, você deve se certificar de que as entradas todas são válidas antes de efetivamente salvar na base de dados.
Faça seu login para responder