Office中国论坛/Access中国论坛

标题: 求助！窗体控件引用 [打印本页]

作者: huangxiuwen 时间: 2008-5-2 14:39
标题: 求助！窗体控件引用
请教各位高人。因为“窗体名1”经常变化。并不固定。如何把以下语句：
[Forms]![窗体名1].[供应商] = [Forms]![窗体名2].[子窗体].[Form]![客户]

改成：

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

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

作者: huangxiuwen 时间: 2008-5-2 15:23
顶上去.........................

作者: 红尘如烟 时间: 2008-5-2 15:38
Dim frmName As String
frmName="窗体名１"
CurrentProject.AllForms(frmName).供应商＝Forms!窗体2.子窗体.Form![客户]

作者: cclxf 时间: 2008-5-2 17:04
三楼的方法应该可以实现.

作者: huangxiuwen 时间: 2008-5-2 19:47
感谢“红尘如烟”与“cclxf”的关注与解答。除了“红尘如烟”的方法之外，小弟今天下午还找到了另一种答案。该问题已经解决。方法如下：
Dim 　A 　 As　 String

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)