Microsoft Access-query's zijn in wezen SQL statements, die bewerkingen op databases . Deze verklaringen zijn geschreven met gewone , niet-opgemaakte tekst , die u kunt doen in een andere tekstverwerker of omgeving , waaronder MS Word en Excel . Het omzetten van een vraag in een tijd van Word of Excel naar Access is een eenvoudige snit - en - plakken . Echter , het converteren van veel query's vereist de hulp van een kort programma . Maak dit programma met behulp van de Access Visual Basic geïntegreerde ontwikkelomgeving . Wat je nodig hebt Microsoft Access Microsoft Word Microsoft Excel Toon Meer Aanwijzingen Convert Excel-werkblad met de hand 1 Maak een nieuwe Microsoft Excel-spreadsheet en typ of plak de volgende verklaring in elke cel : SELECT * van GamesTable WAAR GameTitle = " Monopoly . " kopen van 2 Open up Access en maak een klein voorbeeld database tabel met de naam " GamesTable " met het veld " GameTitle " en eventuele andere velden die u wilt . 3 Maak een paar rijen van voorbeeldgegevens naar de tafel , en zorg ervoor dat " Monopoly omvatten " voor de titel van een van de games. Druk op "Control - S " om de tafel te slaan . 4 Open een nieuwe query door op "Create " op de werkbalk van Access , gevolgd door het indrukken van " Query-ontwerp . " ( Druk op " Objecten ", gevolgd door " Nieuw " en dan " Query " als je met Access 2003 . ) Dubbelklik op het " GamesTable " item in de " Tabel weergeven " dialoogvenster , druk op de toets " Escape " om het venster te sluiten . 5 klik met de rechtermuisknop op het tabblad van de query , die " Query1 " wordt weergegeven , en selecteer ' SQL View . " 6 Terug naar Excel , selecteer en kopiëren naar het Klembord van de SQL-instructie die je eerder schreef " ( sELECT * from ... ) . " Move 7 terug naar de Access " SQL View . " Selecteer alle bestaande SQL-tekst , vervolgens door te drukken overheen plakken "Control - V . " 8 Voer de query door op het pictogram " Run" op de werkbalk Access , of met de rechtermuisknop te klikken op het tabblad van de query en het selecteren van " gegevensbladweergave . " Merk op dat Access geeft gewoon het spel dat u hebt opgegeven in de SQL-instructie die u hebt gekopieerd uit Excel . Zet Word- document met een programma 9 Handmatig converteren vragen van Word met de stappen voor Excel . Vervangen " Woord " voor " Excel " als u de stappen te herhalen . Of Voer de volgende stappen uit om een programma dat in een keer zal zetten voor u vele SQL-instructies gebruiken . Open Word 10 en voer uw query strings , een per regel . Gebruik de volgende als voorbeeld query's voor de GamesTable tafel . Zorg ervoor dat de laatste regel van het document is de laatste vraag Selecteer * uit GamesTable ; . SELECT * FROM GamesTable WHERE ( ( ( GamesTable.GameTitle ) = " Monopoly " ) ) ; select GameTitle uit GamesTable WHERE ( ( ( GamesTable.GameTitle ) als " * kaas * " ) ) . 11 Sla het bestand als platte tekst , dan is het bestand importeren in Access . Selecteer de " tab " karakter en niet de " puntkomma " als de tekst scheidingsteken bij het invullen van de import wizard . Zorg ervoor dat de naam van de nieuw geïmporteerde tabel wordt " Selecteer . " 12 inschakelen macro's in Access : druk op de " Alt - F , " en klik op "Opties". Klik op ' Trust Center , " dan is het " Vertrouwenscentrum " knop . Klik op ' Instellingen voor macro's , " gevolgd door" Alle macro's inschakelen ", dan worden alle geopende dialoogvensters te sluiten . Sluit en heropen Access . Zorg ervoor dat u macro's na het beëindigen van de stappen in dit artikel uit te schakelen . Druk 13 " Alt - F11 , " en druk op " Invoegen ", gevolgd door " Module . " Plak deze code in de module : Public Sub makeQueries ( ) Const cstrQueryName = " Select " Dim dbs als DAO.DatabaseDim rst als DAO.RecordsetDim qdf Zoals QueryDefDim i Zoals IntegerDim qNameSet dbs = CurrentDbSet rst = dbs.OpenRecordset ( cstrQueryName ) i = 0do Terwijl Niet rst.EOFDebug.Print " SQL : " & rst ( " Veld1 " ) qname = " q" & CStr ( i ) Stel qdf = dbs.CreateQueryDef ( QName ) qdf.SQL = rst ( " veld1 " ) . Valuerst.MoveNexti = i + 1Looprst.Closedbs.CloseEnd Sub Plaats 14 de cursor ergens in het programma gewoon opgenomen in en druk op " F5 " te lopen het. Keer terug naar Access , nauwe en vervolgens opnieuw openen van de navigatie- venster om de nieuwe query's ( dat wil zeggen , " q0 " of " q1 " ) te zien . Dubbelklik op de query's om ze te draaien .
|