Visual Basic for Applications ( VBA ) är ett programmeringsspråk som används i fristående program , och även för att utöka funktionerna i Microsoft Office-program , inklusive databas skapande program , Access. Vissa uppgifter i Access lämpar sig naturligt för automatisering med VBA-kod , såsom att beräkna värden för användaren vidareförädlade kontroller i rapporter . Däremot har tillgång sökfråga designvyn inte lätt utsätta möjligheter till förbättring med VBA . Ändå kommer en tillämpad exempel på en viss VBA -funktionen visar dig hur VBA kan hjälpa dig att arbeta med frågan designvyn. Instruktioner
1
Open Access och skapa en liten tabell över e-postadresser . Använd följande tabell om du inte har en befintlig. Ange den första raden av följande uppgifter som rubriken bordets enda kolumn .
Emaildsk@yahoo.comIndianaJones @ Hollywood.comHarryBelafonte @ Caribbean.com
2
Spara tabellen genom trycka " Ctrl- s , " och typ " EmailAddresses " för tabellen namn . Rädda själva databasen genom att trycka " Alt - F , " sedan välja " Spara databas som . " Type " VBAFromAccessQuery " för databasen namn .
3
Börja skapa en anpassad funktion för användning i en fråga genom att först aktivera makron i din databas . Tryck på " Alt - F " för att avslöja " Options " menyn , klicka sedan objektet .
4
Tryck på " Säkerhetscenter " post i " Access-alternativ " i dialogrutan , klicka sedan på " Säkerhetscenter Settings " knappen . Tryck på " Macro Inställningar " post i " Säkerhetscenter " i dialogrutan och klicka sedan på det alternativ som lyder " Aktivera alla makron . " ( Se till att återvända till den här dialogrutan för att inaktivera makron när du har avslutat stegen i den här artikeln . ) katalog
Tryck " OK " på alla öppna dialogrutor för att återgå till Access .
5
Tryck på "Database Tools " verktygsradsobjektet , klicka sedan på " , Visual Basic " . ange Visual Basic integrerad utvecklingsmiljö ( IDE ) , som är där du skapar egna funktioner
6
Tryck " Insert ", följt av " modul " på IDE : s verktygsfältet för att skapa ett nytt utrymme för att skriva programkod i. Klistra in följande programkod som helst i den nya rymden :
Public Function GetDomainName ( EmailAddress ) Dim mm = Len ( EmailAddress ) - InStr ( emailaddress , " @ " ) GetDomainName = Höger ( emailaddress , m ) End Function
7
Tryck " Ctrl + S " för att spara programmet , och namnge modulen" CustomFunctions " när du uppmanas av Access. Återgå till Access genom att antingen trycka " Alt + F11 " eller klicka på den lilla Access- ikonen i den vänstra delen av IDE : s verktygsfält .
8
Skapa en ny fråga för den e-postadress tabellen genom att först klicka på tabellens namn ( " EmailAddresses " ) i NAVIGATION till vänster av de viktigaste Access-fönstret . Tryck sedan på " Skapa " följt av " Query Design" på Access- verktygsfältet . Om du använder Access 2003 , skapar frågan genom att trycka på " Objekt ", därefter " Query " och sedan " Nytt ".
9
Dubbelklicka på " EmailAddresses " , post i " Visa tabell " i dialogrutan för att skapa ett litet fönster som visar alla fält i den e-postadress tabellen . Tryck på " Close " i dialogrutan
10
Högerklicka på raden märkt " Field : " . På något av frågans rutnät kolumner . Välj objektet " Build " för att visa " Expression Builder " i dialogrutan som låter dig skapa frågor som använder formler .
11
Dubbelklicka på " Functions " post i " expression Elements " fönstret för att expandera den noden , sedan singel - klicka på namnet på din databas ( " VBAFromAccessQuery " ) för att exponera den funktion du skapade för den databasen .
12
Observera att " expression värden " rutan visar " GetDomainName " funktionen du klistrade in i Visual Basic IDE tidigare . Dubbelklicka på denna punkt , då typ " [ e ] " i stället för " << Epostadress >> " text i den övre rutan i dialogrutan .
13
Tryck " OK " för att stänga " Expression Builder " och sedan högerklicka på frågans fliken och välj " Datablad " för att köra frågan . ( Eller , tryck på " design " och välj " Kör " i verktygsfältet . ) Att frågan resultaten visar endast domännamnen för de e-postadresser , vilket är ett resultat av din framgång tillämpar VBA-kod
Notice till Access sökfråga Design.
