盟威快速开发平台2.5.1版本退出没有备份提醒的解决方法-宏鹏
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access开发平台


盟威快速开发平台2.5.1版本退出没有备份提醒的解决方法

发表时间:2020/7/22 9:17:03 评论(0) 浏览(3893)  评论 | 加入收藏 | 复制
   
摘 要:没有备份提醒的解决方法。
正 文:

问题描述:

盟威Access快速开发平台启用了自动备份功能,但是退出时候没有备份提醒,


解决方法:

因为平台系统参数有调整,需要用下面的代码替换SysFrmMain窗体的卸载事件,


Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Dim intResult As Long
    
    If Not IsLoggedRDP Then Exit Sub
    If GetParameter("Stop Confirm When Close Main Form", dbBoolean, False) Then Exit Sub
    Select Case GetDatabaseConfig(dptDatabaseType)
    Case "Access"
        If GetParameter("Access - Enabled Auto Backup", dbBoolean, False, OnServer:=True) Then
            If GetParameter("Access - Confirm Before Backup", , False, OnServer:=True) Then
                intResult = MsgBoxEx(LoadString("Do you want to backup database?"), _
                                     vbQuestion + vbYesNoCancel + vbDefaultButton2)
                DoEvents
                Select Case intResult
                Case vbYes:     BackupAccessDB
                Case vbNo:      DoEvents
                Case vbCancel:  Cancel = True
                End Select
            Else
                BackupAccessDB
            End If
        End If
    End Select
End Sub
这样,快速开发平台在退出的时候就弹出下面的确认框,用户可以选择是否进行备份。



Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access快速开发平台--数据库备份  【仙来  2018/10/29】
SQL按月备份与还原  【宏鹏  2018/11/28】
快速开发平台企业版教程:SQL Server数据库自动备份及控制日...  【红尘如烟  2019/6/1】
Access2016出现VBA删除工程错误的解决方法,Access...  【麥田  2020/5/7】
SQL Server新建维护计划来实现自动备份,“代理 XP”组件...  【宏鹏  2020/7/12】
常见问答
技术分类
相关资源
文章搜索
关于作者

宏鹏

文章分类

文章存档

友情链接