Error 440
He diseñado una aplicación en VB6. Me ha ocurrió varias veces que cuando ejecuto un procedimiento me arroja "error 440... Error de automatización"... Y se bloquea completamente.
Siempre es en la misma linea de código:
Private Sub Command8_Click()
Check1.Enabled = True
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
(Aqui) If Data1.Recordset.coning = Ingreso Then
Data1.Recordset.Edit
Data1.Recordset.rerips = "L"
Data1.UpdateRecord
End If
Data1.Recordset.MoveNext
Wend
If Text16 <> "" Then
Admision = Text16
End If
Set VAnterior = FRegistros
FRegistros.Hide
FEgreso.Show
End Sub
No se como solucionarlo.
Siempre es en la misma linea de código:
Private Sub Command8_Click()
Check1.Enabled = True
Data1.Recordset.MoveFirst
While Not Data1.Recordset.EOF
(Aqui) If Data1.Recordset.coning = Ingreso Then
Data1.Recordset.Edit
Data1.Recordset.rerips = "L"
Data1.UpdateRecord
End If
Data1.Recordset.MoveNext
Wend
If Text16 <> "" Then
Admision = Text16
End If
Set VAnterior = FRegistros
FRegistros.Hide
FEgreso.Show
End Sub
No se como solucionarlo.
1 Respuesta
Respuesta de denciso
1