anhduyks1 > 04-03-15, 09:15 PM
maidinhdan > 05-03-15, 08:58 AM
(04-03-15, 09:15 PM)anhduyks1 Đã viết:
Như hình làm sao mất thanh Menu Bar.
Khi mình thử làm giống như tác giả nhưng không được.
anhduyks1 > 05-03-15, 10:18 AM
maidinhdan > 05-03-15, 11:06 AM
(05-03-15, 10:18 AM)anhduyks1 Đã viết: Mình tìm được bài này http://thuthuataccess.com/forum/thread-7018.html
Nhưng không làm mất được thanh Menu Bar.
maidinhdan > 05-03-15, 11:23 AM
(05-03-15, 11:06 AM)maidinhdan Đã viết:(05-03-15, 10:18 AM)anhduyks1 Đã viết: Mình tìm được bài này http://thuthuataccess.com/forum/thread-7018.htmlChắc phải tốn thêm 1 video nửa đây! Ác thiệt.
Nhưng không làm mất được thanh Menu Bar.
Function ancongcu(strAcToolBar As String)
Select Case strAcToolBar
Case "Yes"
DoCmd.ShowToolbar "Ribbon", acToolbarYes
Case "No"
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Case Else
MsgBox "Chỉ chấp nhập sử dụng khai báo kiểu Yes/No. Nếu không đừng có xài"
End Select
End Function
Function anmenubar(strAcToolBar As String)
Select Case strAcToolBar
Case "Yes"
DoCmd.ShowToolbar "Menu Bar", acToolbarYes
Case "No"
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
Case Else
MsgBox "Chỉ chấp nhập sử dụng khai báo kiểu Yes/No. Nếu không đừng có xài"
End Select
End Function
Private Sub Form_Load()
anmenubar ("Yes") ' Hiện
End Sub
Private Sub Form_Load()
anmenubar ("No") 'Ẩn
End Sub
anhduyks1 > 05-03-15, 03:27 PM
maidinhdan > 05-03-15, 03:41 PM
(05-03-15, 03:27 PM)anhduyks1 Đã viết: Hình như cách này không được vì khi bấm rồi khởi động lại vẫn y như cũ mình muốn bấm 1 lần sau khi khởi động lại thì nó mất thanh menu bar còn khi muốn hiển thị lại thì bấm nó mới hiển thị lại.
Giống chương trình của bạn Khanhduycsgt đấy bạn.
Sub LockDB()
...............................
...............................
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False ' Nó đây
..................................
End Sub
anhduyks1 > 05-03-15, 06:05 PM
maidinhdan > 05-03-15, 08:35 PM
(05-03-15, 06:05 PM)anhduyks1 Đã viết: Chương trình bạn khanhduycsgt.
https://www.fshare.vn/file/GVQQAWE1MTWU
khải nguyên > 05-03-15, 08:51 PM