Imprimir página | Cerrar ventana

Access 2010

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=84210
Fecha de impresión: 19/Abril/2019 a las 11:07


Tema: Access 2010
Publicado por: orafo1
Asunto: Access 2010
Fecha de publicación: 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



Respuestas:
Publicado por: Mihura
Fecha de publicación: 09/Enero/2019 a las 15:45
https://docs.microsoft.com/es-es/previous-versions/office/ee691831%28v=office.14%29" rel="nofollow - Office 32 Vs 64 bits

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


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


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


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

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es



Imprimir página | Cerrar ventana