Foreign language in Forms/reports

[Frank Situmorang]

Hello,

I started to make tables as follows, but I want to know how can we make
query to pull the selected language:

tblLanguages
LanguageID
LanguageName

tblPhrases
PhraseID
PhraseName

tblPhrasesInLanguages
PhraseID
LanguageID
Phrase

Then you can write a simple query that can pull the correct phrase
based on the chosen language, and (for example) set the form title in
the form's Load event:
Me.Caption = GetPhrase(FORM1_CAPTION)

public function GetPhrase(byval intPhraseID as Integer) as String
'TODO: select the data, based on given PhraseID and global language
selection
GetPhraseID = strPhrase
end function


Anyone can help me to make it work?


Thanks in advance

 

[tina]

Me.Caption = GetPhrase(FORM1_CAPTION)

"FORM1_CAPTION" is a value in the PhraseName field in tblPhrases, correct?
if the answer is "yes", then your first problem is that you can't pass a
string value into a procedure when the argument is a number data type.

for the moment, let's just stick with the PhraseName value, and work with
that. you can open a recordset to get the value you need, using the "global
language selection" which i'll assume is a public variable, and the
PhraseName value provided in the function call. something along the lines of

Public Function GetPhrase(ByVal strPhraseName As String) As String

' for this example, i'll use "intLanguage" as the name of the public
variable

Dim rst As DAO.Recordset, strSQL As String

strSQL = "SELECT Phrase " _
& "FROM tblPhrases INNER JOIN tblPhrasesInLanguages " _
& "ON tblPhrases.PhraseID = tblPhrasesInLanguages.PhraseID " _
& "WHERE PhraseName = '" & strPhraseName _
& "' AND LanguageID = " & intLanguage

Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

GetPhrase = Nz(rst("Phrase"), "")

rst.Close
Set rst = Nothing

End Function

hth