Access快速开发平台--图片附件功能，如何限制用户只能添加一张照片附件？

时　间:2026-05-29 10:07:08
作　者:麥田   ID：11  城市：上海  QQ：20099004
摘　要:平台的附件功能，如何限制用户只能添加一张照片。
正　文:

一、学员问题描述：
企业版:石家庄-鸿升业-174期
请教一下老师，在Access快速开发平台的图片附件功能中，平台的附件功能如何限制用户只能添加一张照片附件？如下图：


二、解决方法：
可以用代码Dcount函数判断大于1，就禁止保存数据进行控制。（如果你要控制保存图片附件的其他数量，如最多只能添加3个图片附件，则下面代码里面的1改成3即可。）

把下面代码添加到Edit窗体的保存按钮单击事件过程里面，代码如下:
    '用Dcount函数判断大于1，就禁止保存数据进行控制。（如果你要控制保存图片附件的其他数量，如最多只能添加3个图片附件，则下面代码里面的1改成3即可。）
    Me.附件数量 = DCount("id", "TMP_Attachments", "DataCategory='需求审批单' and (Update_MODE='Add' or Update_MODE='None') ")
    If Me.附件数量 > 1 Then
        MsgBox "添加的图片附件数量只允许录入一张，请不要添加超过1张图片附件！！！", vbCritical, "友情提示！"
        Exit Sub
        Me.sfrAttachments!btnAdd.Enabled = False
        Me.sfrAttachments!btnDelete.Enabled = False
    Else
        Me.sfrAttachments!btnAdd.Enabled = True
        Me.sfrAttachments!btnDelete.Enabled = True
    End If

附   件:
点击下载盟威Access快速开发平台V2.6.6版(32位).zip示例
点击下载盟威Access快速开发平台V2.6.6版(64位).zip示例

实现后的效果如下图:

Access快速开发平台QQ群 (群号:321554481) 　　　　　　Access源码网店