添加附件功能
在上一节,实现了资料的录入,但没有附件(例如PDF文件、图片等)的管理,因此,需要对【扫描件信息维护】界面进行完善,添加上附件的管理功能。
在对附件进行管理时,一般是将附件放在一个文件夹中(局域网多用户使用时放在共享文件夹或FTP中,互联网多用户使用时放在FTP中),这时需要指定共享文件夹的位置。
相关代码
'在代码行rst.Close的下方,添加代码:
'“资料”二字不能为变量
Call Me.sfrAttachments.Form.SaveAttachmentData("资料", Me!SID, cnn)
'在窗体的加载事件中写显示附件的代码:
Dim cnn: Set cnn = CurrentProject.Connection
Call Me.sfrAttachments.Form.LoadAttachmentData("资料", Me!SID, cnn)
视频讲解
点击:https://m.qlchat.com/wechat/page/topic-intro?topicId=2000016584815038 (打开网页后用微信扫描登录)