bueno esto es algo que se viene a la mente... muy probablemente alguien se detenga a darle una pensada mas lenta... pero es una solucion que te doy
Código:
Private Sub GrabarVientos()
With TVIENTO
.AddNew
If Trim(Archivo.ObservacionDeLaVeleta8Hs) <> "" Then
.Fields!Veleta8.Value = Archivo.ObservacionDeLaVeleta8Hs
Else
.Fields!Veleta8.Value = Null
End If
If Trim(Archivo.ObservacionDeLaVeleta14Hs) <> "" Then
.Fields!Veleta14.Value = Archivo.ObservacionDeLaVeleta14Hs
Else
.Fields!Veleta14.Value = Null
End If
If Trim(Archivo.ObservacionDeLaVeleta20Hs) <> "" Then
.Fields!Veleta20.Value = Archivo.ObservacionDeLaVeleta20Hs
Else
.Fields!Veleta20.Value = Null
End If
.Update
End With
Me.Timer1.Interval = 1000 ' en el siguiente proceso serial el nombre del otro timer
Call GrabarVientos
End Sub
'Agrega un Timer
Private Sub Timer1_Timer()
Call GrabarVientos 'Siguiente Proceso
Timer1.Interval = 0
End Sub
' y con el siguiente otro timer tendrias que hacer un timer para cada
' proceso esto es una idea que se me viene a la mente esperemos a ver como te funciona...
espero te sirva
nos vemos...
