access下如何恢复已经删除的记录；如何恢复已经删除的表、窗体等等对象

摘要：问题：如何恢复已经删除的记录；如何恢复已经删除的表、窗体等等对象1、我用DELETEFROMTABLE删除了一些记录，现在发现误删除了，该如...

问题：

如何恢复已经删除的记录；如何恢复已经删除的表、窗体等等对象

1、我用DELETEFROMTABLE删除了一些记录，现在发现误删除了，该如何恢复？

2、我直接手动删除或者用DROPTABLE删除了一个表，现在发现是误删除了，该如何恢复？

3、我手动删除了一个窗体，该如何恢复？

4、我删除了记录，可是数据库体积并没有减小，那么是否能找回记录呢？

回答：

1、已经删除的记录是无法恢复的，ACCESS不是FOXPRO，MDB格式不是DBF格式，没有逻辑删除和物理删除的概念，一旦删除就无法恢复了。

2、无法恢复，但是你可以查看一下，有没有隐藏的以"~"符号开头的表，更改该表的名称有可能找回你需要的表。

3、无法恢复，但是你可以查看一下有没有系统隐藏的对象，有时候对象被删除时系统并不直接删除，而是更改对象名后隐藏它。

4、数据库体积的确没有变小，你压缩修复数据库后体积就会变小了。那是因为在二进制上你的数据的确没有被删除，仍然存放在磁盘的某个扇区，但是微软没有提供MDB格式二进制组织方式的参考资料（微软也不会提供，其他第三方公司也没有权利直接反编译MDB格式）。至今为止，中国大陆我也没有看到过相关的参考资料。所以目前为止，你已经删除的数据是无法恢复的。但是你可以尝试使用磁盘恢复软件来找到恢复数据的方法，但是该方法不在本文讨论范围。

建议：在建立数据库结构时，可以在各个表中再多加一个ISDEL字段，删除记录时不使用DELETEFROM，而使用UPDATETABLESETISDEL=TRUE这样的语句，然后在界面上不显示ISDEL=TRUE的记录即可。

复制代码代码如下:

如果还没有被压缩理论上可以。试试这段代码吧。加在access模组中

恢復刪除的工作表(未被壓縮)

PublicFunctionFnUndeleteObjects()AsBoolean

OnErrorGoToErrorHandler:

DimstrObjectNameAsString

DimrsTablesAsDAO.Recordset

DimdbsDatabaseAsDAO.Database

DimtDefAsDAO.TableDef

DimqDefAsDAO.QueryDef

DimintNumDeletedItemsFoundAsInteger

SetdbsDatabase=CurrentDb

ForEachtDefIndbsDatabase.TableDefs

'Thisisactuallyusedasa'DeletedFlag'

IftDef.AttributesAnddbHiddenObjectThen

strObjectName=FnGetDeletedTableNameByProp(tDef.Name)

strObjectName=InputBox("AdeletedTABLEhasbeenfound."&_

vbCrLf&vbCrLf&_

"Toundeletethisobject,enteranewname:",_

"AccessUndeleteTable",strObjectName)

IfLen(strObjectName)>0Then

FnUndeleteTableCurrentDb,tDef.Name,strObjectName

EndIf

intNumDeletedItemsFound=intNumDeletedItemsFound+1

EndIf

NexttDef

ForEachqDefIndbsDatabase.QueryDefs

'Note'Attributes'flagisnotexposedforQueryDefobjects,

'WecouldlookuptheflagbyusingMSysObjectsbut

'newqueriesdon'tgetwrittentoMSysObjectsuntil

'Accessisclosed.Thereforewe'lljustcheckthe

'startofthenameis'~TMPCLP'...

IfInStr(1,qDef.Name,"~TMPCLP")=1Then

strObjectName=""

strObjectName=InputBox("AdeletedQUERYhasbeenfound."&_

vbCrLf&vbCrLf&_

"Toundeletethisobject,enteranewname:",_

"AccessUndeleteQuery",strObjectName)

IfLen(strObjectName)>0Then

IfFnUndeleteQuery(CurrentDb,qDef.Name,strObjectName)Then

'We'llrenamethedeletedobjectsincewe'vemadea

'copyandwon'tbeneedingtore-undeleteit.

'(Tobreakthecondition"~TMPCLP"infuture...)

qDef.Name="~TMPCLQ"&Right$(qDef.Name,Len(qDef.Name)-7)

EndIf

intNumDeletedItemsFound=intNumDeletedItemsFound+1

EndIf

NextqDef

IfintNumDeletedItemsFound=0Then

MsgBox"Unabletofindanydeletedtables/queriestoundelete!"

EndIf

SetdbsDatabase=Nothing

FnUndeleteObjects=True

ExitFunction:

ExitFunction

ErrorHandler:

MsgBox"ErroroccuredinFnUndeleteObjects()-"&_

Err.Description&"("&CStr(Err.Number)&")"

GoToExitFunction

EndFunction

PrivateFunctionFnUndeleteTable(dbDatabaseAsDAO.Database,_

strDeletedTableNameAsString,_

strNewTableNameAsString)

'Written18/04/2005

DimtDefAsDAO.TableDef

SettDef=dbDatabase.TableDefs(strDeletedTableName)

'RemovetheDeletedFlag...

tDef.Attributes=tDef.AttributesAndNotdbHiddenObject

'Renamethedeletedobjecttotheoriginalornewname...

tDef.Name=strNewTableName

dbDatabase.TableDefs.Refresh

Application.RefreshDatabaseWindow

SettDef=Nothing

EndFunction

PrivateFunctionFnUndeleteQuery(dbDatabaseAsDAO.Database,_

strDeletedQueryNameAsString,_

strNewQueryNameAsString)

'Written18/04/2005

'Wecan'tjustremovetheDeletedflagonqueries

'('Attributes'isnotanexposedproperty)

'SoinsteadwecreateanewquerywiththeSQL...

'Note:Can'tuseDoCmd.CopyObjectasitcopiesthedbHiddenObjectattribute!

IfFnCopyQuery(dbDatabase,strDeletedQueryName,strNewQueryName)Then

FnUndeleteQuery=True

Application.RefreshDatabaseWindow

EndIf

EndFunction

PrivateFunctionFnCopyQuery(dbDatabaseAsDAO.Database,_

strSourceNameAsString,_

strDestinationNameAsString)

'Written18/04/2005

OnErrorGoToErrorHandler:

DimqDefOldAsDAO.QueryDef

DimqDefNewAsDAO.QueryDef

DimFieldAsDAO.Field

SetqDefOld=dbDatabase.QueryDefs(strSourceName)

SetqDefNew=dbDatabase.CreateQueryDef(strDestinationName,qDefOld.SQL)

'Copyrootqueryproperties...

FnCopyLvPropertiesqDefNew,qDefOld.Properties,qDefNew.Properties

ForEachFieldInqDefOld.Fields

'Copyeachfieldsindividualproperties...

FnCopyLvPropertiesqDefNew.Fields(Field.Name),_

Field.Properties,_

qDefNew.Fields(Field.Name).Properties

NextField

dbDatabase.QueryDefs.Refresh

FnCopyQuery=True

ExitFunction:

SetqDefNew=Nothing

SetqDefOld=Nothing

ExitFunction

ErrorHandler:

MsgBox"Errorre-creatingquery'"&strDestinationName&"':"&vbCrLf&_

Err.Description&"("&CStr(Err.Number)&")"

GoToExitFunction

EndFunction

PrivateFunctionPropExists(PropsAsDAO.Properties,strPropNameAsString)AsBoolean

'Written18/04/2005

'Ifpropertiesfailtobecreated,we'lljustignoretheerrors

OnErrorResumeNext

DimPropAsDAO.Property

ForEachPropInProps

IfProp.Name=strPropNameThen

PropExists=True

ExitFunction'Shortcircuit

EndIf

NextProp

PropExists=False

EndFunction

PrivateSubFnCopyLvProperties(objObjectAsObject,OldPropsAsDAO.Properties,NewPropsAsDAO.Properties)

'Written18/04/2005

'Ifpropertiesfailtobecreated,we'lljustignoretheerrors

OnErrorResumeNext

DimPropAsDAO.Property

DimNewPropAsDAO.Property

ForEachPropInOldProps

IfNotPropExists(NewProps,Prop.Name)Then

IfIsNumeric(Prop.Value)Then

NewProps.AppendobjObject.CreateProperty(Prop.Name,Prop.Type,CLng(Prop.Value))

Else

NewProps.AppendobjObject.CreateProperty(Prop.Name,Prop.Type,Prop.Value)

EndIf

Else

WithNewProps(Prop.Name)

.Type=Prop.Type

.Value=Prop.Value

EndWith

EndIf

NextProp

EndSub

PrivateFunctionFnGetDeletedTableNameByProp(strRealTableNameAsString)AsString

'Written18/04/2005

'Ifanerroroccurshere,justignore(userwilloverridetheblankname)

OnErrorResumeNext

DimiAsLong

DimstrNameMapAsString

'LookuptheUnicodetranslationNameMappropertytotrytoguessthe

'originaltablename...(Access2000+only-anddoesn'talwaysexist?!)

strNameMap=CurrentDb.TableDefs(strRealTableName).Properties("NameMap")

strNameMap=Mid(strNameMap,23)'Offsetofthetablename...

'Findthenullterminator...

i=1

IfLen(strNameMap)>0Then

While(i<Len(strNameMap))And(Asc(Mid(strNameMap,i))<>0)

i=i+1

Wend

EndIf

FnGetDeletedTableNameByProp=Left(strNameMap,i-1)

EndFunction