Vba ms-access Loop Recordset 将信息打印到文本框

Question

我做了一个子程序，通过记录集删除表中的记录。 我想将被删除的记录的键打印到表单上的文本框中。 因此，每次删除后，必须将密钥添加到表单上的文本框中。

您可以在下面找到代码，它不会在表单上打印任何内容。

我错过了一些东西。

Public Sub Erase()
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim strOutput As String
    Dim i As Integer

    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("Table1", dbOpenDynaset) 'dynaset voor linked tables
  
    If rs1.EOF Then Exit Sub

    Do Until rs1.EOF
        If rs1!Icoon = "del" Then
            Debug.Print "Debug Print :" & rs1(0).Value
            strOutput = "Ent: " & rs1(0).Value & vbCrLf
            On Error Resume Next
            rs1.Delete
            txtOutput.value = strOutput
            i = DoEvents
        End If
        rs1.MoveNext
    Loop
    
    rs1.Close
    Set rs1 = Nothing
    Set db = Nothing
End Sub

Answer 1

忘记表格... txtOutput.value = strOutput 应该是：[Forms]![Frm_Main]![txtOutput] = strOutput