создание базы данных документа

Question

Я просматриваю старую почту, в которой было мое решение - «Создание базы данных документов с использованием Microsoft Access» с ответом, предоставленным Renaud BomPuis, в форме примерной базы данных (https://dl.dropboxusercontent.com/u/52900980/StackOverflow/SO25044339.accdb).

Я смог обработать исходный код для этого в соответствии с моими потребностями и успешно вставить его в свою основную базу данных. Единственная проблема, с которой я сталкиваюсь, заключается в том, что она создает новую запись в неправильном для меня месте. Когда пользователь нажимает «Загрузить файл», создается новая запись и открывается форма, позволяющая выбрать файл с помощью диалогового окна файла. Но если пользователь меняет свое мнение и клики отменяют, запись уже создана, но пустой путь к файлу.

Хотелось бы создать только новую запись, если пользователь ее подтвердит, но я не могу манипулировать кодом в правильном порядке, чтобы он работал.

Помогите пожалуйста? Большое спасибо.

EDIT: Код с комментариями

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 

Answer 1

Это не будет тривиальное изменение, так как (я предполагаю) frmDocSelect зависит от существующей записи в tblDocuments.

Лучший способ продолжить - это, вероятно, просто удалить новую запись, если пользователь нажмет Отмена.

Что-то вроде

Sub cmdCancel_Click() 
    Dim DocID As Long 
    DocID = Me.DocID 
    ' Close form before deleting, to avoid a flicker of "#Deleted" 
    DoCmd.Close acForm, Me.Name, acSaveNo 
    CurrentDb.Execute "DELETE * FROM tblDocuments WHERE DocID=" & DocID 
End Sub