Hoe te kopiëren vanaf een record in een tabel op de Access 2007

Hoe te kopiëren vanaf een record in een tabel op de Access 2007 Jupiterimages / Brand X Pictures / Getty Images

Maak Microsoft Access 2007-databases dynamischer en geautomatiseerd met de Visual Basic Editor (VBE).De VBE is de programmering van de schelp, met Access die Visual Basic for Applications (VBA) gebruikt.Eén van de functies van VBA is om gegevens uit de database te genereren en opslaan in een record dat kan worden benaderd en gemanipuleerd in de code.Als je eenmaal klaar bent met het werken met de record in de code, kunt u het opslaan terug naar de tafel, dat je hem getrokken uit of kopiëren naar een andere tafel.

instructies

  1. Open uw database in Microsoft Access 2007 en open de Visual Basic Editor.Klik op het tabblad "Database Tools" en vervolgens "Visual Basic" van de "macro's & amp; Code" groep.

  2. Klik op de "Insert" menu-item in de Visual Basic Editor en klik op "Module."Of, als u een formulier of vorige module die u wilt deze procedure, opent dat in plaats door te dubbelklikken op het van het venster Project

    Explorer op de linkerkant van het scherm te gebruiken.

  3. Schrijf de procedure die het record zal trekken uit de database:

    "Sub RecordsetExample ()

    Dim dbTest als Database 'De variabele dat uw database

    Dim rsRecordset als Recordset zal houden' De variabele die uw record

    zal houden

    Set dbTest = OpenDatabase ("MyDatabase.mbd") "Verander dit om de naam van uw database

    Met dbTest

    ingesteld rsRecordset = .OpenRecordset (" Tabel1 ", dbOpenTable) 'Change Tabel1 om de naam van uw tafel

    End With '

  4. Schrijf de code om het record te kopiëren naar een andere tafel.De code ziet er als volgt uit:

    "Dim SQLStatement als Koord

    'De query in te voegen tabel Change Table2 om de naam van uw tafel

    SQLStatement =." INSERT INTO Table2 WAARDEN "& amp; rsRecordset

    Met rsRecordset

    rsRecordset.MoveFirst

    Do

    rsRecordset.RunSQL (SQLStatement)

    rsRecordset.MoveNext

    Loop While Niet rsRecordset.EOF

    End With '

  5. Klik op het pictogram "Opslaan" in de Visual Basic Editor.Klik op de "Uitvoeren (!)" Knop als je zou willen om de procedure te voeren en kopieer de record nu naar de tafel.Zo niet, dan sluit de Visual Basic Editor en klik op de knop "Office" en vervolgens op "Opslaan" om de wijzigingen in de database op te slaan.

717
0
1
Database Software