步骤10：

窗体界面调整好之后，需要在保存按钮添加代码。

①选中【保存(S)】按钮

②在功能区单击【属性表】

③在属性【事件】选项卡中

④找到【单击】事件，如图12所示。

步骤11：

单击【单击】事件右边的【…】按钮，进入代码窗口，如图13所示。

步骤12：

在代码行rst.Close的下方，添加代码：

'“资料”二字不能为变量
Call Me.sfrAttachments.Form.SaveAttachmentData("资料", Me!SID, cnn) 
添加代码后，如图14所示。

图14 实现附件管理功能(14)

步骤13：

这时，实现了保存附件的功能，在窗体打开时，还需要在窗体的加载事件中写显示附件的代码：

Dim cnn: Set cnn = CurrentProject.Connection
Call Me.sfrAttachments.Form.LoadAttachmentData("资料", Me!SID, cnn) 
另外，由于新增模式下保存后Edit窗体不会关闭，所以在InitData()函数中需要再次调用进行重新初始化，添加一行代码：
Call Me.sfrAttachments.Form.LoadAttachmentData("资料", Me!SID) 
添加代码后，如图15所示。

到这里，附件功能的开发就完成了。