Access开发平台--通用附件个性化路径存储,改进代码-leo
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


Access开发平台--通用附件个性化路径存储,改进代码

发表时间:2018/3/21 5:00:18 评论(2) 浏览(9653)  评论 | 加入收藏 | 复制
   
摘 要:通用附件个性化路径存储,改进代码,图片能按自己的想法分类
正 文:

看到杜超老师的通用附件个性化路径存储,觉得很受用,但是在操作上,比较容易出错,稍微加了代码  让实现更人性化

原来的示列地址 :Access开发平台--通用附件管理 个性化路径实现方法示例

http://www.accessoft.com/article-show.asp?id=10680


1.在设计的到新增客户时,若不设计客户类别更新,则原来的代码,添加图片会失效。所以 在窗体加载事件里加了 call 客户类别

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    Dim strSQL As String
    Dim cnn As Object           'ADODB.Connection
    ' Set cnn = CurrentProject.Connection

    Dim rst As Object           'ADODB.Recordset

    ApplyTheme Me
    If IsNull(Me.OpenArgs) Then
        Me.DataEntry = True
    End If
    If Me.DataEntry Then

    Call 客户类别_AfterUpdate '当设计有客户类别参数传递的时候, 新增的时候,客户类别 有时候不做改变 需要这个代码
        Exit Sub

其余代码省略----

--------------------

end sub


附   件:

点击下载此附件


图   示:

点击图片查看大图

2.在操作客户类别的时候,若设计到多次客户类别更新,会产生多级文件夹的问题,导致存储的文件和图片,存储不到对应的路径

所以在  

Private Sub 客户类别_AfterUpdate()
    Dim cnn As Object           'ADODB.Connection
    Set cnn = CurrentProject.Connection
    '指定多文件夹路径
    Me.sfrAttachments!txtAttachmentPath = Me.sfrAttachments!txtAttachmentPath & Me.客户类别 & "\"
    Me.sfrAttachments!txtAttachmentPath = CurrentProject.Path & "\Attachments\" & Me.客户类别 & "\" '改进的代码部分
 
End Sub


这样,在操作中,就算多次修改客户类别,都不会产生错误的路径.


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access开发平台--通用附件管理 个性化路径实现方法示例  【杜超  2016/2/22】
快速开发平台--最新平台通用附件管理如何上传附件或图片到服务器共享...  【杜超  2016/2/28】
Access开发平台--通用附件管理/删除附件功能代码  【杜超  2016/3/21】
Access开发平台--让通用附件模块支持ftp  【宽一  2016/4/25】
Access开发平台--通用附件管理_报表显示图片方法;Acces...  【杨雪  2016/9/13】
平台通用附件改进示例  【MDZZ  2017/1/23】
Access开发平台--通用附件文件名自动生成,设计思路及实现代码  【小司  2017/4/8】
常见问答
技术分类
相关资源
文章搜索
关于作者

leo

文章分类

文章存档

友情链接