一、学员问题描述:
企业版:上海--小琪-151期 13:46:39
请问老师,我用Access快速开发平台开发的软件,使用通用附件功能,请问新增记录的时候,如何要求必须上传附件呢?
二、解决方法:
在新增编辑窗体的保存按钮代码里面,加如下代码:
'附件不能为空
If Me.sfrAttachments.Form.txtCurrent = "(无)" Then
MsgBox "你输入的数据在保存的时候没有添加附件,该单据必须上传附件,请添加至少一个附件!", vbCritical, "警告"
Me.sfrAttachments.SetFocus
Exit Sub
End If
如果代码不会改的,请下载示例参考用法,就可以学会了。
示 例:
点击下载此盟威Access快速开发平台V2.6.6版(32位).zip附件
图 示:
1、如果保存记录时候没有添加附件,则弹出如下提示:
2、添加至少一张图片或者附件上传功能,则才能保存记录成功,如下图: