Подсунули Access 2013 64 разрядный. И заставляют переводить на него программы. И чтоб была совместимость 32-х битным.
Вот попробовал пример

Option Compare Database
Option Explicit

Public Declare PtrSafe Function ShowWindow Lib "user32" _
            (ByVal hwnd As LongPtr, _
            ByVal nCmdShow As LongPtr) As LongPtr
'---------------------------------------------------------------------------------------
' Procedure : fnSetWindow
' DateTime  : 20.12.2007 03:07
' Author    : Администратор
' Purpose   : функция управления видимостью и размерами окна
'---------------------------------------------------------------------------------------
'
Public Function fnSetWindow(nHwnd As LongPtr, nCmdShow As LongPtr) As Long

On Error GoTo Err_fnSetWindow

fnSetWindow = ShowWindow(nHwnd, nCmdShow)

Exit_fnSetWindow:

Exit Function

Err_fnSetWindow:
   MsgBox Err.Description
   Resume Exit_fnSetWindow
End Function

Public Sub Test_1()
' разворачивание окна Access во весь экрае
    fnSetWindow Application.hWndAccessApp, 3 'SW_SHOWMAXIMIZED
End Sub

Public Sub Test_2()
' разворачивание окна Access в оконный режим
    fnSetWindow Application.hWndAccessApp, 9
End Sub

Запускать Test_1 или Test_2. В функции fnSetWindow выдаёт ошибку на вызове ShowWindow. Пишет, что тип переменной не определён. Что делать? Где ошибка?

------------------------------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1132999/perehod-s-access-32-na-access-64-est-problemy