hola solamente saber una rutina para capturar errores inesperados en tiempo de uso de cualquier formulario
gracias
...
| ||||
podes usar el On local error resume next. y luego creas un archivo para guardar todos lo errores. y para ver los errores seria asi if err <> 0 then ' tus linas para el archivo. end if nos vesmos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
| |||
hey gracias pero necesito un codigo mas completo gracias por la ayuda pero todavia queda un poco negra la situacion, talves podes enviarme un codigo mas completo o la mitad para tomas ejemplo gracias te lo agradezco mucho |
| ||||
aqui hay un ejemplo
Código:
espero te sirva el ejemplo..Private Sub CmdGuardar_Click() On Local Error Resume Next Set Cxn = New Connection Dim Lectura As String Dim FechaR As String Dim FechaIn As String Dim FechaEg As String Me.FrGuardar.Visible = True Me.LblInformacion.Caption = "Conectando.." FechaR = Format$(DTFechaRecibo.Value, "yyyy/MM/dd") FechaIn = Format$(DTIngreso.Value, "yyyy/MM/dd") FechaEg = Format$(DTEgreso.Value, "yyyy/MM/dd") Cxn.Open CxnFac If Err <> 0 Then MsgBox "Ha ocurrido un error en la conexión el programa intentara de nuevo ", vbExclamation, "Error" Cxn.Close Call CmdGuardar_Click End If Me.LblInformacion.Caption = "Guardando.." Lectura = "INSERT INTO anticipos values(" & Val(TxtNoRecibo.Text) & ", '" & FechaR & "','" & TxtNombreCliente.Text & "'," & Val(OptTotal.Value) & "," & Val(TxtHabitaciones.Text) & ",'" & FechaIn & "','" & FechaEg & "'," & Val(ChkCheque.Value) & "," & Val(ChkTC.Value) & "," & Val(ChkEfectivo.Value) & "," & Val(TxtQuetzalez.Text) & ",'" & TxtReceptor.Text & "','" & TxtObservaciones.Text & "','0','');" Cxn.Execute Lectura If Err <> 0 Then MsgBox "Ha habido un error al guardar los datos, el programa seguira intentando guardarlos ", vbInformation, "Error" Cxn.Close Call CmdGuardar_Click End If Me.FrGuardar.Visible = False MsgBox "Los datos se han guardado satisfactoriamente", vbInformation, "Guardado" End Sub nos vemos..
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |