盟威快速开发平台2.5.1版本退出没有备份提醒的解决方法
时 间:2020-07-22 09:17:03
作 者:宏鹏 ID:21115 城市:上海
摘 要:没有备份提醒的解决方法。
正 文:
问题描述:
盟威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群 (群号:321554481) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)