MS Access chinese language issue

skillilea
skillilea used Ask the Experts™
on
I have  a control label lookup function below that returns the translation by LanguageID.



The chinese characters seem to not work with the controls.  I get (??) when I paste them into the VBA editor.

I tried chaning the font type but still not luck.

Any thoughts on how to accomplish this?  

I don't want to hit the DB to get the control label if possible.

Thanks





Public Function Load_Title(lang As Integer, langType As String) As String
    Dim x As Integer
    Dim s As Variant
    x = ModGlobalID.CurrentLanguage
   
'   language: english, spanish, chinese, hungarian
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Select Case langType
   
    Case "application"
     If lang = 1 Then s = "Monthly,Mensual,Havi,??"
     If lang = 2 Then s = "CR Matrix,CR Matrix,CR Matrix,Cr?"
    Case "common"
         If lang = 1 Then s = "No Entity Selected,No Entidad Seleccionada,Nem Entity Kiválasztott,??????"
         If lang = 2 Then s = "Date,Fecha,Dátum,??"
         If lang = 3 Then s = "Search,Buscar,Keresés,??"
         If lang = 4 Then s = "Remove,Quitar,Eltávolítás,??"
         If lang = 5 Then s = "Name:,Nomenclatura,Név:,???"
         If lang = 6 Then s = "Phone:,Teléfono:,Telefon,??"
         If lang = 7 Then s = "Fax:,Fax:,Fax,???"
         If lang = 8 Then s = "Email:,Email:,E-mail:,?????"
         If lang = 9 Then s = "InnoPage:,InnoPage:,InnoPage:,InnoPage?"
         If lang = 10 Then s = "Filter,Filtro,Szuro,???"
         If lang = 11 Then s = "Remove,Quitar,Eltávolítás,??"
 End select

    s = Split(s, ",")
    Load_Title = s(x - 1)
End Function
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Have you installed the Chinese language display in Windows? - Control Panel> Regional Settings somewhere.


Kelvin
Go to Control Panel and change your default language to Chinese
Restart your machine and you should be able to type (via IME) Chinese in the VBA Editor.

Other options are to store Unicode strings in Access MDB, a Unicode Text File, Unicode INI File, or XML File.

In Vb6 it is easier, you can use a Resource File that has Unicode strings and read them easily with GetResString.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial