Подсунули Access 2013 64 разрядный. И заставляют переводить на него программы. И чтоб была совместимость 32-х битным.
Вот попробовал пример
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
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-ти миллиардное состояние Билла Гейтса?
