Question

我在RecordSource中有一个带有查询的表单。我试图使用变量来获取字段中的值。我从表单上的标签中提取了几个公司名称，以构成字段名称。

这有效......

MsgBox ([M1SS Emp Nbr])

我从下面的表单标签中获取公司名称。这是M1SS。我不能使用包含[M1SS Emp Nbr]的变量来使用它。我得到的字符串值不是字段中的值。

strCurrent_Company_Name = Eval("Forms!StartUp.Label_Company_" & Int_Company_Chosen & ".Caption") 
'This returns M1SS

strCurrent_Company_Emp_Nbr_Field = strCurrent_Company_Name & " Emp Nbr"
'This returns M1SS Emp Nbr.

MsgBox (strCurrent_Company_Emp_Nbr_Field) 
'This returns M1SS Emp Nbr

我也尝试过：

MsgBox ("[" & strCurrent_Company_Emp_Nbr_Field & "]") 
'This returns [M1SS Emp Nbr] instead of the value.

和

strCurrent_Company_Emp_Nbr_Field = "([" & strCurrent_Company_Name & " Emp Nbr].Value)"

strCurrent_Company_Emp_Nbr_Field = Eval("(Me.[" & strCurrent_Company_Name & " Emp Nbr].Value)")

我希望这很容易理解。我曾使用VBA作为业余爱好。感谢您提前提供任何帮助！

Answer 1

这应该有效：

MsgBox Controls(Controls("Label_Company_" & Int_Company_Chosen).Caption & " Emp Nbr").Value

使用字段名

1 个答案: