求助！窗体控件引用

huangxiuwen

请教各位高人。因为“窗体名1”经常变化。并不固定。如何把以下语句：
[Forms]![窗体名1].[供应商] = [Forms]![窗体名2].[子窗体].[Form]![客户]

改成：

把经常变化的“窗体名1”赋予变量Ａ，然后通过变量Ａ来引用。小弟把语句改成如下；但出错。
Dim Ａ As String
Ａ＝“窗体名1”
[Forms]![　&   Ａ  &  ].[供应商] = [Forms]![窗体名2].[子窗体].[Form]![客户]


跪求高人帮小弟改一下语句。谢谢！

huangxiuwen

顶上去.........................

红尘如烟

Dim frmName As String
frmName="窗体名１"
CurrentProject.AllForms(frmName).供应商＝Forms!窗体2.子窗体.Form![客户]

cclxf

三楼的方法应该可以实现.

huangxiuwen

感谢“红尘如烟”与“cclxf”的关注与解答。除了“红尘如烟”的方法之外，小弟今天下午还找到了另一种答案。该问题已经解决。方法如下：
Dim  　A 　 As　  String

A = Forms!共同_货物名_主.D

  Forms(A).[子窗体].[Form]![物料编码] = [Forms]![共同_货物名_主].[子窗体].[Form]![产品编码]