Actualizacion de formularios automáticos


Martes, 31 de Enero de 2012


En este ejemplo de actualizacion de formularios lo que haremos cera lo siguiente, en un formulario basado en una tabla introduciremos 1 registro en la tabla y ese a su vez aunque la tabla este abierta por otro usuario o el mismo usuario se mostrara el registro añadido en el formulario

Primero agregamos el registro ala tabla, después de 10segundos se visualiza en el formulario.

'evento al cargar el formulario
Private Sub Form_Load()
Me.TimerInterval = 10000
End Sub


'evento al terminar el intervalo declarado al cargar el formulario
Private Sub Form_Timer()
Dim tiempo As Long

tiempo = Me.Id
DoCmd.Echo False
Me.Requery

Me.Id.SetFocus
DoCmd.FindRecord tiempo
DoCmd.Echo True
End Sub


No hay comentarios:

Publicar un comentario