Someone has finally accessed the database window intentionally at work. So I am taking extra steps to secure it, something I had hoped didn't happen.<\/p>\n
To hide access to the Database Window or Navigation Pane in 2007.<\/p>\n
Sources referred: http:\/\/access.mvps.org\/access\/api\/api0069.htm<\/a> http:\/\/social.msdn.microsoft.com\/Forums\/office\/en-US\/0a34dbec-5078-4e16-b6a7-78f62c39f1bf\/vba-navigation-pane?forum=accessdev<\/a><\/p>\n -----------<\/p>\n To show the database window, run To Hide the database window, run ---------------------------<\/p>\n You can use this function which will return True if the window is currently visible inside the MDI Client window of the application.<\/em><\/p>\n Someone has finally accessed the database window intentionally at work. So I am taking extra steps to secure it, something I had hoped didn't happen. To hide access to the Database Window or Navigation Pane in 2007. Sources referred: http:\/\/www.tek-tips.com\/viewthread.cfm?qid=925287 … Continue reading
\nhttp:\/\/www.tek-tips.com\/viewthread.cfm?qid=925287<\/a><\/p>\n
\n http:\/\/access.mvps.org\/access\/general\/gen0031.htm<\/a><\/p>\n
\nDocmd.SelectObject acTable, , True<\/p>\n
\nDocmd.SelectObject acTable, , True
\nDocmd.RunCommand acCmdWindowHide<\/p>\n'***************** Code Start *****************\r\n' This code was originally written by Dev Ashish.\r\n' It is not to be altered or distributed,\r\n' except as part of an application.\r\n' You are free to use it in any application,\r\n' provided the copyright notice is left unchanged.\r\n'\r\n' Code Courtesy of\r\n' Dev Ashish\r\n'<\/span>\r\nPrivate Declare Function FindWindowEx _\r\n Lib \"user32\" Alias \"FindWindowExA\" _\r\n (ByVal hwndParent As Long, _\r\n ByVal hwndChildAfter As Long, _\r\n ByVal lpszClass As String, _\r\n ByVal lpszWindow As String) _\r\n As Long\r\n \r\nPrivate Declare Function GetWindowLong _\r\n Lib \"user32\" Alias \"GetWindowLongA\" _\r\n (ByVal hWnd As Long, _\r\n ByVal nIndex As Long) _\r\n As Long\r\n\r\nPrivate Const GWL_STYLE = (-16)\r\nPrivate Const WS_VISIBLE = &H10000000\r\n\r\nPublic Function fIsDBCVisible() As Boolean\r\n'\r\n' Returns true if the Database container\r\n' window is currently visible\r\n'<\/span>\r\n Dim lngStyle As Long\r\n Dim hWnd As Long\r\n Const WC_MDICLIENT = \"MDIClient\"\r\n Const WC_DBC = \"Odb\"\r\n\r\n ' Find the MDIClient window first<\/span>\r\n hWnd = FindWindowEx(hWndAccessApp, 0, _\r\n WC_MDICLIENT, vbNullString)\r\n ' Find the db container window<\/span>\r\n hWnd = FindWindowEx(hWnd, 0, WC_DBC, vbNullString)\r\n\r\n If (hWnd) Then\r\n ' retrieve the window style<\/span>\r\n lngStyle = GetWindowLong(hWnd, GWL_STYLE)\r\n fIsDBCVisible = ((lngStyle And WS_VISIBLE) = WS_VISIBLE)\r\n End If\r\n \r\nEnd Function\r\n'***************** Code Start *****************<\/span><\/pre>\n","protected":false},"excerpt":{"rendered":"