Take the value from an unbound field

[charly.csh]

Hello everyone,
I have a form with one unbound textbox field named "languagetxt" where the values it can take are 1, 2, 3 and 4. It works good an according to the language chosen it takes such numbers, it works to change the language to my labels



The issue I have is into the code because when I want to take this value from the unbound texbox field it says it is Null, I don't know how to fix it, i highly apprecitate the help!!

Private Sub Form_Open(Cancel As Integer)


Dim language As String
Dim key1 As String
Dim key2 As String
Dim Numberx As String


key1 = "["
Number- = Me.languagetxt  'HERE IT'S MY ISSUE BECAUSE IT SAYS THE VALUE IS NULL, I AM NOT SURE HOW TO FIX IT
key2 = "]"
language = key1 & Numberx & key2


Me.userlbl.Caption = DLookup(language, "[language_tbl]", "[label]= '" & Me.userlbl.Name & "'")


End Sub

[CJ_London]

you have

Dim Numberx As String

and

Number- = Me.languagetxt

make sure you have OPTION EXPLICIT at the top of every module - then you won't make this sort of mistake

edit:

you could just use a single line of code

Me.userlbl.Caption = DLookup("[" & Me.languagetxt & "]", "[language_tbl]", "[label]= '" & Me.userlbl.Name & "'")

[moke123]

When is the textbox populated? Your running this code on Open. If it's unbound where/ when is it getting input?

[charly.csh]

Hi
Correcting a little my mistake I have

Dim NumberX As String
NumberX = Me.languagetxt 'The unbound textbox

I have at the top of the module this lines

Option Compare Database
Option Explicit

Much better idea this edition:
Me.userlbl.Caption = DLookup("[" & Me.languagetxt & "]", "[language_tbl]", "[label]= '" & Me.userlbl.Name & "'")

but this is still showing the same issue

[charly.csh]

Hi!
This is populated on event "On Open"

It takes the value from a previous form named Languagesetting_Frm which has into a droplistbox with the language (English, Spanish, German and French), this data comes from a table named language with the fields "ID" and "language" into the same form I have also an unbound textbox named "languagetxt" that get the "ID" number of the language and finally a command button named "Startcmd"

Private Sub Startcmd_Click()


Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "Login_Frm"


DoCmd.OpenForm stDocName, , , stLinkCriteria
Forms![Login_Frm]!languagetxt = Me.languagetxt  'Both forms has the same name to make easy to me


End Sub

Once the user click on the command button it opens the form login_frm and the idea is showing the labels on the previous language chosen.

[CJ_London]

but this is still showing the same issue

see post 3 - at the form open event, your unbound control will not be populated - and won't be until the user enters something, which can't happen until after the form current event has fired.

For testing purposes, suggest use the languagetxt after update event

[June7]

Fields in table are named 1, 2, 3, 4?

Answer moke123 question in post 3: When and how does this textbox get a value?

[charly.csh]

Hi CJ_London
As you suggested I made the trial with an event After update and it works changing the info of the labels! =)
What do you suggest that it could happen since the load or the open of the form?

[charly.csh]

Hi June7
Yes exactaly the table language_tbl has this fields:
"ID" (values: 1,2,3 and 4), "label" (name of the labels into the form), "1" "2", "3" and "4" (information of every label in the different language)

[June7]

If user is selecting language on Languagesetting_Frm and you need to pass that choice to another form when it is opened, several ways to do that.

1. OpenArgs of DoCmd.OpenForm

2. set a global variable or TempVar that can be used anywhere

3. first form sets value of control on second form

4. second form references control on first form (if it remains open).

[moke123]

If user is selecting language on Languagesetting_Frm and you need to pass that choice to another form when it is opened, several ways to do that.

1. OpenArgs of DoCmd.OpenForm

2. set a global variable or TempVar that can be used anywhere

3. first form sets value of control on second form

4. second form references control on first form (if it remains open).

5. Hidden form that stays open but hidden

[Micron]

Could also just use the Text property of the control instead of its value?

[charly.csh]

Hi June_7 and moke123

Do you have any example about the suggestions?
I like so much the idea of the "set a global variable" I think the others ideas are also good but maybe are not so clear to me how to establish them

[charly.csh]

Hi Micron
How should I do this? I highly appreciate the help
With this new application I am doing I am learning so much =)

[Micron]

As in
Me.languagetxt.SetFocus
TextNumberX = Me.languagetxt.Text

Untested, so not sure. When you don't use .Text you use the default of .Value instead. As pointed out, at the time your code runs the control has no value so don't continue to use the form open event if you still are. Also, a control has to have the focus in order to use the .Text property so I added that.