Office中国论坛/Access中国论坛

标题: 删除库中的数据？？ [打印本页]

作者: 8dlt1974 时间: 2004-2-23 23:35
标题: 删除库中的数据？？
我做了一个Acess数据库，现在想让这个文件一打开不要任何提示就清空里面的各种数据，只留下库结构。怎样操作呀？？？

作者: ququ 时间: 2004-2-24 00:00
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&ID=14889

看看里面的清空数据画面,可把它就在FORM_LOAD事件中,即一起动就清空

Dim strMessage As String
Dim intOptions As Integer
Dim bytChoice As Byte
Const conAppname = "

oseSky进销存管理系统"
strMessage = "将清空所有的数据！继续么？"
intOptions = vbQuestion + vbOKCancel
bytChoice = MsgBox(strMessage, intOptions, conAppname)

If bytChoice = vbCancel Then
DoCmd.Close
Else
FileCopy CurrentProject.Path & "\" & "

oseSky_bak.mdb", _
CurrentProject.Path & "\" & "

oseSky_be.mdb"
      DisplayMessage ("数据清空完毕，管理员密码恢复为 PoseSky ，请即更改！")
      AddhowDolog "清除数据库所有信息"
      DoCmd.Close
      DoCmd.OpenForm "初始化窗体"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)