Đánh giá chủ đề:
  • 0 Votes - 0 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


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 Liệt kê số lượng User đang mở table nào maidinhdan 9 1,316 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 12,300 08-06-16, 11:23 PM
Bài mới nhất: maidinhdan
  Thuộc tính Startup MS Access toàn tập với VBA Noname 2 2,739 18-04-16, 04:50 PM
Bài mới nhất: ongke0711
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,705 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  Msg Box tiếng Việt Unicode có định dạng chữ đậm tranthanhan1962 13 2,271 30-01-16, 12:39 AM
Bài mới nhất: khanghychu

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ơ