Đánh giá chủ đề:
  • 1 Votes - 1 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng
#1
Trích dẫn:to: maidinhdan@gmail.com

from: nguyenvu1994@gmail.com


Câu 1.

Hỏi: Có câu lệnh nào để khi bật file Access lên nó sẽ hiện cho ta biết là ta đang dùng bản Access nào không?

Ví dụ: tôi có file ứng dụng là Access 2003...Tôi mở bằng Access 2003,2007,2010,2013,2016. Thì nó hiện thông báo là tôi đang dùng Access 2003,2007,2010,2013,2016


Câu 2.
Hỏi: Nếu đã hiện thông báo rồi, có đoạn code nào để tắt menuBar, Ribbon, Nagative...của bản Access đó


Rất mong các Anh/Chị nào có nghiên cứu xin cho ý kiến.
Trân trọng cảm ơn!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
Mình đang sử dụng Access 2007 nên biết code để tắt thanh Ribbon, Navigate.. Còn Access 2003 thì chưa biết.

1. Hiện version của Access, dùng hàm SysCmd(acSysCmdAccessver)

Mã PHP:
Public Function AccessVersionID() As String
  Select 
Case SysCmd(acSysCmdAccessVer)
        Case 7AccessVersionID "95"
        Case 8AccessVersionID "97"
        Case 9AccessVersionID "2000"
        Case 10AccessVersionID "2002"
        Case 11AccessVersionID "2003"
        Case 12AccessVersionID "2007"
        Case 14AccessVersionID "2010"
        Case 15AccessVersionID "2013"
        Case Else: AccessVersionID "Unknown"
  End Select
End 
Function 

2. Dấu thanh Ribbon, Navigation panel, Status bar

Mã PHP:
Private Sub Form_Open(Cancel As Integer)
   DoCmd.ShowToolbar "Ribbon"acToolbarNo
   DoCmd
.ShowToolbar "Status Bar"acToolbarNo
   
'Hide khung navigate panel'
   DoCmd.NavigateTo ("acNavigationCategoryObjectType")
   DoCmd.RunCommand (acCmdWindowHide)
End Sub

Private Sub Form_Close()
   DoCmd.ShowToolbar "Ribbon"acToolbarYes
   DoCmd
.ShowToolbar "Status Bar"acToolbarYes
   
'Hien lai khung Navigate pannel'
   Call DoCmd.SelectObject(acTable, , True)
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#3
Chào ACE!
Lang thang trên mạng mình thấy được đoạn code dùng để kiểm tra phiên bản Access đang sử dụng và kèm theo là thu nhỏ Ribbon trong Access 2013, không biết có giúp ích gì được mọi người không, xin phép được chia sẻ

Public Function AccessVersionID() As String
    Select Case SysCmd(acSysCmdAccessVer)
     Case 7: AccessVersionID = "95"
     Case 8: AccessVersionID = "97"
     Case 9: AccessVersionID = "2000"
     Case 10: AccessVersionID = "2002"
     Case 11: AccessVersionID = "2003"
     Case 12: AccessVersionID = "2007"
     Case 13: AccessVersionID = "Pirated!"
     Case 14: AccessVersionID = "2010"
     Case 15: AccessVersionID = "2013"
     Case Else: AccessVersionID = "Unknown"
 End Select
 RibbonState = (CommandBars("Ribbon").Controls(1).Height < 100)

Select Case RibbonState
   Case True
       'Do nothing, already minimized
   Case False
       If accVer > 13 Then
           CommandBars.ExecuteMso "MinimizeRibbon"
       Else
           SendKeys "^{F1}", False
       End If
End Select

End Function            'AccessVersionID() ' gọi hàm
Chữ ký của vulhu06 Xin chào, mình là vulhu06, Tham gia http://thuthuataccess.com/forum từ ngày 15-06 -12.
Reply
Những người đã cảm ơn tranthanhan1962 , maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Mọi phiên bản Access) maidinhdan 15 3,091 31-03-17, 12:20 AM
Bài mới nhất: kieu manh
  nén file Access bằng VBA Noname 17 7,104 30-03-17, 05:51 PM
Bài mới nhất: maidinhdan
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 17 6,605 22-03-17, 01:12 PM
Bài mới nhất: trangdv.pchg
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,940 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  Lấy về số seri CPU, ổ cứng MainBoard trong Access Noname 33 13,556 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ