
03/11/2015, 08:52
|
| | 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 |