Version of the Access

[Simon]

I want ask you that , how I can know if the installed version of the Access
is English or other language (using code) ?

Thanks

 

[Daniel Pineault]

Take a look at

http://www.blueclaw-db.com/get_access_version_number.htm

it should do what you need.
--
Hope this helps,

Daniel Pineault
http://www.cardaconsultants.com/
For Access Tips and Examples: http://www.devhut.net
Please rate this post using the vote buttons if it was helpful.

 

[Simon]

it useful for the verion but i want to know and the language of this version
(English or other...)

thanks

 

[Simon]

Thanks for your help , I found also and the solution for the installed
language (English or other...) we use...

In a New module....

Option Compare Database
Option Explicit

Public Declare Function GetLocaleInfo Lib "kernel32" Alias _
"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long

Public Const LOCALE_SLANGUAGE = &H2

On the Tools menu-> References ->Office 11.0 Object Library

Function StLangOfLcid(lcid As Long) As String

Dim st As String
Dim cch As Long

st = String(256, vbNullChar)
cch = GetLocaleInfo(lcid, LOCALE_SLANGUAGE, st, Len(st))
StLangOfLcid = Left(st, cch - 1)

End Function

Sub FindLanguage()

Debug.Print "The language that is installed is: " & _
StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDInstall))
Debug.Print "The language of the user interface is: " & _
StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDUI))
'Debug.Print "The language of the help files is: " & _
'StLangOfLcid(LanguageSettings.LanguageID(msoLanguageIDHelp))

End Sub