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

Access 2010

 Responder Responder
Autor
Mensaje
orafo1 Ver desplegable
Habitual
Habitual


Unido: 18/Junio/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 182
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita orafo1 Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Access 2010
    Enviado: 09/Enero/2019 a las 15:27
Muy buenos dias compañeros he desarrollado una aplicacion en Access 2010 de 64 Bits con sus respectivos informes, formularios y modulos, instale dicho software desarrollado en un sistema operativo de 32 bits con su respectivo Access de 32 bits, y me encuentro con la sorpresa que no me daja abrirlo, sale el siguiente mensaje:
"La base de datos se creo con la version de 64 bits de Microsoft Access. Abrala con la version de 64 bits de Microsoft Access."
Por favor alguien me puede inducir que puedo hacer para que funcione en 32 bits, ya que en 64 bits funciona sin problemas 
Siempre algo nuevo por aprender
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10841
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 09/Enero/2019 a las 15:45
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
orafo1 Ver desplegable
Habitual
Habitual


Unido: 18/Junio/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 182
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita orafo1 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 10/Enero/2019 a las 13:18
Hola buenos dias, hice esto pero no me funciona, debo hacer algo extra??

Cuando quito el PtrSafe queda en rojo la linea, aunque compila pero no se si funcione

#If VBA7 And Win64 Then
    Declare PtrSafe Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
    Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
    lpRect As RECT) As Long
    Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
    Declare PtrSafe Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal bRepaint As Long) As Long
    Declare PtrSafe Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
#Else
    Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
    Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, _
    lpRect As RECT) As Long
    Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
    Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal bRepaint As Long) As Long
    Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

#End If
Siempre algo nuevo por aprender
Arriba
orafo1 Ver desplegable
Habitual
Habitual


Unido: 18/Junio/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 182
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita orafo1 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Febrero/2019 a las 18:08
Buenas tardes, al aprecer es un tema sin solucion, muchas gracias podemos cerar el hilo Unhappy
Siempre algo nuevo por aprender
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10841
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 13/Febrero/2019 a las 18:34
Hola, lo tienes mal codificado. Por ejemplo las declaraciones de ShellExecute:

#If Win64 Then
    Public Declare PtrSafe Function ShellExecute _
                    Lib "shell32.dll" _
                    Alias "ShellExecuteA" _
                    (ByVal hwnd As LongPtr, _
                    ByVal lpOperation As String, _
                    ByVal lpFile As String, _
                    ByVal lpParameters As String, _
                    ByVal lpDirectory As String, _
                    ByVal nShowCmd As Long) As LongPtr
#Else
    Public Declare Function ShellExecute _
                    Lib "shell32.dll" _
                    Alias "ShellExecuteA" _
                    (ByVal hwnd As Long, _
                    ByVal lpOperation As String, _
                    ByVal lpFile As String, _
                    ByVal lpParameters As String, _
                    ByVal lpDirectory As String, _
                    ByVal nShowCmd As Long) As Long
#End If
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable