baldplumber
New member
- Local time
- Tomorrow, 05:45
- Joined
- May 13, 2017
- Messages
- 2
Hi
I have a problem that hopefully someone can help me with.
I live in Thailand and am currently developing an Access (2010) application to control billing at the condo building I live in.
People using the system will be either Thai or English speakers, so it makes sense to enable the forms dual language capability although all data input will be in English using the latin character set.
My problem is that if I reassign the caption value of a control to Thai script within a VBA procedure, the form does not render correctly. If I hard-code the control in Thai it displays properly.
Here is the bit of code that is supposed to do a little language toggling.
Private Sub LanguageButton_Click()
' toggle language between English and Thai
If gLAN = "EN" Then
Me.LanguageButton.Caption = "à»ÅÕè¹à»ç¹ÀÒÉÒÍѧ¡ÄÉ"
Me.Label4.Caption = "ª×èͼÙéãªé"
gLAN = "TH"
Me.txtMessage.Caption = "ÀÒÉÒà»ÅÕè¹à»ç¹ÀÒÉÒä·Â"
Else
Me.LanguageButton.Caption = "Change to Thai Language"
Me.Label4.Caption = "User Name"
gLAN = "EN"
Me.txtMessage.Caption = "Language set to English"
End If
The series of odd characters are not Thai script! my copy and paste looks the same as the form shows!
Can anyone help?
TIA
P.S. I have tried resetting the controls font property to a unicode one, makes no difference
I have a problem that hopefully someone can help me with.
I live in Thailand and am currently developing an Access (2010) application to control billing at the condo building I live in.
People using the system will be either Thai or English speakers, so it makes sense to enable the forms dual language capability although all data input will be in English using the latin character set.
My problem is that if I reassign the caption value of a control to Thai script within a VBA procedure, the form does not render correctly. If I hard-code the control in Thai it displays properly.
Here is the bit of code that is supposed to do a little language toggling.
Private Sub LanguageButton_Click()
' toggle language between English and Thai
If gLAN = "EN" Then
Me.LanguageButton.Caption = "à»ÅÕè¹à»ç¹ÀÒÉÒÍѧ¡ÄÉ"
Me.Label4.Caption = "ª×èͼÙéãªé"
gLAN = "TH"
Me.txtMessage.Caption = "ÀÒÉÒà»ÅÕè¹à»ç¹ÀÒÉÒä·Â"
Else
Me.LanguageButton.Caption = "Change to Thai Language"
Me.Label4.Caption = "User Name"
gLAN = "EN"
Me.txtMessage.Caption = "Language set to English"
End If
The series of odd characters are not Thai script! my copy and paste looks the same as the form shows!
Can anyone help?
TIA
P.S. I have tried resetting the controls font property to a unicode one, makes no difference
Last edited:
