删除库中的数据？？

8dlt1974

      我做了一个Acess数据库，现在想让这个文件一打开不要任何提示就清空里面的各种数据，只留下库结构。怎样操作呀？？？

ququ

  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 "初始化窗体"