[5分]如何将查询的结果双击直接加入到子窗体中

在数据表视图窗体的“品名 ID”字段的双击事件中，加入如下代码：

Dim SQL As String
Dim strCODE As String

DoCmd.SetWarnings False           

SQL = "INSERT INTO [出库子表] ([品名ID],[品名],[数量],[单价],[总价]) " & _
          "SELECT [SD销售订单查询YS].[产品ID],[SD销售订单查询YS].[品名规格],[SD销售订单查询YS].[数量],[SD销售订单查询YS].[单价],[SD销售订单查询YS].[金额] "  & _
          "FROM [SD销售订单查询YS] WHERE [产品ID] = '" & Me.产品ID.Text & "'"

DoCmd.RunSQL SQL, False
DoCmd.SetWarnings True

'到此已将数据插入到出库表中，如果你还想马上显示插入的数据，可再加入下面的代码：

strCODE =Me.产品ID.Text

Forms![你的出库子表所在窗体名称].[出库子表子窗体名称].Visible = True
Forms![你的出库子表所在窗体名称].[出库子表子窗体名称].Form.Filter = "[品名ID] = '" & strCODE & "'"

Forms![你的出库子表所在窗体名称].[出库子表子窗体名称].Form.FilterOn = True