error 380
Como tratar el error 380. que es lo que hace y que es lo que trata. donde puedo encontrar documentacion?
Es un error interceptable, esto es puedes capturarlo con una sentencia On Error. Este error se produce cuando le asignas a una propiedad de un control un valor no permitido, bien porque no es el tipo de datos correcto, porque el valor está fuera del intervalo permitido...
Para poder responderte mejor serÃa necesario que dieras algún detalle más.
Por otra parte la información sobre la mayorÃa de los errores la encontrarás en la ayuda, bajo el nombre de "Errores Interceptables"
Para poder responderte mejor serÃa necesario que dieras algún detalle más.
Por otra parte la información sobre la mayorÃa de los errores la encontrarás en la ayuda, bajo el nombre de "Errores Interceptables"
SI EL ERROR 380 SE PRODUCE SOLO CUANDO SE INSTALA EL PROGRAMA EN UN EQUIPO DISTINTO AL DEL DESARROLLO, GENERALAMENTE SE DEBE A QUE LOS FORMATOS REGIONALES DE AMBOS EQUIPOS NO SON COMPATIBLES.
lLA SOLUCION ES QUE CUANDO SE ACEPTE POR EJEMPLO LA FECHA DEL SISTEMA, DEBE FORMATEARSE AL ESTILO QUE SE USARA EN EL PROGRAMA POR EJEMPLO " DD/MM/YYYY"
lLA SOLUCION ES QUE CUANDO SE ACEPTE POR EJEMPLO LA FECHA DEL SISTEMA, DEBE FORMATEARSE AL ESTILO QUE SE USARA EN EL PROGRAMA POR EJEMPLO " DD/MM/YYYY"
Para tratar este error podrÃas hacer algo como:
If Err.Number = 380 Then
MsgBox "Ha ocurrido un error en la aplicación. El proceso se detendrá" _
& vbCrLf & vbCrLf & "Descripción del Error: " & Err.Description & _
vbCrLf & "Número del Error: " & Err.Number & vbCrLf , vbExclamation
' Añadimos el error al fichero de errores.
filenum = FreeFile
fichero = "C:windwserrores.txt"
Open fichero For Append As filenum
Print #filenum, "Error: " & Err.Number & " en CargaRecorrido. Mensaje: " & Err.Description
Close #filenum
End If
Err.Clear
Err = 0
If Err.Number = 380 Then
MsgBox "Ha ocurrido un error en la aplicación. El proceso se detendrá" _
& vbCrLf & vbCrLf & "Descripción del Error: " & Err.Description & _
vbCrLf & "Número del Error: " & Err.Number & vbCrLf , vbExclamation
' Añadimos el error al fichero de errores.
filenum = FreeFile
fichero = "C:windwserrores.txt"
Open fichero For Append As filenum
Print #filenum, "Error: " & Err.Number & " en CargaRecorrido. Mensaje: " & Err.Description
Close #filenum
End If
Err.Clear
Err = 0
