添加附件功能

    在上一节，实现了资料的录入，但没有附件（例如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   (打开网页后用微信扫描登录)