Private Sub Command4_Click()
'MARZO 5
'On Error Resume Next
'Se utiliza la línea On Error Resume Next para indicarle a Visual Basic que siga ejecutando
'la forma, aún cuando ocurra un error de ejecución
Call Conectar
rst.Open "SELECT ID,Nombre,Descripcion,Solucion_1 FROM TablaAplicacion WHERE ID Like '%" & _
Text4.Text & "%'", cn, adOpenStatic, adLockOptimistic
If rst.EOF = True Then
Beep
Else
'Do While bool2 = False '////// ESTE ES EL CICLO QUE NO RECONOCE
Do Until bool2 = True
If rst.Fields("ID") = pasar_id Then
'MARZ0 5 MIDIFICADO
'rst.Fields("Nombre") = Combo2.Text
'rst.Fields("Descripcion") = Text5.Text
'rst.Fields("Solucion_1") = Text6.Text
If MsgBox("Se va a eliminar el Registro, ¿Desea continuar?", vbExclamation + vbYesNo, "Eliminacion de Registros") = vbYes Then
rst.Delete
rst.Requery
rst.MoveNext
'PARA EVITAR QUE AL ELIMINAR EL CURSOR DESPLIEGUE EL MISMO REGISTRO ELIMINADO
'A PESAR DE QUE EL RECORDSET YA AVANZO
'CALCULAR EL AVANCE DEL RECORSET
Text3.Text = rst.Fields("ID")
Combo2.Text = rst.Fields("Nombre")
Text5.Text = rst.Fields("Descripcion")
Text6.Text = rst.Fields("Solucion_1")
If rst.EOF Then
rst.MoveLast
End If
MsgBox ("Registro Eliminado con Éxito.")
bool2 = True
Else
rst.MoveNext
End If
Loop
End If
rst.MoveFirst
Call Desconectar
bool2 = False
MSHFlexGrid1.Clear
End Sub