如何搜索子窗体并使用数据在另一个子窗体中添加记录

Question

我有一个具有子窗体INVOICEDETAIL（ITEMID，InvoiceID，Quantity，Price）和子窗体ALLITEMS（主键ITEMID和子窗体只读）的主窗体INVOICE。

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。