ms-access - 从列名所在的第一行获取值

Question

我有一个用户插入一些值的表单

当用户单击“确定”按钮时，Access 创建一个新表以保存表单关闭时消失的值。

strSQL = "CREATE TABLE tblTempProjectGegevens (Project varchar(32),ProjectNummer varchar(32), Opdrachtgever varchar(32));"

DoCmd.RunSQL (strSQL)

strSQL = "INSERT INTO tblTempProjectGegevens (Project, ProjectNummer, Opdrachtgever)" & _
         "VALUES ('" & ProjectInvoer.Value & "', '" & ProjectNrInvoer.Value & "', '" & OpdrachtgeverInvoer.Value & "');"

DoCmd.RunSQL (strSQL)   

DoCmd.OpenForm "frmMain", acNormal, , , acFormAdd
DoCmd.Close acForm, "frmProjectInvoer", acSaveNo

我将这些值保存在表格中，因为我的程序需要关闭表单。

当用户使用完我的访问文件后，会打印一些报告。在这些报告上是我想要保存在临时表中的值的标题。

如何从我的报告标题中的表格中获取值？在 report_load() 事件期间？

Answer 1

Private Sub Report_Open(Cancel as Integer)
Dim db as Database
Dim rec as Recordset

Set db = CurrentDb
Set rec = db.OpenRecordset("tblTempProjectGegevens")

Me.Project.Value = rec("Project")
Etc...

End Sub