Access y VBA - CERRAR SESIONES DE USUARIOS

CERRAR SESIONES DE USUARIOS

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86942
Fecha de impresión: 26/Marzo/2026 a las 19:46

Tema: CERRAR SESIONES DE USUARIOS

Publicado por: ARTUROML
Asunto: CERRAR SESIONES DE USUARIOS
Fecha de publicación: 02/Junio/2024 a las 19:28

Hola a todos, hice una aplicación en access la cual será utilizada por varios usuarios de manera remota, sin embargo en determinado momento se tendrán que hacer mejoras o corregir errores, existe alguna manera de temporizar con un mensaje el cierre o cerrar las sesiones de los usuarios de manera remota para poder trabajar en la aplicación, ya que al haber usuarios conectados no permite hacer cambios.

Gracias

-------------
Gracias, Atte AML

Respuestas:

Publicado por: Mihura
Fecha de publicación: 02/Junio/2024 a las 19:57

Hola Arturo, un saludo y bienvenido.

No hay nada implementado en Access que te permita hacer eso, otra cosa es que tú te lo puedas 'fabricar'. Unas ideas de cómo hacerlo:

- un campo en la BD que indique el cierre / prohibición de uso de la misma

- cuándo un usuario ingrese en la aplicación compruebas este campo y si así lo indica 'echas fuera' al usuario, con esto impides que entren / vuelvan a entrar cuando vayas a realizar mantenimiento

- ese mismo campo te servirá para 'echar' a los usuarios que estén dentro:

· un formulario oculto con Timer que esté abierto permanentemente que compruebe ese valor, y cuándo este lo indique, aviso al usuario y a cerrar, o le das un tiempo para que cierre y si no lo hace le cierras automáticamente

Me da la impresión, tal cual describes el proceso, que los usuarios comparten un único front-end (y espero que no sea un único programa con las tablas incluidas). Si esto es así te recomiendo que cada usuario tenga un front-end propio, Access no lleva muy bien que digamos el uso re-entrante (varios usuarios ejecutando el mismo programa).

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es

Publicado por: javier.mil
Fecha de publicación: 03/Junio/2024 a las 22:37

Buenas , tengo una aplicación donde tengo programada la hora de cierre de la aplicación. Esto es sola una idea y a partir de aquí puedes adaptarlo según tus necesidades ...

Option Explicit

Const cCloseTime As String = "19:18:05"       ' << Hora de cierre la aplicacion

Private Sub Form_Load()

      Me.TimerInterval = 1000 ' << 1000 equivale a 1 segundo

End Sub

Private Sub Form_Timer()
      On Error GoTo Exit_Local

      If Time >= CDate(cCloseTime) Then

      DoEvents

            Me.lblMessage.Caption = "This Access database called" & vbNewLine & _
                                    CurrentDb.Name & vbNewLine & _
                                    "is CLOSING NOW for " & vbNewLine & _
                                    "Automatic Administration." & vbNewLine & _
                                    "The time is " & Time()

            MsgBox "This Access database called" & vbNewLine & _
                   CurrentDb.Name & vbNewLine & _
                   "is CLOSING NOW for " & vbNewLine & _
                   "Automatic Administration." & vbNewLine & _
                   "The time is " & Time()

            Application.Quit acQuitSaveAll

      End If

Exit_Local:

End Sub

-------------
https://www.accessdemo.info" rel="nofollow - https://www.accessdemo.info