Ms access 如何执行保存为变量VBA的代码行

我有一张名为Frm_Dairy的表格和一张名为Frm_Bakery的表格

我在每一个字段中都有一个值。每个表单中的字段名称相同，但字段名称的开头是以太乳品店或面包店

例如： Frm_Dairy.Dairy_销售 或 Frm_面包房。面包房销售

我想执行以下代码： M_销售=Frm_Dairy.Dairy_销售

这很容易，但是如果我想让程序首先找出哪个窗体是活动的呢

M_Form=“Dairy”在本例中

因此，如果M_Form=“Dairy”，代码将是： M_Code=“M_Sales=Frm_”&M_表单和“&M_表单和”&M_Sales”

现在，如何执行M_Code变量以将数据存储到M_Sales中

---

我希望我已经问了足够详细的问题，谢谢你的帮助

要确定特定表单是否打开，请考虑：

If CurrentProject.AllForms("Dairy").IsLoaded Then
...
ElseIf CurrentProject.AllForms("Bakery").IsLoaded Then
...
End If

您描述需要引用字段，可能真的需要引用控件

动态构造表单和控件引用的几种方法。一种是使用ActiveForm属性，假设您要处理的表单具有焦点

Debug.Print Screen.ActiveForm.Controls（Screen.ActiveForm.Name&“\u Sales”）

另一种方法是将表单名作为过程的字符串参数传递

Debug.Print表单（strForm）.Controls（strForm和“\u Sales”）

---

如果控件没有表单名称前缀，则会更简单。

为什么有两个表单？表单绑定到哪些表？您正在将数据保存到哪个表中？谢谢6月7日。这接近于我所做的工作。我的问题不在于确定哪种形式是活动的。我正在尝试创建一个函数，该函数将根据活动的部门执行100行代码。代码行是相同的，除了引用字段的每行代码都以活动的部门开头。我还应该提到，有12个不同的部门，每个部门有12个字段。请参阅修订后的答案。那么您有12个相同的表单？我仍然想知道为什么不是一个表单。如果您有12个相同的表，那么应该是一个表，其中包含另一个部门ID字段。