Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes i frittstående applikasjoner , og også for å utvide funksjonaliteten til Microsoft Office-programmer , inkludert database skapelse program , Access. Noen oppgaver i Access egner seg naturlig til automatisering med VBA-kode , for eksempel beregne verdier for brukeren tilleggstjenester kontroller i rapporter . Derimot , betyr Tilgang søket til utforming syn ikke lett avsløre muligheter for forbedring med VBA. Likevel vil en anvendt eksempel på en bestemt VBA -funksjonen viser deg hvordan VBA kan hjelpe deg å arbeide med spørringen utforming utsikt. Instruksjoner
en

Open Access og lage et lite bord av e-postadresser. Bruk tabellen nedenfor hvis du ikke har en eksisterende. Skriv inn den første raden med følgende data som overskriften av tabellen er enkelt kolonne.

Emaildsk@yahoo.comIndianaJones @ Hollywood.comHarryBelafonte @ Caribbean.com
2

Lagre tabellen ved å trykke " Ctrl- S , " og skriv " emailaddresses " for tabellen navn. Lagre selve databasen ved å trykke på "Alt- F " og deretter velge " Lagre database som." Type " VBAFromAccessQuery " for databasen navn .
3

Begynn å opprette en egendefinert funksjon for bruk i en spørring ved første aktivere makroer i databasen. Trykk "Alt- F" for å avsløre "Options " menyen, klikk deretter det elementet.
4

Trykk på " Trust Center" elementet i " Alternativer for Access " i dialogboksen, klikk deretter på " Klareringssenter Settings"-knappen . Trykk på "Macro Settings" elementet i " Trust Center" dialogboksen , klikk deretter alternativet som leser " Aktiver alle makroer . " ( Pass på å gå tilbake til denne dialogboksen til å deaktivere makroer når du er ferdig med fremgangsmåten i denne artikkelen . )

Trykk " OK " på alle åpne dialogbokser for å gå tilbake til Access .
5

Trykk på "Database Tools " element på verktøylinjen , og klikk " ; Visual Basic " . å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) , som er der du opprette egendefinerte funksjoner
6

Trykk" Insert ", etterfulgt av " Module " på IDE verktøylinjen for å opprette en ny plass å gå inn programkode i. Lim inn følgende programkode hvor som helst i det nye plass : en

Public Function GetDomainName ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress , " @ " ) GetDomainName = Høyre ( emailAddress , m) End Function
7

Trykk" Ctrl + S " for å lagre programmet , og navngi modulen" CustomFunctions " når du blir bedt av Access. Tilbake til Access enten ved å trykke "Alt + F11 " eller klikke på den lille Tilgang ikonet i venstre del av IDE verktøylinje.
8

Opprett en ny spørring for e-postadressen tabellen ved å først klikke på tabellens navn ( " emailaddresses ") i navigasjon vinduet til venstre for den viktigste Access-vinduet . Deretter trykker du "Create " etterfulgt av " Query Design " på verktøylinjen for . Hvis du bruker Access 2003 , oppretter spørringen ved å trykke " Objects " og deretter " Query " og deretter " Ny".
9

Dobbeltklikk på " emailaddresses " ; elementet i " Vis tabell " dialogboksen for å lage et lite vindu som viser alle felt av e-postadressen tabellen . Trykk " Close" i dialogboksen
10

Høyreklikk på raden merket " Field: " . På noen av spørringen rutenettets kolonner. Velg elementet "Build " for å vise " Expression Builder " dialogboksen , som lar deg lage spørringer som bruker formler .
11

Dobbeltklikk på "Funksjoner" elementet i " Expression Elements »-panelet for å utvide den noden , så enkelt på navnet på databasen ( " VBAFromAccessQuery ") for å avsløre den funksjonen du opprettet for den databasen.
12

Legg merke til at " Expression verdier »-panelet viser " GetDomainName "-funksjonen du limte inn i Visual Basic IDE tidligere. Dobbeltklikk på dette elementet, skriv " [ e ] " i stedet for "<< emailAddress >> " teksten i den øverste ruten i dialogboksen .
13

Trykk " OK " for å lukke " Expression Builder ", deretter høyreklikker du spørringen fane og velg " dataarkvisning " for å kjøre spørringen . ( Eller , trykker du på " Design " og velg " Kjør" på verktøylinjen. )

Merke til at søkeresultatene viser bare de domenenavnene til e-postadressene , som er et resultat av din hell bruke VBA-kode til Access søket til design-visning.