Question

我正在尝试制作可以由多种不同形式使用的代码。我的问题是我无法正确获取表单引用。

这是我的代码：

PT3H

提供错误的代码是：

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 & "'")

运行时遇到编译错误，说明类型声明字符与声明的数据类型不匹配。我尝试了各种组合，但无法让它发挥作用。

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

提前致谢。

Answer 1

它要么

Forms!constantFormName!Property

或

Forms(strVarFormName)!Property

所以：

Forms(FormNaam)!lbl_1.Caption

或更直接一点：

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

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

使用变量引用Access中的表单

1 个答案: