最新版2.4.1.412 通用附件保存新建文件夹方法-飘零
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


最新版2.4.1.412 通用附件保存新建文件夹方法

发表时间:2017/8/6 22:41:41 评论(0) 浏览(11128)  评论 | 加入收藏 | 复制
   
摘 要:最新版2.4.1.412 通用附件自定义文件夹
正 文:

最新版2.4.1.412 通用附件保存新建文件夹方法:

实现自定义文件夹

Private Sub Form_Load()
    ApplyTheme Me
    LoadLocalLanguage Me

    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "Select * FROM [tbl_姓名] Where [ID]=" & Nz(Me.OpenArgs, 0)
    End If


    If Me.DataEntry Then
        Me![ID] = Null
    End If
    '通过这行代码进行调用实现附件加载
    If Not IsNull(Me![姓名]) Then
        Dim CNN As Object
        Set CNN = GETADOCONNECTION()
         Me.sfrAttachments!txtAttachmentPath = Me.sfrAttachments!txtAttachmentPath & "\" & "甲醇\"
          Call Me.sfrAttachments.Form.LoadAttachmentData("甲醇中心", Me!姓名, CNN)
    End If

    Me.btnSave.Enabled = Me.AllowEdits
End Sub

···································································

Private Sub btnSave_Click()

    ························

    rst.Close

   'cnn.CommitTrans
   'blnTransBegin = False
   
 '保存附件
        Call Me.sfrAttachments.Form.SaveAttachmentData("甲醇中心", Me!姓名, CNN)


    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation


实现效果:

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access快速开发平台2.4.1版本通用附件使用办法  【MDZZ  2017/6/11】
Access开发平台2.4版本--用户角色/权限管理中功能名称有的...  【杜超  2017/6/19】
平台2.4如何修改生成主窗体的按钮标题   【MDZZ  2017/6/26】
新版平台2.4树控件权限异常,运行时错误91的解决方法  【KevinFan  2017/7/8】
快速开发平台-2.4版本IsLoaded函数,判断对象是否打开  【宏鹏  2017/7/12】
Access开发平台2.4版本--新增内账、外账自动切换功能  【杜超  2017/7/16】
2.4平台的权限控制问题--#13权限项【|】未定义,在【导入工资...  【MDZZ  2017/7/17】
Access开发平台2.4版--Error#2448您不能将数值指...  【杜超  2017/7/24】
常见问答
技术分类
相关资源
文章搜索
关于作者

飘零

文章分类

文章存档

友情链接