CODIGOS VITALES
-
Upload
juan-manuel-castro -
Category
Documents
-
view
215 -
download
2
description
Transcript of CODIGOS VITALES
Dim mensaje As MsgBoxResult
mensaje = MsgBox("Desea borrar el registro de bautismo actual", vbOKCancel, "alerta") If mensaje = vbOK Then
FIEL.Show() me.Show()
'TRY PARA BUSCAR EN EL FORMULARIO Y RESTAURAR LUEGO DE UN BORRADO EL TEXT Y EL BOTÓN '=================================================================== '===================================================================
Try 'MANDA A HACER LA BÚSQUEDA EN EL FORMULARIO DE BAUTISMO Y CAMBIA EL TEXTO, ASÍ CUANDO REGRESE AL FORMULARIO, EL TEXTO HABRÁ CAMBIADO '==========================================================
'USAREMOS UN EVENTO EN EL FIELTABLEADAPTER PARA BUSCAR POR NOMBRE ' EL EVENTO FIEL BUSCARPORNOMBRE HA SIDO CREADO
'QUE EN BASE AL NOMBRE QUE ESTAMOS A PUNTO DE BORRAR VERIFIQUE EN EL TABLEADAPTER DEL FIEL PARA QUE REFRESQUE LOS DATOS DEL FIEL FIEL.FIELESTableAdapter.BUSCARPORNOMBRE(FIEL.SacrosystemDataSet1.FIELES, BfielnombreTextBox.Text) FIEL.FIELESTableAdapter.Fill(FIEL.SacrosystemDataSet1.FIELES)
'LUEGO SI EL FIEL ES IDÉNTICO AL QUE VAMOS A BORRAR ENTONCES QUE ANTES DE BORRAR CAMBIE LOS BOTONES Y EL TEXT
'SI LO ENCUENTRA ENTONCES QUE DESHABILITA EL BOTÓN Y COLOCA UN SÍ EN EL TEXTBOX If FIEL.BfielnombreTextBox.Text = BfielnombreTextBox.Text Then FIEL.combau.Enabled = True FIEL.FBAUTISMOTextBox.Text = "FALTA" Else 'SI NO LO ENCUENTRA ENTONCES EL BOTÓN SE HABILITA Y EL TEXTO CAMBIA A "SÍ" If FIEL.BfielnombreTextBox.Text = BfielnombreTextBox.Text Then FIEL.combau.Enabled = False FIEL.FBAUTISMOTextBox.Text = "SÍ" End If End If
'SI EL TEXBOX ES IGUAL A FALTA EL BOTÓN SE HABILITA If FIEL.FBAUTISMOTextBox.Text = "FALTA" Or FIEL.FBAUTISMOTextBox.Text = "Falta" Or FIEL.FBAUTISMOTextBox.Text = "falta" Then FIEL.combau.Enabled = True End If
Catch ex As Exception MsgBox("DATO NO ENCONTRADO") BidTextBox.Focus()
End Try '===================================================================================== '====================================================================================FIN
'AL FINAL BORRARÁ TODO
Me.BAUTISMOTableAdapter.BORRABAUT(BidTextBox.Text) MsgBox("Registro de bautismo borrado") Me.BAUTISMOTableAdapter.Fill(Me.SacrosystemDataSet1.BAUTISMO)
End If