** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - CERRAR SESIONES DE USUARIOS
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

CERRAR SESIONES DE USUARIOS

 Responder Responder
Autor
Mensaje
ARTUROML Ver desplegable
Nuevo
Nuevo


Unido: 02/Junio/2024
Localización: Monterrey Mexic
Estado: Sin conexión
Puntos: 1
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita ARTUROML Cita  ResponderRespuesta Enlace directo a este mensaje Tema: CERRAR SESIONES DE USUARIOS
    Enviado: 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
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 14428
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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.

Access Aplicaciones
Tecsys.es
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4856
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita javier.mil Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 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



Editado por javier.mil - 03/Junio/2024 a las 22:41
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable