Access 2002/VBA - 如何从查询中填充子表单以允许用户选择一行答案

【问题标题】：Access 2002/VBA - how to populate subform from query to allow user to select a rowAccess 2002/VBA - 如何从查询中填充子表单以允许用户选择一行
【发布时间】：2014-05-19 06:13:16
【问题描述】：

考虑：

我有一个表单，我需要在上面显示单个客户的付款事件。我不想显示支付表中的所有列，我想要用户友好的列名称，并且我希望 Access 显示一个弹出表单，如果用户单击表单的一行（支付事件），该表单会显示信息。

首先，我不确定 Access 2002 和 VBA 是否允许我这样做。其次，我不确定如何使表单上的个人付款事件可点击。

我假设我可以这样做：

strSQL = "SELECT payment.payment_id, payment_amount AS Amount, payment_date AS Date" & _
"FROM contact_payment, payment " & _
"WHERE contact_payment.contact_id =" & forms([ContactForm].contact_id & _
"AND payment.payment_id = contact_payment.payment_id"

为了获取可点击表单的数据。这是正确的方法，还是有更好的方法来实现？

【问题讨论】：

标签： ms-access vba

【解决方案1】：

您可以使用表单的DblClick 事件（或Click 事件）打开一个新表单：

Private Sub Form_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frmMoreInfo", , , "ID = " & ID
End Sub

【讨论】：

谢谢@E Mett - 这听起来像是要走的路！我会尝试这个解决方案并接受你的回答。