快速开发平台通用附件功能开发(三)
时 间: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.ConnectionCall Me.sfrAttachments.Form.LoadAttachmentData("资料", Me!SID, cnn)
另外,由于新增模式下保存后Edit窗体不会关闭,所以在InitData()函数中需要再次调用进行重新初始化,添加一行代码:
Call Me.sfrAttachments.Form.LoadAttachmentData("资料", Me!SID)
添加代码后,如图15所示。
图15 实现附件管理功能(15)
到这里,附件功能的开发就完成了。
Access快速开发平台QQ群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)