** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Aplicación Funciona Vs Aplicación NO Funciona
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAplicación Funciona Vs Aplicación NO Funciona

 Responder Responder Página  <1234 5>
Autor
Mensaje
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 15/Mayo/2020 a las 15:50
Gracias.
He pensado en intentar trabajar en una versión antigua tipo mdb, mde, y aunque pierda funcionalidades no tengo tantas restricciones de seguridad.
No sé si es una opción...
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 15/Mayo/2020 a las 15:53
Lo comento porque es un trabajo de la Administración autonómica y el tema de licencias y ordenadores plataformados es muy "severo", digamos.
Arriba
maxpro Ver desplegable
Colaborador
Colaborador


Unido: 04/Marzo/2006
Localización: Argentina
Estado: Sin conexión
Puntos: 1556
Enlace directo a este mensaje Enviado: 15/Mayo/2020 a las 19:37
Hola.

Cree una clave de registro en un ordenador con access 16 y runtime, la ejecute y creo la clave del registro sin inconvenientes.

Copia el contenido en un txt y guardalo con extension .reg luego lo ejecutas:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted Locations\Location0]
"Path"="C:\\RUTADETUBASE\\"
"Description"=""
"Date"="14/05/2020 08:49 p.m."

Espero te sirva, saludos

EDITO: debes cambiar el contenido de C:\\RUTADETUBASE\\ por la ubicacion donde esta tu base de datos


Editado por maxpro - 15/Mayo/2020 a las 19:39
-------Maxpro-------

San Luis - Argentina
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 01:23
Buenas maxpro.
Esta ejecución la debe realizar cada usuario que acceda (que sólo tienen runtime) o sólo yo, que sí tengo access 16 y runtime ?
Gracias de nuevo.
Arriba
maxpro Ver desplegable
Colaborador
Colaborador


Unido: 04/Marzo/2006
Localización: Argentina
Estado: Sin conexión
Puntos: 1556
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 01:34
Hola.

Es un archivo que se debe ejecutar en cada puesto de trabajo, hay que tener en cuenta que depende que version del runtime tiene cada puesto de trabajo! En este caso sirve para la version 16, se debera modificar dependiendo la version del runtime de cada puesto!

Saludos
-------Maxpro-------

San Luis - Argentina
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 03:42
Gracias. Nada más que pueda hago pruebas.
Salu2
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 09:47
Buenas

Hace tiempo hice lo siguiente cuando tuve la necesidad de trabajar con RunTime , creas un fichero plano texto TXT y copia y pegas el siguiente código,
a ese fichero lo llamas por ejemplo ZonaDeConfianza2016 y le cambias la extensión TXT y le pones .vbs al final te quedará un fichero VBScript llamado ZonaDeConfianza2016.vbs
Lo ejecutas en cada ordenador que utilices RunTime y a continuación ya podrías ejecutar tu fichero Access normalmente.



' ++++++++ INICIO CODIGO +++++++++++++++++
' EL CODIGO Y EL USO DEL MISMO ES ** "TAL CUAL" **
' SIN NINGUNA GARANTÍA DE NINGÚN TIPO EXPRESA
' O IMPLÍCITA, Y EL USUARIO ASUME BAJO SU PROPIO
' RIESGO Y RESPONSABILIDAD SU USO.


' DateTime : 23/01/2010 20:34
' Author : copyright (c)  ("Javier.Mil")
' WEB : www.accessdemo.info
' Purpose : Crea Zona de Confianza para Access 2016 utilizando "LOCATION (n)"


Option Explicit

Const cVersion = "16.0"
Const cPrefijo = "HKEY_CURRENT_USER\Software\Microsoft\Office\"
Const cSufijo = "\Access\Security\Trusted Locations\Location"
Dim objWshShell
Dim intX
Dim strTemp

On Error Resume Next

            Set objWshShell = CreateObject("Wscript.Shell")
            For intX = 0 To 999
                  strTemp = objWshShell.RegRead(cPrefijo & cVersion & cSufijo & intX & "\Path")

                  If strTemp = (objWshShell.CurrentDirectory) & "\" Then
                        Exit For
                  End If
            Next

            If strTemp <> (objWshShell.CurrentDirectory) & "\" Then
                  For intX = 0 To 999
                        strTemp = ""
                        strTemp = objWshShell.RegRead(cPrefijo & cVersion & cSufijo & intX & "\Path")

                        If strTemp = "" Then
                              Exit For
                        End If
                  Next

                  objWshShell.RegWrite cPrefijo & cVersion & cSufijo & intX & "\AllowNetworkLocations", 1, "REG_DWORD"
                  objWshShell.RegWrite cPrefijo & cVersion & cSufijo & intX & "\AllowSubfolders", 1, "REG_DWORD"
                  objWshShell.RegWrite cPrefijo & cVersion & cSufijo & intX & "\Date", Format(Now(), "mm/dd/yyyy hh:mm")
                  objWshShell.RegWrite cPrefijo & cVersion & cSufijo & intX & "\Description", "VBScript por Javier Mil , Mi nueva Zona de Confianza"
                  objWshShell.RegWrite cPrefijo & cVersion & cSufijo & intX & "\Path", (objWshShell.CurrentDirectory) & "\"

            End If

      Set objWshShell = Nothing

MsgBox "Fin Zona de Confianza creada con exito", vbOKOnly, "VBScript por Javier.Mil"

' ++++++++ FIN CODIGO +++++++++++++++++





Editado por javier.mil - 16/Mayo/2020 a las 10:13
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 10:15
Cambia la constante cVersion
cVersion = "16.0"   ' < es valido para Access 2016
cVersion = "15.0"   ' < es valido para Access 2013
cVersion = "14.0"   ' < es valido para Access 2010
cVersion = "12.0"   ' < es valido para Access 2007
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3523
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 10:31
Hola.
Sin ánimo de ser agorero, pero Maserrano dijo:

Lo comento porque es un trabajo de la Administración autonómica y el tema de licencias y ordenadores plataformados es muy "severo", digamos.

y eso de cambiar el registro de windows sin que lo "haga" el super responsable informático, pues la verdad, no lo tengo nada claro de cara al porvenir del que lo hace.
Pero será Maserrano el que decida
En mi opinión habrá que buscar alternativas a lo del registro de windows
Un saludo a todos

Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 10:49
Estoy totalmente de acuerdo , cada uno es responsable de lo hace ,........ pero eso ya seria otro tema de discusión ....... Microsoft Access debería resolver ese problema con el RunTime y No lo hace y traspasa el problema al programador / desarrollador ........

Para que ZonaDeConfianza2016.vbs se tiene que ejecutar en el mismo directorio donde este ubicado el fichero Access accdb o accde
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 16/Mayo/2020 a las 13:31
Gracias a todos.
El lunes hago indagaciones y contesto.
Tenéis razón por lo de cambiar registros. 
No sé si lo autorizarán...
Yo sólo propongo soluciones.
Alternativamente estoy buscando trabajar con versiones anteriores (mbd - mde) que no son tan restrictivas con la seguridad y el tema de centros de confianza; sé que perderé funcionalidades pero también es otra solución alternativa. Ya veremos qué ocurre.
Gracias de veras.
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 19/Mayo/2020 a las 00:29
Buenas noches.
He realizado pruebas toda la mañana y no me funciona; he probado con el scrip "ZonaDeConfianza2016.vbs" de Javier y me dice que ha creado la zona pero no funciona la aplicación con runtime. También he probado con el .reg de max y tampoco... Joer qué mala suerte!
No creo que sea cuestión de buena o mala suerte (no creo en eso).
Durante el fin de semana me curré la aplicación a la versión 2003 (perdiendo algunas funcionalidades, pocas, la verdad, y haciendo pruebas con un compañero a final de mañana le ha funcionado;me dice que no le cargaba unos directorios de imágenes pero supongo que eso ha sido fallo mío por ir deprisa y lo tengo que depurar.
Lo importante es que arranca la aplicación.
No me quiero rendir con la versión de 2016... pero es que no sé qué hacer. 
Bueno, gracias a todos. 


Editado por maserrano - 19/Mayo/2020 a las 00:29
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4812
Enlace directo a este mensaje Enviado: 19/Mayo/2020 a las 16:50
Publicado originalmente por maserrano maserrano escribió:


No me quiero rendir con la versión de 2016... pero es que no sé qué hacer. 



Buenas, haz la siguiente prueba

1-Crea una nueva base completamente vacia de Access 2016 en formato ACCDB
Añades un formulario con solo texto (nada mas) que ponga "Hola Mundo" (por ejemplo...)

Desde el panel de control (Tengo Access en Ingles asi que No se como lo habran traducido)
File > Options > Current Database  > Display form > para que ese formulario sea tu formulario de inicio


En tu ordenador sin Access pero con Runtime 2016 instalado

2- Copia el nuevo fichero ACCDB

3- Ejecuta ZonaDeConfianza2016.vbs

4- Ejecuta (abre) tu fichero ACCDB normalmente , a ver si salta algun error.......


Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 20/Mayo/2020 a las 02:16
Pues, gracias Javier. Mañana lo pruebo y comento resultados.
Salu2
Arriba
maserrano Ver desplegable
Colaborador
Colaborador


Unido: 02/Abril/2014
Localización: España
Estado: Sin conexión
Puntos: 683
Enlace directo a este mensaje Enviado: 20/Mayo/2020 a las 10:30
Buenos días. He realizado la prueba.
He creado el fichero ACCDB y el compañero (que no tiene access, sólo Runtime) ha ejecutado, primero, el scrip "ZonadeConfianza2016" y luego la base.
El resultado es que le abre la base y le muestra el formulario simple, pero antes le salta un mensaje de seguridad de access como el que acompaño en el enlace


Posteriormente, lo he abierto yo con mi Runtime (tengo access y Runtime) y me abre también la base de datos sin pasar por el mensaje de aviso.
Me da la sensación de que el script que ejecuta el compañero y que al final dice:
"Fin Zona de Confianza creada con exito"
realmente no se ejecuta..., no sé... si se trata de eso.
Salu2.


Editado por maserrano - 20/Mayo/2020 a las 10:31
Arriba
 Responder Responder Página  <1234 5>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable