Error variable mslLanguageIDUI

Hola,

   Estoy intentando averiguar el idioma del sistema desde una macro de Access y me marca un error de variable no definida en msoLanguageIDUI.

La utilizo en un Select Case:

Select Case Application.LanguageSettings.LanguageID(msoLanguageIDUI)

No sé si debo tener algún módulo o api que no tengo en mi Access, tampoco sé como incluirlo

Un saludo y gracias.

Lo que puedes hacer es ejecutar el comando con el valor de ese parámetro directamente:

Application.LanguageSettings.LanguageID(2)

Nota, para averiguarlo primero referencias la librería, obtienes su valor:

       ? msoLanguageIDUI    (en la ventana inmediato

 y 'desreferencias' la librería.

Hola prueba esto:

Option Compare Database

Private Declare PtrSafe Function GetUserDefaultLCID Lib "kernel32" () As Long

Sub verIdioma()
    Dim idioma As String
    
    idioma = saberidioma()
    MsgBox "El idioma de Access es: " & idioma
End Sub

Function saberidioma() As String
    Dim idioma As Long
    
    idioma = GetUserDefaultLCID()
    
    Select Case idioma
        Case 1033
            saberidioma = "Inglés"
        Case 3082
            saberidioma = "Español"
        
        Case Else
            saberidioma = "Otro idioma"
    End Select
End Function

Private Sub btidioma_Click()

verIdioma

End Sub