创建文档数据库

Question

我偶然发现了一篇老帖子，上面有一个完美的解决方案来满足我的需求--“使用Microsoft Access创建文档数据库”，答案是由Renaud BomPuis以示例数据库(https://dl.dropboxusercontent.com/u/52900980/StackOverflow/SO25044339.accdb)的形式提供的。

我已经能够操作源代码来满足我的需要，并成功地将其插入到我的主数据库中。我唯一的问题是它在错误的时间点为我创建了一个新的记录。当用户单击“上传文件”时，将创建一个新记录，并打开一个表单，以便能够使用文件对话框选择文件。但是，如果用户改变主意并单击cancel，则该记录已经创建，但没有文件路径。

我希望只能够创建一个新的记录，如果用户确认它，但我似乎不能操纵代码到正确的顺序，它的工作。

有谁能帮帮忙吗？非常感谢。

编辑:注释中的代码

Private Sub btnUploadDoc_Click() ' Create a new record in the Documents table for the selected Works No 
Dim DocID As Variant 
Dim db As dao.Database 
Dim rs As dao.Recordset 

Set db = CurrentDb() 
Set rs = db.OpenRecordset("tblDocuments", dbOpenDynaset, dbFailOnError) 
With rs 
    .AddNew !WorksNo = cboWorksNo 
    .Update 
    .Move 0, .LastModified 
    DocID = !DocID 
    .Close 
End With 
Set rs = Nothing 
Set db = Nothing 
DoCmd.OpenForm "frmDocSelect", WhereCondition:="DocID=" & DocID 
End Sub