Take the value from an unbound field

[June7]

Keep in mind that global variable loses value if code hits an unhandled runtime error - TempVar does not. Also, textbox and query and macro can reference TempVar - not so with global variable.



There are many examples of options provided. A quick web search should provide some.

[charly.csh]

Hi Micron
I tried on this way but it didn't work, I don't if I'm doing something wrong

I attached the example and maybe it can be easier to explain
Example of Languages.zip

I highly appreciate the help!

[June7]

There is no need to use DLookup to retrieve ID. Include field in combobox RowSource. Combobox properties:

RowSource: SELECT Id, [language] FROM Setlanguages_tbl ORDER BY [language];
BoundColumn: 1
ColumnCount: 2
ColumnWidths: 0";2"

Textbox and button not needed.

Code for Setlanguages_Frm

Private Sub Languagedl_AfterUpdate()
DoCmd.OpenForm "Login_Frm", , , , , , Me.Languagedl
End Sub

Code for Login_Form

Private Sub Form_Open(Cancel As Integer)

Me.languagetxt.SetFocus

Me.userlbl.Caption = DLookup("[" & Me.OpenArgs & "]", "[languages_tbl]", "[label]='userlbl'")
Me.passwordlbl.Caption = DLookup("[" & Me.OpenArgs & "]", "[languages_tbl]", "[label]='passwordlbl'")
Me.showpasswordlbl.Caption = DLookup("[" & Me.OpenArgs & "]", "[languages_tbl]", "[label]='showpasswordlbl'")

End Sub

An alternative to this code is to use textbox as "label" with expression:
=DLookup("[" & [OpenArgs] & "]", "[languages_tbl]", "[label]='userlbl'")

What is purpose of languagetxt textbox?

[moke123]

Here's a different approach. It can be improved a bit but it might give you some ideas. Might be a good candidate for a custom Class.

NOTE: I didn't use or changed your tables, forms, or object names so you'll have to adapt. I also used a single record Local settings table(keep it in the front end when you split the Db.) to remember the last selected language.

For any label you want changed put "Lang" (no quotes) in the tag property of the label.

in the Onload event of the form

Private Sub Form_Load()

    Dim ctl As Control

    For Each ctl In Me.Controls
    
        If ctl.Tag = "Lang" Then
        
            getLang ctl
            
        End If
        
    Next
    
End Sub

Public Sub getLang(Lbl As Label)


    Dim LID As Integer
    Dim col As New Collection


    LID = DLookup("LangChoice", "tblLocalSettings")


    Dim db As DAO.Database
    Dim rs  As DAO.Recordset
    Dim SQL_Select  As String


    SQL_Select = "select * from tblLabelLanguage where strLabelName = """ & Lbl.Name & """"


    Set db = CurrentDb()
    Set rs = db.OpenRecordset(SQL_Select)


    With rs
 
        col.Add rs!Spanish
        col.Add rs!English
        col.Add rs!deutsch
        col.Add rs!Francais
 
    End With
 
    Lbl.Caption = col(LID)
 
MyExit:


    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Set col = Nothing

End Sub

[moke123]

Here's another version as a custom class. It was relatively easy to convert to a class.
Make sure you set a reference to Microsoft Scripting Runtime.

All you need to do is add these lines of code to the form.
As long as there is a corresponding label name in your table it will convert the language for the label.

Dim LS As clsLabels   'In the declarations section at top of module


Private Sub Form_Load()


    Set LS = New clsLabels


    LS.initMyClass Me
    
End Sub

Edit: note that I just copied objects from the other version. I didn't delete the tag text, but it is not needed in this version

[moke123]

I'm getting a little carried away, but here's another version which will change labels as well as command button captions.

[charly.csh]

Hi June_7
Thank you! I have followed the advice and worked great!!

[charly.csh]

Hi moke123

Thank you very much for the 3 examples!!!!! are great!!! with all of the them I have excellent ideas how to solve something like this!!!
Highly appreciate your support and your examples!!!