Dynamic Messages

[γιώργοςΚ]

Φίλοι μου επανερχομαι για να ενημερώσω ότι έχω βρεί την άκρη στο πρόβλημα και παραθέτω πιο κάτω την μετατροπή στον κώδικα που έκανα που τελικά ήταν πολύ απλή.

Public Function imessage(MsgID As Integer) As Long
Dim Buttons As Long
Dim Title As String
Dim Prompt As String
Dim qsql As String

Dim rsMsg As DAO.Recordset

If Forms!MainForm.PrefLanguage = 1 Then

qsql = "SELECT MsgID, Msg_Title, Msg_Body, Msg_sub, Msg_Buttons FROM Messages WHERE Messages.MsgID = " & MsgID
Debug.Print qsql
Set rsMsg = CurrentDb.OpenRecordset(qsql)
Buttons = rsMsg!Msg_Buttons
Title = rsMsg!Msg_Title & ""
Prompt = rsMsg!Msg_Body & ""
imessage = MsgBox(Prompt, Buttons, Title)


ElseIf Forms!MainForm.PrefLanguage = 2 Then

qsql = "SELECT MsgID, Title_EN, Body_EN, Msg_sub, Msg_Buttons FROM Messages WHERE Messages.MsgID = " & MsgID
Debug.Print qsql
Set rsMsg = CurrentDb.OpenRecordset(qsql)
Buttons = rsMsg!Msg_Buttons
Title = rsMsg!Title_EN & ""
Prompt = rsMsg!Body_EN & ""
imessage = MsgBox(Prompt, Buttons, Title)

End If

End Function