vba - MS Access 使用产品搜索创建销售系统

Question

我正在处理“frmSalesCreate”表单。这个想法是创建一个新的销售发票并在最后打印它。

我有 2 个子表单“sfrmSalesProdSearch”和“sfrmSalesProdList”。

我正在通过文本框过滤“sfrmSalesProdSearch”的记录源。

    Private Sub btnSearchProd_Click()
Dim SQL As String

SQL = " SELECT Products.ProdID, Makes.MakeName, Products.ProdModel, ProdType.TypeName, Products.ProdDesc, Products.ProdPrice " _
    & " FROM ProdType INNER JOIN (Makes INNER JOIN Products ON Makes.MakeID = Products.ProdMake) ON ProdType.TypeID = Products.ProdTypeID " _
    & " WHERE (((Products.ProdModel) Like '*" & Me.txtSearchProd & "*')) " _
    & " OR (((Products.ProdBarcode) Like '*" & Me.txtSearchProd & "*')); "

Me.frmSalesProdSearch.Form.RecordSource = SQL
End Sub

我面临的困难是如何获取“sfrmSalesProdSearch”的选定结果并将其插入“sfrmSalesProdList”。

“sfrmSalesProdList”的 Recordsource 是一个带有相关字段的临时表，我打算在关闭主窗体之前将其清空。因此“sfrmSalesProdList”仅显示进行新销售时添加的数据。

我不知道我是否在解释方面做得很好。任何帮助将不胜感激。谢谢

标签： vbaformsms-access