seguridad de base de formularios en access |
Responder |
Autor | |
jhonsan
Nuevo Unido: 08/Octubre/2019 Localización: colombia Estado: Sin conexión Puntos: 5 |
Tema: seguridad de base de formularios en access Enviado: 08/Octubre/2019 a las 20:56 |
buenas tardes
tengo una base de datos en access con unos formularios, pero quiero asegurarla de que no la copien y se la lleven a otro equipo, he buscado en internet y se que hay codigo para ello, por ejemplo de crear un archivo txt en una ruta y cuando abre access el busca el archivo y si no esta envia un mensaje de error, pero no me ha funcionado alguien me puede ayudar o darme el codigo para realizarlo ya que los que he buscado no me han servido o no se si es que los estoy colocando mal gracias por suayuda
|
|
jhonsan
|
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
Enviado: 08/Octubre/2019 a las 22:46 |
Pásate por aquí hay algunos sistemas para segurar tu Base Mirate especialmente la DEMO 31 y la DEMO 33 |
|
jhonsan
Nuevo Unido: 08/Octubre/2019 Localización: colombia Estado: Sin conexión Puntos: 5 |
Enviado: 08/Octubre/2019 a las 23:57 |
gracias javier.mil por la respuesta estoy mirando el código pero no me funciona no se si sea porque estoy con access 2016
gracias
|
|
jhonsan
|
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
Enviado: 09/Octubre/2019 a las 19:55 |
Que es lo que No funciona ? En principio la versión de Access No debería afectar.......
|
|
jhonsan
Nuevo Unido: 08/Octubre/2019 Localización: colombia Estado: Sin conexión Puntos: 5 |
Enviado: 10/Octubre/2019 a las 16:26 |
este es el codigo y lo coloque en al cerrar el formulario
Private Sub Form_Close() Const cNumDisco As String = "RC250A1T0HS" Dim bFlag As Boolean If funNDFaplicacion = cNumDisco Then bFlag = True If bFlag = False Then MsgBox "PERMISO DENEGADO EN ESTE PC." & vbNewLine _ & "El programa ha sido copiado sin permiso del autor." & vbNewLine _ & "Para el uso de las utilidades de este programa," & vbNewLine _ & "contacte con su autor.", vbCritical, "Permiso denegado" Cancel = True DoCmd.Quit Else MsgBox "Acceso permitido,.......", vbInformation, "Correcto" DoCmd.OpenForm "MENU", acNormal End If End Sub otra pregunta la libreria que mencionan no aparece en access debo crearla? y como se hace gracias
|
|
jhonsan
|
|
javier.mil
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 10/Agosto/2005 Localización: España Estado: Sin conexión Puntos: 4812 |
Enviado: 11/Octubre/2019 a las 17:06 |
Si cambias el código y lo ubicas en otro evento distinto de como viene en la DEMO es posible que No funcione, pero si lo pones tal cual esta seguro seguro que funciona. La validación es mejor hacerla en formulario de inicio y en el primer evento On Open (Al Abrir). No se a que librería te refieres ,...... pero dentro de la DEMO ya viene una Libreria o Referencia incluida y No deberías crear nada mas |
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |