Vba 使用变量引用Access中的窗体

我正在尝试编写可由多种不同形式使用的代码。 我的问题是我找不到正确的表格参考

这是我的密码：

Dim FormNaam As String

FormNaam = Screen.ActiveForm.Name

'Realisatie_Euro 6_Transferstraat1
If Forms!Productie_Blok1!txtReal_1_1.Enabled = True Then
    rst.AddNew
    rst!Productielijn = Productielijn
    rst!Lijngedeelte = DLookup("LijngedeelteNr", "TblLijngedeelte", "
[productielijn] = productielijn and [omschrijving] = '" & Forms!
(FormNaam)!lbl_1.Caption & "'")

给出错误的代码是：

DLookup("LijngedeelteNr", "TblLijngedeelte", "[productielijn] = 
productielijn and [omschrijving] = '" & Forms!(FormNaam)!lbl_1.Caption & "'")

运行此命令时，我收到一个编译错误，表示类型声明字符与声明的数据类型不匹配。我试过各种组合，但都没用

所以我的问题是：如何使用变量作为表单名称引用表单上的特定字段

提前谢谢。

不是

Forms!constantFormName!Property

或

因此：

或者更直接一点：

Dim myForm As Access.Form
Set myForm = Screen.ActiveForm

"...[omschrijving] = '" & myForm!lbl_1.Caption & "'"

---

谢谢Andre，FormsFormNaam解决方案对我很有效。

Forms(FormNaam)!lbl_1.Caption

Dim myForm As Access.Form
Set myForm = Screen.ActiveForm

"...[omschrijving] = '" & myForm!lbl_1.Caption & "'"