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

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

原来的示列地址：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

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