在Access VBA中运行DoCmd.Requery时，列表框记录取消选择

Question

在我的应用程序中，用户正在从要编辑的列表框中选择记录。 但是，在他们能够进行编辑之前，还有一个附加查询，以确保他们要更改的信息正确无误。 以下是流程：

1. 用户输入一个Item_Number，然后单击一个按钮以查询数据库中包含该Item_Number的所有位置。 这些填充到列表框中。
2. 用户从列表框中选择他/她希望编辑的位置
3. 用户为所选项目输入新的Last_Cost和/或新的Vendor_ID，然后单击以确认编辑
4. 在VBA中，存在针对另一个数据库的查询，以确保新的Vendor_ID有效
5. 流程继续

问题是当重新查询的VBA代码

DoCmd.Requery (VendorNumbers)

执行时，它将取消选择列表框中的所有选定位置。 我已经能够将问题缩小到VBA代码的这一部分。

我想知道是否有办法确保所选记录保持选中状态，或者是否有办法存储选择了哪些行，以便在运行重查询代码后可以再次引用它们？

整个代码。 它可能看起来有些混乱，因为我没有任何关于“我”的记录。

Private Sub EditInLocationsButton_Click()
 EditVendorIDFixed = Null
 EditVendorIDFixed = "               " & EditVendorIDInput

 DoCmd.Requery (VendorNumbers)
 If EditVendorIDFixed = "               " Or DCount("*", "VendorNumbers") > 0 Then
    EditResponse = MsgBox("Are you sure you want to edit the selected items?", vbYesNo, "Edit Selected Items?")
    If EditResponse = vbYes Then
        'EditItemNumberResultsList.RowSource = ""
        Dim i As Integer
        For i = 0 To EditItemNumberResultsList.ListCount - 1
            If EditItemNumberResultsList.Selected(i) Then
                LastCost = EditItemNumberResultsList.Column(4, i)
                EditID = EditItemNumberResultsList.Column(5, i)
                VendorID = EditItemNumberResultsList.Column(6, i)
                'MsgBox for verification purposes
                MsgBox (LastCost & "-" & EditID & "-" & VendorID)
                If EditLastCostInput = Null Then
                    LastCostforEditQuery = LastCost
                Else
                    LastCostforEditQuery = EditLastCostInput
                End If

                If EditVendorIDInput = Null Then
                    VendorIDforEditQuery = VendorID
                Else
                    VendorIDforEditQuery = EditVendorIDFixed
                End If
            End If
            txtEditID = EditID
            With DoCmd
                .SetWarnings False
                .OpenQuery "EditIminvlocRecords"
                .SetWarnings True
            End With
        Next i
        MsgBox ("The selected plants have been updated.")
    End If
Else
    MsgBox ("Error: The requested Vendor ID does not exist.")
End If
End Sub

以下是VendorNumbers查询：

SELECT dbo_apvenfil_sql.vend_no
FROM dbo_apvenfil_sql
WHERE (((dbo_apvenfil_sql.vend_no)=[Forms]![EditItemsInExistingPlants]![EditVendorIDFixed]))
ORDER BY dbo_apvenfil_sql.vend_no;

再次，这只是为了验证他们输入的Vendor_ID是否有效，即是否存在现有行。

Answer 1

我认为这可能是最好的选择，因为我不知道您是否能够阻止重新查询引起刷新。 我会撒谎说我已经测试了这个SQL，但这是我将如何执行您要寻找的内容的基本思想。 基本上无需重新查询VendorNumber，而只是在VBA中直接运行它即可。 这还假定EditItemsInExistingPlants是运行此代码的表单，如果不运行，则进行适当调整。

Private Sub EditInLocationsButton_Click()
     EditVendorIDFixed = Null
     EditVendorIDFixed = "               " & EditVendorIDInput

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

    strSQLQuery = "SELECT dbo_apvenfil_sql.vend_no " & _
                  "FROM dbo_apvenfil_sql " & _
                  "WHERE (((dbo_apvenfil_sql.vend_no)= " & Me.EditVendorIDFixed & ")) " & _
                  "ORDER BY dbo_apvenfil_sql.vend_no"

    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQLQuery, dbOpenDynaset)

     If EditVendorIDFixed = "               " Or rs.Count > 0 Then
        EditResponse = MsgBox("Are you sure you want to edit the selected items?", vbYesNo, "Edit Selected Items?")
        If EditResponse = vbYes Then

            'EditItemNumberResultsList.RowSource = ""
            Dim i As Integer
            For i = 0 To EditItemNumberResultsList.ListCount - 1
                If EditItemNumberResultsList.Selected(i) Then
                    LastCost = EditItemNumberResultsList.Column(4, i)
                    EditID = EditItemNumberResultsList.Column(5, i)
                    VendorID = EditItemNumberResultsList.Column(6, i)
                    'MsgBox for verification purposes
                    MsgBox (LastCost & "-" & EditID & "-" & VendorID)
                    If EditLastCostInput = Null Then
                        LastCostforEditQuery = LastCost
                    Else
                        LastCostforEditQuery = EditLastCostInput
                    End If

                    If EditVendorIDInput = Null Then
                        VendorIDforEditQuery = VendorID
                    Else
                        VendorIDforEditQuery = EditVendorIDFixed
                    End If
                End If
                txtEditID = EditID
                With DoCmd
                    .SetWarnings False
                    .OpenQuery "EditIminvlocRecords"
                    .SetWarnings True
                End With
            Next i
            MsgBox ("The selected plants have been updated.")
        End If
    Else
        MsgBox ("Error: The requested Vendor ID does not exist.")
    End If
End Sub