Estoy desarrollando una aplicación usando access y me gustaría saber cómo puedo hacerlo para que, después de usar 20 veces la aplicación ya no se pudiera usar más.
Una posible solución, muy endeble puede ser usar una macro autoexec que cada vez que arranque incremente una tabla con un único campo y que compruebe que no sea mayor de X (tiempo que quieras), de esta forma tienes controlado la cantidad de usos que quieras ofrecer
Otra solución puede ser proteger la aplicacion para que funcione 10 días distintos a partir de su instalación:
Creamos una tabla "dias" con dos campos: [numdia] de tipo numerico cuyo valor inicial es 0 y [fecha] de tipo date. En el formulario que utilicemos como inicio de nuestra aplicación, en el evento "al abrir" (on load), escribiremos el siguiente código:
Public Sub fcheck_dias()
dim db as database, r as recordset,sql as string dim mensaje as string,titulo as string
sql = "Select * From dias" set db = currentdb() set r = db.openrecordset(sql)
if r.recordcount = 0 then ' Si la primera vez no existe el registro se inserta' r.addnew r![dia] = 1 r![fecha] = date() r.update else if r![dia] >= 10 then 'Se comprueba si se ha utilizado 10 dias la base de datos mensaje = "LA DURACION DE LA DEMO ES DE 10 DIAS" titulo = "Demo" msgbox mensaje,48,titulo docmd.quit 'Cerrar Access else if r![fecha] <> date() then 'Se comprueba si hoy ya se ha utilizado la base de datos r![dia] = r![dia] + 1 r![fecha] = date() r.update end if end if end if End Sub
Ojo, no he probado el código, lo tenía desde tiempos inmemoriales así que no te garantizo que funcione correctamente ahora.
--
saludos
Comentarios
Una posible solución, muy
Una posible solución, muy endeble puede ser usar una macro autoexec que cada vez que arranque incremente una tabla con un único campo y que compruebe que no sea mayor de X (tiempo que quieras), de esta forma tienes controlado la cantidad de usos que quieras ofrecer
salutes
Otra solución puede ser
Otra solución puede ser proteger la aplicacion para que funcione 10 días distintos a partir de su instalación:
Creamos una tabla "dias" con dos campos: [numdia] de tipo numerico cuyo valor inicial es 0 y [fecha] de tipo date. En el formulario que utilicemos como inicio de nuestra aplicación, en el evento "al abrir" (on load), escribiremos el siguiente código:
Public Sub fcheck_dias()dim db as database, r as recordset,sql as stringdim mensaje as string,titulo as stringsql = "Select * From dias"set db = currentdb()set r = db.openrecordset(sql)if r.recordcount = 0 then ' Si la primera vez no existe el registro se inserta'r.addnew
r![dia] = 1r![fecha] = date()r.updateelseif r![dia] >= 10 then 'Se comprueba si se ha utilizado 10 dias la base de datos mensaje = "LA DURACION DE LA DEMO ES DE 10 DIAS"titulo = "Demo"msgbox mensaje,48,titulodocmd.quit 'Cerrar Accesselseif r![fecha] <> date() then 'Se comprueba si hoy ya se ha
utilizado la base de datosr![dia] = r![dia] + 1r![fecha] = date()r.updateend ifend ifend ifEnd SubOjo, no he probado el código, lo tenía desde tiempos inmemoriales así que no te garantizo que funcione correctamente ahora.
--
saludos
cyfuss
Enviar un comentario nuevo