在 Form 的文本框中显示 RecordSet

Question

我创建了一个记录集代码，用于比较企业 ID 以抓取到过该企业的每个客户。我想通过 ubounded 文本框或任何最适合 Access 的方式将这些数据传递到表单上。当我通过在我的记录集 Forms!Form.Badge = StrBusinesses 中使用此代码将其存储到记录集中的无界文本框中时，它不会在每个 record/business ID 的表单上唯一显示。当我滚动浏览每条记录时，它对每家企业都显示相同。

如何让记录集在表单上对每条记录唯一显示？

Public Sub OpenRecordset()
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs("QOff2")
    qdf.Parameters(0).Value = [Forms]![Form]![Text10]

    Dim db As Database
    Dim rs As Recordset
    Dim StrBusinesses As String

    Set rs = qdf.OpenRecordset

    If rs.EOF And rs.BOF Then
        MsgBox ("No businesses exist for this Customer")
        Exit Sub
    Else
        rs.MoveFirst
    End If

    StrBusinesses = ""
    Do While Not rs.EOF
        StrBusinesses = StrBusinesses & rs!Fnam & ", "
        rs.MoveNext
    Loop

    rs.Close

    StrBusinesses = Left(StrBusinesses, Len(StrBusinesses) - 2)
    Forms!Form.Badge = StrBusinesses

    Set rs = Nothing
End Sub

我的查询sql代码：

SELECT badgeno, FNAM, filenum
FROM ((INC LEFT JOIN AIO ON INC.NUM = aio.NUM) LEFT JOIN off ON aio.FNUM = off.FNUM) LEFT JOIN all ON aio.AIO_NUM = all.ALGNUM
WHERE (((FILENUM)=[forms]![form].[text10]));

我通过在我的表单上创建一个无界文本框并将其命名为 badge (Forms!Form.Badge) 来在表单上显示它。当我按下 run/green 播放按钮时，它会更新每种形式的所有无界文本框，所以当我看到下一条记录时，它在上一条记录上说的是同样的事情。另外，我希望它在不按下模块中的绿色播放按钮的情况下自动显示。

Answer 1

您可以像这样更改文本框分配代码

Me.yourtextboxname.value = StrBusinesses

在 Form 的文本框中显示 RecordSet

Displaying RecordSet in textbox on Form

ms-access

vba

ms-access-2007