Déterminer la langue d'Access 

wpe2.gif (1107 octets)exemple.mdb

Function LangueAccess() As String
'But : Déterminer si l'Access utilisé est français ou anglais
'Retourne F si Access est en français
'Retourne A si Access est en anglais
On Error Resume Next
Application.SetOption "Afficher Barre d'état", True
If Err <> 0 Then
LangueAccess = "A"
Else
LangueAccess = "F"
End If
End Function