Question

我正在使用MS Access 2016.我有一个我在表单中插入的多选表单（子表单）。我使用多选表单（子表单）对我要选择的数据执行选择。

我有一个＆＃34;编辑＆＃34;我的表单上的按钮何时将从多选表单（子表单）中当前选定的行检索数据到表单。多选表单（子表单）包含短文本，整数和日期/时间的所有结构采购订单值。下面是＆＃34;编辑＆＃34;单击按钮。

Private Sub cmdEdit_Click()
'check whether there is exists data in list
If Not (Me.Subform.Form.Recordset.EOF And Me.Subform.Form.Recordset.BOF) Then
'get data to text box control
With Me.Subform.Form.Recordset
Me.txtGLGPO = .Fields("PO")
Me.txtFabricDelivery = .Fields("Date")
Me.txtStyleNO = .Fields("Style No")
Me.txtGLA = .Fields("Lot No")
Me.txtFabrication = .Fields("Fabrication")
Me.txtWidth = .Fields("Fabric Cuttable Width")
Me.txtColour = .Fields("Colour")
Me.txtLbs = .Fields("Our Qty")
Me.txtYds = .Fields("Supplier Qty")
Me.txtFabricDelivery = .Fields("Date")
Me.txtFinishedGoods = .Fields("GSMBeforeWash")
Me.txtGSMsq = .Fields("GMS Per SqYD")
Me.txtPrintedRemarks = .Fields("Remark")
Me.txtFabricWeight = .Fields("Fabric Weight")
Me.txtUnitPrice = .Fields("Unit Price")
Me.txtName1 = .Fields("ShipName")
Me.txtGarmentDelDate = .Fields("Garment Delivery Date")
Me.txtLine = .Fields("Line")
Me.txtPOStatus = .Fields("POStatus")
Me.txtAmendment = .Fields("PO Amend No")
Me.txtGSMAfterWash = .Fields("GSMAfterWash")   
Me.Image97.Picture = Me.txtGarmentSketch & ""
'disable button edit
Me.cmdEdit.Enabled = True
End With
End If
End Sub

这项工作非常好，我对此按钮有疑问。我现在想要的是，在从多选表单（子表单）中选择我想要的数据后，我仍然可以点击＆＃34;编辑＆＃34;按钮以将所有选定的数据检索到表单上。上面的代码只能检索单个记录值。

PS。我也在这个论坛上发帖http://www.utteraccess.com/forum/index.php?showtopic=2047702 我无法获得更多可以帮助我解决这个问题的信息，因此，我也在这里发布。

Answer 1

它实际上是一个多选形式，我已经制作成子形式我可以在我的表单下插入以选择我需要的数据

然后你可以跳过所有代码，将主窗体和子窗体绑定到同一个记录源，并且 - 在子窗体中选择一个记录时 - 将主窗体设置为过滤器上的ID选择的记录。

从列表框中检索多个记录到表单

1 个答案: