「コンパイルエラー End Subが必要です。」
Access2016でファイルを作成しているのですが、下記のVBAを実行しようとすると、「コンパイルエラー End Subが必要です。」とエラーメッセージが返ってきてしまいます。
構文の修正が必要であるとお気づきであれば、その箇所を教えていただけないでしょうか。初歩的な質問で恥ずかしい限りですが、何卒よろしくお願い致します。
Option Compare Database
Option Explicit
Public Declare PtrSafe Function SetWindowPos Lib "user32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal fuFlags As Long) As Long
Public Declare PtrSafe Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal fRever As Long) As Long
Public Declare PtrSafe Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal uItem As Long, ByVal fuFlags As Long) As Long
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_TOP = &H0
Public Const SC_SIZE = &HF000
Public Const SC_MAXIMIZE = &HF030
Public Const SC_CLOSE = &HF060
Public Const SC_RESTORE = &HF120
Public Const MF_BYCOMMAND = &H0&
Public Sub test()
Private Sub Form_Open(Cancel As Integer)
Dim hWnd As Long
hWnd = Application.hWndAccessApp
SetWindowPos hWnd, HWND_TOP, 0, 0, 800, 600, SWP_NOMOVE
hWnd = GetSystemMenu(hWnd, 0)
RemoveMenu hWnd, SC_SIZE, MF_BYCOMMAND
End Sub
お礼
>コメントで問い合わせた方・・・ よく、理解できません Dim hWnd As Long hWnd = GetSystemMenu(Application.hWndAccessApp, 1&) で、解決しました。 ありがとうございました。