您的位置：　首页 > 技术文章 > Access开发平台

快速开发平台通用附件功能开发(三)

来源:www.accessoft.com 点击数:5455 　 | 收藏 | 复制

时　间:2021-11-08 10:12:23
作　者:张志 ID：8 城市：上海 QQ：2851379730
摘　要:快速开发平台通用附件管理开发教程之三，适于V2.6.3及以后的版本。
正　文:

步骤10：

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

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

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

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

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

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

步骤11：

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

图13实现附件管理功能(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所示。