简单使用记录集在报告中查找文本框值

Question

我正在尝试学习如何在 VBA 中使用记录集并从这里开始。我想从 ProductVars table 中查找值并将每个记录 [ProductID].

的值填充到报告的文本框中

我想要的值是字段 [Name]="Hinging"，我需要它将字段 [Value] 中的值发送到报表上的 txtHinge 文本框。

这是我当前的代码。

Private Sub Report_Load()

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb

'Open a table-type Recordset
Set rs = db.OpenRecordset("ProductVars")

'Find the value of Hinging from the Name field Name and populate to txtHinge 
for the ProductID

Do Until rs.EOF
Me.txtHinge = rs!Name.Hinging.Value
rs.MoveNext
Loop

End Sub

如有任何帮助，我们将不胜感激。

Answer 1

在文本框 ControlSource 中：

=DLookup("[Value]", "PRODUCTVARS", "[Name]='Hinging' AND ProductID=" & [ProductID])

或者如果必须考虑多个动态参数：

=DLookup("[Value]", "PRODUCTVARS", "[Name]='" & [Name] & "' AND ProductID=" & [ProductID])

如果是后者，可能只需将 PRODUCTVARS table 包含在具有复合连接的报告 RecordSource 中。

简单使用记录集在报告中查找文本框值

simple use recordset to find text box value on report

ms-access

vba

recordset