Imprimir página | Cerrar ventana

seguridad de base de formularios en access

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=84746
Fecha de impresión: 27/Marzo/2026 a las 00:23


Tema: seguridad de base de formularios en access
Publicado por: jhonsan
Asunto: seguridad de base de formularios en access
Fecha de publicación: 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


Respuestas:
Publicado por: javier.mil
Fecha de publicación: 08/Octubre/2019 a las 22:46
Pásate por aquí hay algunos sistemas para segurar tu Base
http://www.accessdemo.info" rel="nofollow - http://www.accessdemo.info

Mirate especialmente la DEMO 31 y la DEMO 33




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




Publicado por: jhonsan
Fecha de publicación: 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

Publicado por: javier.mil
Fecha de publicación: 09/Octubre/2019 a las 19:55
Que es lo que No funciona ?
En principio la versión de Access No debería afectar.......


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




Publicado por: jhonsan
Fecha de publicación: 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

Publicado por: javier.mil
Fecha de publicación: 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



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





Imprimir página | Cerrar ventana