Open Access en maak een kleine tafel van e-mailadressen . Gebruik de volgende tabel als u niet een bestaande hebt . Voer de eerste rij van de volgende gegevens als de kop van de tabel enkele kolom .

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

Sla de tabel op drukken op "Control - S , " en type " EmailAddresses " voor de naam van de tabel. Sla de database zelf door op ' Alt - F , " vervolgens" Database opslaan als . "Type" VBAFromAccessQuery " voor de naam van de database .
3

Begin het creëren van een aangepaste functie voor gebruik in een query door eerst inschakelen van macro's in uw database . Druk op ' Alt - F " op het " Opties " menu-item bloot , en klik vervolgens op dat punt .
4

Druk op de " Vertrouwenscentrum " item in de " Opties voor Access "dialoogvenster , klik op de ' Trust Center Settings " knop . Druk op de " Macro Settings " item in de " Vertrouwenscentrum " dialoogvenster , klik vervolgens op de optie die luidt: " Alle macro's inschakelen . " ( Zorg ervoor dat u terug te keren naar dit dialoogvenster om macro's uit te schakelen als je eenmaal klaar bent met het stappen in dit artikel . )

Druk
" OK " op alle geopende dialoogvensters om terug te keren naar Access .
5

Druk op de " Hulpmiddelen voor databases " item op de werkbalk en klik op ' , Visual Basic " . om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) , dat is waar je aangepaste functies te creëren voer
6

Druk op " Insert ", gevolgd door" Module "op de IDE 's werkbalk om een nieuwe ruimte te programmeren code in te voeren creëren inch Plak volgende programmacode overal in die nieuwe ruimte :

Overheidsfunctie GetDomainName
( emailAddress ) Dim mm = Len ( emailAddress ) - InStr ( emailAddress , " @ " ) GetDomainName = Right ( emailAddress , m ) End Function
7

Druk op " Control + S "om het programma op te slaan , en de naam van de module " CustomFunctions " als daarom wordt gevraagd door Access . Terug naar Access , of door op ' Alt + F11 " of klikken op de kleine Access icoon in het linker gedeelte van de werkbalk van de IDE 's .
8

Maak een nieuwe query voor het e-mailadres tafel door eerst te klikken op de tabel naam ( " EmailAddresses " ) in het navigatievenster aan de linkerkant van de Access -venster . Druk vervolgens op "Create " gevolgd door " Query-ontwerp " op de werkbalk van Access . Als u met Access 2003 , maakt de query door op " Objecten , " dan " Query " en vervolgens " Nieuw . "
9

Dubbelklik op het " EmailAddresses " , item in de " tabel weergeven " dialoogvenster om een ​​klein venster met alle velden van het e-mailadres tabel te maken . Druk op " Sluiten " in het dialoogvenster
10

Klik met de rechtermuisknop op de rij met het label " Veld : " . In een van de kolommen van de query raster . Selecteer het item " Build " om de " Expression Builder" dialoogvenster , waarmee u query's die formules te creëren .

De " functies" artikel 11 Dubbelklik op te geven in het " uitdrukking Elementen " paneel om die knoop te breiden , dan enkel op de naam van uw database ( " VBAFromAccessQuery " ) om de functie die u hebt gemaakt voor die database bloot .

Notice 12 dat de " Expression waarden " deelvenster wordt de " GetDomainName functie " u geplakt in de Visual Basic eerder IDE . Dubbelklik op dit punt , typ " [ e ] " in de plaats van de " << emailAddress >> " tekst in het bovenste deelvenster van het dialoogvenster .
13

Druk op " OK " om " Expression Builder , " vervolgens met de rechtermuisknop op het tabblad van de query en selecteer " Datasheet View " om de query uit te voeren sluiten . ( Of druk op "Design " en kies " Run" op de werkbalk . )

Notice
dat de query resultaten tonen alleen de domeinnamen van de e-mailadressen , die een gevolg is van uw succes toepassen van VBA-code queryontwerp oog op de toegang van .