Sådan kopieres fra et Recordset i en tabel på Access 2007

Sådan kopieres fra et Recordset i en tabel på Access 2007 Jupiterimages / Brand X Pictures / Getty Images

Make Microsoft Access 2007-databaser mere dynamisk og automatiseret med Visual Basic Editor (VBE).VBE er programmeringen skallen følger med Access, der bruger Visual Basic for Applications (VBA).En af de funktioner i VBA er at generere data fra databasen og gemme det i en postsættet der kan tilgås og manipuleres i koden.Når du er færdig med at arbejde med postsættet i koden, kan du gemme det tilbage til den tabel, du trak det fra eller kopiere det ind i en anden tabel.

Instruktioner

  1. Åbn din database i Microsoft Access 2007 og åbne Visual Basic Editor.Klik på fanebladet "Database Tools" og derefter "Visual Basic" fra "Makroer & amp; Code" gruppe.

  2. Klik på "Indsæt" menupunkt i Visual Basic Editor, og klik derefter på "Modul".Eller hvis du har en form eller tidligere modul, du ønsker at bruge denne procedure på, åben, at i stedet ved at dobbeltklikke på det fra Project Explorer-vinduet på venstre side af skærmen.

  3. Skriv den procedure, der vil trække postsættet fra databasen:

    "Sub RecordsetExample ()

    Dim dbTest som Database 'The variabel, der vil holde din database

    Dim rsRecordset som Recordset' The variabel, der vil holde din postsættet

    Set dbTest = OpenDatabase ("MyDatabase.mbd«) «Skift denne til navnet på din database

    Med dbTest

    sæt rsRecordset = .OpenRecordset (" Tabel 1 ", dbOpenTable)« Skift Tabel1 til navnet på dit bord

    End Med "

  4. Skriv koden til at kopiere postsættet i en anden tabel.Koden ser sådan ud:

    "Dim sqlStatement som String

    'Forespørgslen at indsætte i til tabel Skift Table2 til navnet på din tabel

    sqlStatement =." INSERT INTO TABEL2 VÆRDIER "& amp; rsRecordset

    Med rsRecordset

    rsRecordset.MoveFirst

    Do

    rsRecordset.RunSQL (sqlStatement)

    rsRecordset.MoveNext

    Loop Mens Not rsRecordset.EOF

    End Med "

  5. Klik på" Gem "ikonet i Visual Basic Editor.Klik på "Run (!)" Knappen, hvis du ønsker at køre proceduren og kopiere postsættet til bordet nu.Hvis ikke, skal du lukke Visual Basic Editor, og klik på "Office" -knappen og derefter på "Gem" for at gemme ændringerne i databasen.

716
0
1
Database Software