Newsgroup: it.comp.appl.access
Titolo: Breve considerazione su recupero tabelle eliminate per sbaglio...

Buongiorno a tutti,
come da oggetto, ho affrontato il problema di dover recuperare una
tabella eliminata per errore in un archivio creato con Access 2003...
Ho letto parecchi post relativi a questo problema sul group, e ho letto
l'articolo di Microsoft, nel quale si allega questa funzione:
----------------------------------------------------------------------------------------------------
Function UnDeleteTable(Optional sName As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim sTable As String
Dim sSQL As String
Dim sMsg As String
    If IsMissing(sName) Then sName = "RestoredTable"
    If Len(sName) = 0 Then sName = "RestoredTable"
    Set db = CurrentDb()
    For Each tdf In db.TableDefs
        If Left(tdf.Name, 4) = "~tmp" Then
           sTable = tdf.Name
           sSQL = "SELECT [" & sTable & "].* INTO " & sName
           sSQL = sSQL & " FROM [" & sTable & "];"
           db.Execute sSQL
           sMsg = "A deleted table has been restored as " & sName
           MsgBox sMsg, vbOKOnly, "Restored"
           GoTo Exit_Undelete
        End If
    Next
    MsgBox "Non esistono tabelle da recuperare", vbOKOnly, "Niente da
fare..."
Exit_Undelete:
     Set db = Nothing
     Exit Function
Err_Undelete:
     MsgBox Err.Description
     Resume Exit_Undelete
End Function
---------------------------------------------------------------------------------------------------------------------------
con le seguenti condizioni:
·	Il database non si è chiuso dal momento che l'eliminazione della
tabella.
·	Il database non si è compattato dal momento che l'eliminazione
della tabella.
·	La tabella si eliminava utilizzando l'interfaccia utente di
Microsoft Access.
Ho aperto con il bloccoNote l'archivio ed ho scoperto che i dati erano
ancora lì...
Sebbene abbia chiuso e aperto più volte l'archivio (non compattato
però), con somma testardaggine ho provato ugualmente ad utilizzare
tale funzione, e sorpresa!!!!!!!!!!!!!!
HA FUNZIONATO!!!!!!!!!!!!!!!!!!!!!!!
qualcuno mi sa spiegare il motivo?
P.S. Ho scritto questo post solo ed esclusivamente perchè di
pasticcioni come me penso ce ne siano molti, e se adesso od in futuro
questo post possa essere utile anche solo ad una persona, come voi lo
siete tutti giorni per me... beh.... tanto piacere...
AUGURI DI BUON NATALE A TUTTI!!!!!!!!!!!!!!!!!!!!

 ha scritto nel messaggio 
news:1166797555.0...@h40g2000cwb.googlegroups.com...
Buongiorno a tutti,
come da oggetto, ho affrontato il problema di dover recuperare una
tabella eliminata per errore in un archivio creato con Access 2003...
Ho letto parecchi post relativi a questo problema sul group, e ho letto
l'articolo di Microsoft, nel quale si allega questa funzione:
    Buono a sapersi
AUGURI DI BUON NATALE A TUTTI!!!!!!!!!!!!!!!!!!!!
    Altrettanto
Michele 

 ha scritto nel messaggio 
news:1166797555.0...@h40g2000cwb.googlegroups.com...




    Set db = CurrentDb()

           db.Execute sSQL




End Function
---------------------------------------------------------------------------------------------------------------------------
con le seguenti condizioni:



per caso il db è diviso?
P.S. Ho scritto questo post solo ed esclusivamente perchè di
pasticcioni come me penso ce ne siano molti, e se adesso od in futuro
questo post possa essere utile anche solo ad una persona, come voi lo
siete tutti giorni per me... beh.... tanto piacere...
AUGURI DI BUON NATALE A TUTTI!!!!!!!!!!!!!!!!!!!!
 Buon Natale anche a te e famiglia
Daniele