绝望和周末在望，在我解决这个问题之前，我不能停下来。请耐心等待...
- 我正在使用一个从 excel 文件中获取一些数据的子窗体。(搜索表单等功能(
-
使用提交按钮，我将搜索结果放入带有记录集的表中。(下面的代码(
这一切都很好！现在，我想从我刚刚使用以下代码添加的同一记录中打印报告。 我该怎么做？由于我目前使用的是没有record_ID的表单(因为它仅用于搜索(
如何使用当前的"item_ID"(我刚刚添加的那个(打印出报告???
Private Sub Submit_Click() Dim db As Database Dim rec As Recordset Set db = CurrentDb Set rec = db.OpenRecordset("Select * from inboundreturns_items") rec.AddNew rec("returnID") = Forms!inboundreturns.returnID.Value rec("ireq") = Me.ireq rec("item") = Me.Item rec("tasknumber") = Me.tasknumber rec("country") = Me.Country rec("engineername") = Me.engineer rec("connote") = Me.connote rec("status") = Me.Status rec.Update Set rec = Nothing Set db = Nothing End Sub
(仅供参考：该报告基于表格inboundreturns_items(
刚刚做了一个实验，这似乎有效。录制后。更新，尝试：
rec.MoveLast
DoCmd.OpenReport "reportname", , , "ItemID=" & rec!ItemID