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