Tự động nhận biết Version của Access trong chương trình

[hai2hai]

Mục tiêu: Xác định version của access hiện thời bằng coding (VB, VBA) trong chương trình.
Lợi ích: Dựa trên version của Access ta có thể sử dụng các tính năng cụ thể tương ứng ở mỗi version.

Coding:

Public Function getMsAccessVer()

Ver = Application.SysCmd(acSysCmdAccessVer)


Select Case Ver
Case 8#
MsgBox "Access 97"
Case 9#
MsgBox "Access 2000"
Case 10#
MsgBox "Access 2002"
Case 11#
MsgBox "Access 2003"
End Select

End Function

Cheers!