Visual Basic for Applications ( VBA ) er et programmeringssprog, der anvendes i standalone applikationer , og også at udvide funktionaliteten af Microsoft Office-programmer , herunder database skabelse programmet Access. Nogle opgaver i Access egner sig naturligt til automatisering med VBA-kode , som beregning af værdier for brugeren -added kontrol i rapporter. Derimod har adgang s forespørgsel design view ikke umiddelbart udsætte muligheder for forbedring med VBA . Alligevel vil en anvendt eksempel på en bestemt VBA funktion viser dig, hvordan VBA kan hjælpe dig med at arbejde med forespørgslen design visning. Instruktioner
1
Open Access og oprette et lille bord af email-adresser . Brug følgende tabel, hvis du ikke har en eksisterende. Indtast den første række af de følgende data som overskriften bordets enkelt kolonne .
Emaildsk@yahoo.comIndianaJones @ Hollywood.comHarryBelafonte @ Caribbean.com
2
Gem tabellen ved trykke på " Ctrl- S ", og skriv " EmailAddresses " til tabellens navn. Gem selve databasen ved at trykke på " Alt- F " og derefter vælge " Gem database som. " Type " VBAFromAccessQuery " til databasen navn.
3
begynde at oprette en brugerdefineret funktion til brug i en forespørgsel ved første muliggør makroer i din database. Tryk på " Alt- F" for at afsløre "Indstillinger" menupunkt , og klik derefter på det emne.
4
Tryk på " Trust Center" element i " Access-indstillinger " dialogboksen , klik derefter på " Trust Center Settings " knappen. Tryk på " Macro Settings" element i " Trust Center" dialogboksen , og derefter klikke på den indstilling , der hedder " Aktiver alle makroer. " ( Vær sikker på at vende tilbage til denne dialogboks til at deaktivere makroer , når du er færdig med trin i denne artikel . )
Tryk på " OK" på alle åbne dialogbokse til at vende tilbage til Access .
5.
Tryk på " Database Tools " værktøjslinjen element, og klik derefter på " ; Visual Basic " . at indtaste Visual Basic integrerede udviklingsmiljø (IDE) , hvilket er hvor du opretter brugerdefinerede funktioner
6
Tryk på" Insert ", efterfulgt af" Module " på IDE s værktøjslinjen for at oprette en ny plads til at indtaste programkode i. Indsæt følgende program kode overalt i den nye plads:
Public Function GetDomainName ( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress " @ " ) GetDomainName = Right ( emailAddress , m ) End Function
7
Tryk på" Ctrl + S " for at gemme programmet , og navngive modulet" CustomFunctions ", når du bliver bedt om Access. Retur til Access ved enten at trykke på " Alt + F11 " eller klikke på det lille ikon Adgang i venstre del af IDE værktøjslinje.
8
Opret en ny forespørgsel til e-mail -adresse bordet ved først at klikke på tabellens navn ( " EmailAddresses ") i navigations vinduet i venstre side af det primære Access-vinduet . Tryk derefter på "Opret " efterfulgt af " Query Design " på Access værktøjslinjen. Hvis du bruger Access 2003 , skal du oprette forespørgslen ved at trykke på "Objekter " og derefter " Query ", derefter " Ny".
9
Dobbeltklik på " EmailAddresses " , post i " Vis tabel " dialogboksen til at oprette et lille vindue viser alle felter i e-mail- adresse bordet. Tryk på " Close " på dialogboksen
10
Højreklik på rækken mærket " Field: " . I nogen af forespørgslen gitterdata kolonner. Vælg punktet " Build " for at vise " Expression Builder " dialogboksen , hvor du kan oprette forespørgsler , der bruger formler.
11
Dobbeltklik på " funktioner" element i " Expression Elements " rude for at udvide denne node , så enkelt på navnet på din database ( " VBAFromAccessQuery ") for at afsløre den funktion, du oprettede for databasen.
12
Bemærk at " Expression værdier " rude viser de" GetDomainName "-funktionen du indsatte i Visual Basic IDE tidligere. Dobbeltklik på dette emne , så skriv " [ email] " i stedet for "<< emailAddress >> " tekst i den øverste rude i dialogboksen .
13 < p > Tryk på "OK " for at lukke " Expression Builder " og derefter højreklikke på forespørgslen fane og vælg " dataarkvisning " for at køre forespørgslen . (Eller , tryk på " Design " og vælg "Kør" på værktøjslinjen. )
Bemærk, at forespørgslen resultater viser kun domænenavnene på de e-mail -adresser, som er et resultat af din succes at VBA-kode til Access s forespørgsel design view.