Chủ đề: Menu chính của access bị mất.
-
11-29-2008, 03:38 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Menu chính của access bị mất.
Mình sưu tầm được đoạn code trên mạng ẩn thanh tiêu đề cửa sổ, ẩn menu của access nhưng khi mình test xong thì menu chính của access bị ẩn luôn.
Các bạn giúp mình khôi phục lại menu của access với.
Option Compare Database
' ----------------------------------------------------------------
' Lấy độ phân giải màn hình
Public TwipResW As Double, TwipResH As Double
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
' ----------------------------------------------------------------
‘Định lại kiểu cửa sổ
Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000
Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H30
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex 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
' -------------------------------------------------------------
Sub HideAccessAll()
Dim lngStyle As Long
‘Ẩn thanh tiêu đề cửa sổ
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not &HBF0000
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
‘Định lại kích thước Max
TwipResW = GetSystemMetrics(0)
TwipResH = GetSystemMetrics(1)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, TwipResW, TwipResH, SWP_DRAWFRAME)
End Sub
Sub HideAccessControlBox()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
End Sub
Sub UnHideAccessAll()
Dim lngStyle As Long
lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle Or WS_SYSMENU
lngStyle = lngStyle Or WS_MINIMIZEBOX
lngStyle = lngStyle Or WS_MAXIMIZEBOX
lngStyle = lngStyle Or &HBF0000
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdAppMaximize
HideAccessAll
CommandBars("menu bar").Enabled = False
CommandBars("database").Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnHideAccessAll
CommandBars("menu bar").Enabled = True
CommandBars("database").Enabled = True
End SubView more random threads:
- Hỏi cách lấy thông tin từ main form làm điều kiện lọc cho sub form
- Định dạng hiển thị số TK ngân hàng và số ĐT
- Giúp đỡ mình về cách thiết kế và in một Hoá đơn
- Tạo file MDE bị lỗi
- Tạo ứng dụng Client - Server đơn giản trong Access
- Nhiều người cùng nhập dữ liệu vào 1 form trong access 2007
- giáo trình access 2003 toàn tập
- Đếm số lượng người theo độ tuổi trong report
- Anh/chị hướng dẫn em cách gán dữ liệu với
- CHỨC NĂNG database splitter access
-
12-01-2008, 03:03 PM #2Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 14
Ðề: Menu chính của access bị mất.
Gửi bởi quochoi_05
-
12-01-2008, 03:58 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Menu chính của access bị mất.
Gửi bởi behattieu
mình đã bảo mình sưu tầm được không biết nên nhờ các bác giúp đỡ xem hộ các đoạn code trên có đúng không? sao mà mình test thử mà không được.
-
12-01-2008, 06:38 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Menu chính của access bị mất.
Đoạn lệnh mà behattieu hỏi bạn đã làm nhiệm vụ trả lại trạng thái ban đầu của Access cho bạn rồi đấy thôi. Sau khi bạn đóng form thì tất cả những gì bị ẩn trước đó đã được hiện lại. Sau khi đóng form mà Access của bạn không khôi phụ lại được menu thì hãy kiểm tra sự kiện Form_Unload xem đã được kích hoạt chưa nhé
-
12-01-2008, 10:15 PM #5Silver member
- Ngày tham gia
- Mar 2016
- Bài viết
- 15
Ðề: Menu chính của access bị mất.
Cám ơn các bạn đã trả lời.
Mình đã tạo 1 command button để chạy hàm UnhideAccessAll nhưng vẫn không được chắc phải cài lại access thôi.
-
12-02-2008, 02:23 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Menu chính của access bị mất.
Vào Tools/Customize... và đánh dấu chọn "Menu bar".
Hoặc nhấn phải chuột ở chỗ thanh công cụ và chọn Customize...
Hoặc đóng Access rồi mở lại 1 lần nữa.
-
12-02-2008, 03:29 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Menu chính của access bị mất.
Gửi bởi muontennguoi
Mình đã làm được sau 2 ngày mò mẫm.
Menu bị mất nên không chọn Tools/Customize được.
Nhấn chuột phải thanh công cụ -> customize ->Toolbars -> Properties -> Selected toolbar -> Menu bar -> Restore defaults
Pallet nhựa Long An giao hàng miễn phí Dịch vụ giao hàng miễn phí của Pallet Nhựa Long An không chỉ là một tiện ích đơn thuần, mà còn là một cam kết vững chắc đến với khách hàng. Với một mạng lưới...
Pallet nhựa Long An giao hàng miễn phí