Ver Mensaje Individual
  #3 (permalink)  
Antiguo 03/11/2015, 08:52
Acuna
 
Fecha de Ingreso: noviembre-2015
Ubicación: mexico
Mensajes: 8
Antigüedad: 9 años, 3 meses
Puntos: 0
Respuesta: Impedir dejar campos de TextBox en blanco

Estos son los codigos , te copie los de los botones, agregar, modificar, buscar y Eliminar.

Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click
'Se agrega ecepcion cuando esta el campo del Nombre en Blanco en la forma de ingreso de Usuarios
If IsNothing(TxtNombre.Text) Then
'Continue
Else
Form3.SigmatronTableAdapter.Insertar(TxtNombre.Tex t, TxtDepartemento.Text, TxtDireccion.Text, TxtFicha.Text, TxtFecha.Text, TxtUsuario.Text, TxtContraseña.Text, TxtWindows.Text, TxtEmail.Text, TxtAutoriza.Text, TxtLevanto.Text)
Form3.SigmatronTableAdapter.Fill(Form3.SigmatronDa taSet.Sigmatron)
End If
End Sub


Private Sub BtnModificar_Click(sender As Object, e As EventArgs) Handles BtnModificar.Click
Form3.SigmatronTableAdapter.Modificar(TxtNombre.Te xt, TxtDepartemento.Text, TxtDireccion.Text, TxtFicha.Text, TxtFecha.Text, TxtUsuario.Text, TxtContraseña.Text, TxtWindows.Text, TxtEmail.Text, TxtAutoriza.Text, TxtLevanto.Text, TxtNombre.Text)
Form3.SigmatronTableAdapter.Fill(Form3.SigmatronDa taSet.Sigmatron)

End Sub

Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
Form3.SigmatronTableAdapter.Eliminar(TxtNombre.Tex t)
Form3.SigmatronTableAdapter.Fill(Form3.SigmatronDa taSet.Sigmatron)
End Sub

Private Sub BtnBuscar_Click(sender As Object, e As EventArgs) Handles BtnBuscar.Click
Form3.SigmatronTableAdapter.FillBy(Form3.Sigmatron DataSet.Sigmatron, TxtNombre.Text)
End Sub