Hvordan Lagre filtrerte data til en annen tabell i Access

Å vite hvordan du lagrer informasjon fra en tabell til en annen tabell kan du spare tid ved overføring av data i en database. Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. Visual Basic for Applications (VBA) er et programmeringsspråk utviklet av Microsoft. VBA kan brukes i Adgang til automatisere prosesser ellers utført manuelt. I noen få trinn kan du skrive VBA-kode for å søke informasjon fra en tabell og lagre den i en annen tabell.

Bruksanvisning

1 Start Microsoft Office Access 2007 og velg "Blank Database," klikk "Opprett". Klikk "Databaseverktøy", velg deretter "Visual Basic".

2 Klikk på "Sett inn" feltet og velg "Module".

Kopier og lim inn følgende kode inn i modulen:

Private Sub createNewTable ()

Dim rst As Recordset

Dim db As Database

Dim SQLstr As String

SQLstr = "CREATE TABLE Customer (Fornavn TEKST (25), Etternavn TEKST (25));"

DoCmd.RunSQL (SQLstr)

SQLstr = "INSERT INTO Customer ([Fornavn], [Lastname])"

SQLstr = SQLstr & "VERDIER ( 'John', 'Williams');"

DoCmd.SetWarnings falske

DoCmd.RunSQL (SQLstr)

SQLstr = "INSERT INTO Customer ([Fornavn], [Lastname])"

SQLstr = SQLstr & "VERDIER ( 'Charles', 'Gonzalez');"

DoCmd.SetWarnings falske

DoCmd.RunSQL (SQLstr)

SQLstr = "SELECT CustomerInfo.FirstName,"

SQLstr = SQLstr & "CustomerInfo.LastName INTO CharlesInfo"

SQLstr = SQLstr & "Fra Customer"

SQLstr = SQLstr & "WHERE (((CustomerInfo.FirstName) = 'Charles'));"

DoCmd.SetWarnings falske

DoCmd.RunSQL (SQLstr)

End Sub

3 Trykk "F5" for å kjøre subrutine. Koden vil opprette en ny tabell og legge til to nye registreringer av data. En ny tabell opprettes der "Fornavn" er lik "Charles".