[分享]恢复误删Table的数据

ak47m16

我也遇到着问题我也遇到着问题

nfwjyp

我也遇到这个问题了，能解决吗？

老眼夹

能否将代码注释一下,以便新学者能好理解!

Function UndoTable()


  Dim db As DAO.Database, strTablename As String
  Dim i As Integer, StrSqlString As String
  Dim strTemName As String
  Set db = CurrentDb()

  For i = 0 To db.TableDefs.Count - 1

    If Left(db.TableDefs(i).Name, 4) = "~tmp" Then
       strTablename = db.TableDefs(i).Name
       strTemName = Right(strTablename, Len(strTablename) - 4)
       StrSqlString = "SELECT DISTINCTROW [" & strTablename & _
         "].* INTO [" & strTemName & "] FROM [" & strTablename & "];"
       DoCmd.SetWarnings False
       DoCmd.RunSQL StrSqlString
       DoCmd.SetWarnings True
       MsgBox strTemName & "   Table 已恢复"
    End If
  Next i
  
Exit_Undo:
     Set db = Nothing
     Exit Function
Err_Undo:
     MsgBox Err.Description
     Resume Exit_Undo

End Function

illusion

真的很惨

天下有我师

这是什么原因，版主帮看，在线等

Option Compare Database

Private Sub Command0_Click()
    On Error GoTo err:
    Select Case Me.Frame1.Value
    Case 1    '表被删除
        If FnUndeleteObjects() = False Then
            Call FnUndeleteObjects
        End If
    Case 2    '表被改名
        If IsNull(Me.oldname) = True Then
            MsgBox "必须输入原来的表名!(未被更改过的)", vbCritical, "错误"
            Me.oldname.SetFocus
        Else
            Dim str_old As String
            Dim str_del As String
            str_old = Me.oldname
            str_del = "~TMPCLP" & str_old
            DoCmd.Rename str_old, acTable, str_del
        End If
    End Select
    Exit Sub
err:
    MsgBox err.Description & "您可能没有正确选择表丢失的原因"
    Resume Next
End Sub

Private Sub Frame1_AfterUpdate()    '
    Select Case Me.Frame1.Value
    Case 1
        Me.oldname.Visible = False
    Case 2
        Me.oldname.Visible = True
    End Select
End Sub

panblackbean

关闭了不就恢复了   以上方法使用欠佳   只有对深刻认识到这个问题的人有帮助


谁有accessfix软件有注册码的共享一下   破解版的

ABCaccess

谢谢你与大众分享

liaoliao

有用[:45] [:45]

itbill

www.office-cn.net

hxczyh

kkkkkkkkkkkkkkkkkkk