problemas con timer

[william_085]

hola, tengo una duda, como le pudo hacer para dejar funcionando un timer durante las 24 hrs los 365 dias del año.

es que por horas hago respaldos de la base de datos y me copia bien 3 dias o 2 dias y ya despues no me copia la base de datos, me la deja de copiar

asi tengo el codigo en el timer

On Error Resume Next
Error 13
If Err.Number Then
'MsgBox "No ha hecho ninguna modificacion", vbExclamation, "Informacion"
End If

Dim Archivo As File
Dim Directorio As Folder
Dim ObjFile As New FileSystemObject
Dim tiempo As String

Label1 = Time

Timer1.Enabled = True

tiempo = Label1

If Combo1 = "" Then
'Timer1.Enabled = True
Else
Timer1.Enabled = True

'aqui se compara que cuando la hora es igual a la que nosotros guardamos se hace la copia
If CDate(tiempo) = Data2.Recordset!respaldo Then
ObjFile.CopyFolder "C:\WINDOWS\Pv Traslados\*", "p:\Pv Traslados\"
DeleteBackup "C:\WINDOWS\pv Traslados\tickets\"
DeleteBackup "C:\WINDOWS\Pv Traslados\Inventarios\"
End If
End If

[posman]

cual es el intervalo del timer?

y como sugerencia, porque no configuras una "tarea programada" dentro de windows para que ejecute algun BAT o un VBS?

[jucavi]

Hola Willian.

- Una alternativa es que uses el programador de tareas.

- Sin revisar muy a fondo el código y asumiendo que el programa no se esta deteniendo, puede ser que el inconveniente este aca:

Código:

If CDate(tiempo) = Data2.Recordset!respaldo Then

intenta con
if cdate(format(tiempo,"hh:mm") ) = cdate(format(Data2.Recordset!respaldo,"hh:mm")) then

Cordial saludo

[william_085]

muchas gracias por sus respuestas.

el timer.interval esta en el load se me olvido ponerlo esta asi:

timer1.interval=1000

jucavi, voy a probar lo que me comentas y los tengo informados a ver que tal.


gracias

[william_085]

me surgio otro problema.

cuando es la primera vez que se van a guardar datos y se crea la base de datos no me copia los respaldos, solo me los copia cuando la base de datos ya existe con sus campos llenos y el programa se vuelve a ejecutar, por que sera?