ms-access - 如何搜索子表单并使用数据在另一个子表单中添加记录

Question

我有一个主表单 INVOICE，其中包含子表单 INVOICEDETAIL(ITEMID, InvoiceID, Quantity, Price) 和子表单 ALLITEMS（主键 ITEMID 和子表单只读）。

INVOICE 通过 InvoiceID 字段链接到 INVOICEDETAIL，而 INVOICE 没有链接到 ALLITEMS，因此所有项目都显示在 ALLITEMS 中。

我希望用户能够双击 ALLITEMS 子表单上的项目，并将项目添加到 INVOICEDETAIL 子表单中。也许会弹出一个对话框让用户在 INVOICEDETAIL 中输入数量和价格，或者在 INVOICEDETAIL 中设置焦点让用户输入此信息。

你能帮我吗？

Answer 1

在 AllItems ID 控件的双击事件中可能有这样的内容：

Me.Parent.[InvoiceDetail Subform Control Name].SetFocus
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Me.Parent.[InvoiceDetail Subform Control Name].Form.ID = Me!ID
Me.Parent.[InvoiceDetail Subform Control Name].Form.Price.SetFocus

或者，运行附加查询：

strSQL= "Insert Into InvoiceDetail (ID, Price) " _
      & "Select ID, Price From AllItems " _
      & "Where ID=" & Me.ID

CurrentDB.Execute strSQL, dbFailOnError

然后，您需要重新查询 InvoiceDetail 子表单并找到相关 ID。