ACC: Het herstellen van een verwijderd uit een data base tabel

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 179161 - Bekijk de producten waarop dit artikel van toepassing is.
Matig: Basic macro, codering en interoperabiliteit vaardigheden vereist.
Alles uitklappen | Alles samenvouwen

Samenvatting

In dit artikel ziet u een voorbeeld van Visual Basic for Applications maken de functie die u gebruiken kunt voor het herstellen van een tabel verwijderen uit een Microsoft Access voor Windows 95 en Microsoft Access 97-data base onder de volgende voorwaarden:
  • De data base is niet gesloten nadat de verwijdering van de tabel.
  • De data base is niet gecomprimeerd nadat de verwijdering van de tabel.
  • De tabel is verwijderd via de gebruikersinterface van Microsoft Access.
Opmerking: Als u meerdere tabellen per ongeluk zijn verwijderd, deze functie Hiermee herstelt u alleen de laatste tabel die is verwijderd. De andere tabellen gaan verloren.
Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Meer informatie

De volgende voorbeeld functie herstelt de laatste tabel verwijderd binnen een Microsoft Access-database. De voorbeeld functie maken, volgt u deze stappen.

Opmerking: Deze stappen wordt ervan uitgegaan dat u de voorbeeld functie voor maakt toekomstig gebruik. Als de code in plaats aan een data base in direct toevoegen die onlangs een tabel is verwijderd, slaat u stap 1, omdat als u Wordt gesloten of de data base in de verwijderde tabel is niet terug te vorderen.
  1. Open de data base in Microsoft Access.
  2. Klik op het tabblad Modules in het data base venster en klik vervolgens op Nieuw.
  3. Typ of plak de volgende code in de module die u zojuist hebt gemaakt:

    Opmerking: In de volgende voorbeeldcode wordt een onderstrepings teken (_) aan het einde van een regel gebruikt als regel voortzettings teken geeft aan dat de code blijft van de ene regel naar de volgende. U kunt regels met typen Dit teken als één logische regel of u kunt de code regels verdelen en de regel vervolg teken bevatten. Voor extra informatie raadpleegt u het Leesmij-bestand File(Acread80.wri) voor Microsoft Access 97. Dit bestand is standaard geïnstalleerd in C:\Program Files\Microsoft Office\Office..
        Function undo()
    
          Dim db As Database, strTablename As String
          Dim i As Integer, StrSqlString 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
             StrSqlString = "SELECT DISTINCTROW [" & strTablename & _
               "].* INTO MyUndeletedTable FROM [" & strTablename & "];"
             DoCmd.SetWarnings False
             DoCmd.RunSQL StrSqlString
             DoCmd.SetWarnings True
             MsgBox "A table has been restored as MyUndeletedTable", _
               vbOKOnly,"Restored"
             GoTo Exit_undo
          End If
          Next i
          MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found"
    
          Exit_undo:
             Set db = Nothing
             Exit Function
          Err_undo:
             MsgBox Err.Description
             Resume Exit_undo
    
        End Function
    					
  4. Klik op 'Compileren en alle Modules opslaan' in het menu Fout opsporing (of in Microsoft Toegang in het menu uitvoeren voor Windows 95, klikt u op "Alle Modules compileren"; vervolgens in het menu bestand, klikt u op "Alle Modules opslaan").
  5. Sla de Module op als RecoverTable.

    Test deze functie, typ de volgende regel in het venster fout opsporing en druk vervolgens op ENTER:
    ?Undo()
    					

Referenties

Zoek voor meer informatie over TableDefs, de Help-Index "Tabledef Object."

Eigenschappen

Artikel ID: 179161 - Laatste beoordeling: vrijdag 25 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Access 97 Standard Edition
Trefwoorden: 
kbhowto kbprogramming kbmt KB179161 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:179161
Vrijwaring inhoud KB-artikelen over niet langer ondersteunde producten
Dit artikel heeft betrekking op producten waarvoor Microsoft geen ondersteuning meer biedt. Daarom wordt dit artikel alleen in de huidige vorm aangeboden en wordt het niet meer bijgewerkt.

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com