从列名为<value> </value>的第一行获取值

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