Vba ms-access 循环记录集打印信息到文本框

Question

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

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

我遗漏了一些东西。

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

Vba ms-access 循环记录集打印信息到文本框

Vba ms-access Loop Recordset Print info to textbox

vba

textbox

loops

recordset