Hiding top title Bar

[stu_C]

Hi all


I have access 2013 and I want to hide the top title bar is this possible? I have done a bit of searching and apparently you use a module (code below), but still not working, is it possible to get the module to run automatically when the database load if so how?

Option Explicit
 Private Const GWL_STYLE = (-16)
 Private Const WS_CAPTION = &HC00000
 Private Const SWP_NOSIZE = &H1
 Private Const SWP_NOZORDER = &H4
 Public Const SWP_FRAMECHANGED = &H20
 Private Declare Function GetWindowLong _
 Lib "user32" Alias "GetWindowLongA" ( _
 ByVal hwnd As Long, _
 ByVal nIndex As Long _
 ) As Long
 Private Declare Function SetWindowLong _
 Lib "user32" Alias "SetWindowLongA" ( _
 ByVal hwnd As Long, _
 ByVal nIndex As Long, _
 ByVal dwNewLong As Long _
 ) As Long
 Private Declare 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 wFlags As Long _
 ) As Long
 Private Const SWP_NOMOVE = &H2
 ' **************************************************
 '
 Function AccessTitleBar(Show As Boolean) As Long
 Dim hwnd As Long
 Dim nIndex As Long
 Dim dwNewLong As Long
 Dim dwLong As Long
 Dim wFlags As Long
 hwnd = hWndAccessApp
 nIndex = GWL_STYLE
wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
 dwLong = GetWindowLong(hwnd, nIndex)
 If Show Then
 dwNewLong = (dwLong Or WS_CAPTION)
 Else
 dwNewLong = (dwLong And Not WS_CAPTION)
 End If
 Call SetWindowLong(hwnd, nIndex, dwNewLong)
 Call SetWindowPos(hwnd, 0&, 0&, 0&, 0&, 0&, wFlags)
 End Function

[ItsMe]

Have you tested the code? Does it do what you want it to?

[aytee111]

Does this help? https://accessexperts.com/blog/2015/...cess-tutorial/