Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
otvorený prístup a vytvoriť malú tabuľku e - mailových adries . Použite nasledujúcu tabuľku , ak nemáte existujúcu . Zadajte prvý riadok nasledujúce údaje ako hlavičky jedného stĺpca tabuľky .
Emaildsk@yahoo.comIndianaJones @ Hollywood.comHarryBelafonte @ Caribbean.com
2
Uložte tabuľku Stlačením tlačidla " Control - S , " a zadajte " EmailAddresses " pre meno tabuľky . Uložte databáze samotné stlačením " Alt - F " a potom výberom " Uložiť databázu ako . " Typ " VBAFromAccessQuery " pre názov databázy .
3
Začnite vytvorením vlastné funkcie pre použitie v dotaze o prvé povolenie makra v databáze . Stlačte tlačidlo " Alt - F " vystaviť " Možnosti " položku, kliknite na tlačidlo túto položku .
4
Stlačte " Centrum zabezpečenia " položka v dialógovom okne " Možnosti programu Access " , kliknite na tlačidlo " Settings Centrum zabezpečenia " . Stlačením tlačidla " makro " Nastavenie položky v dialógovom okne " Dôvera Center " , kliknite na možnosť , ktorá číta " Povoliť všetky makrá . " ( Uistite sa , že sa vrátite na tomto dialógovom okne makrá zakázať , akonáhle ste dokončili kroky v tomto článku . )
Stlačte všetkých otvorených dialógových oknách " OK " sa vrátite do programu Access .
5
Stlačením tlačidla " Database Tools " položku panela s nástrojmi, kliknite na tlačidlo " , Visual Basic " pre vstup do Visual Basic integrované vývojové prostredie ( IDE ) , čo je miesto , kde môžete vytvoriť vlastné funkcie
6
Press . " Insert " , nasleduje " modul " na IDE panel nástrojov , vytvoriť nový priestor pre zadanie kódu programu dovnútra vložte nasledujúci kód programu kdekoľvek v tomto novom priestore :
Public Function GetDomainName ( emailAddress ) Dim mm = Ľan ( emailAddress ) - Instru ( emailAddress , " @ " ) GetDomainName = Right ( emailAddress , m ) End Function
7
Stlačením tlačidla " Ctrl + S " pre uloženie programu a názov modulu " CustomFunctions " po výzve Access . Vráťte sa do programu Access buď stlačením tlačidla " ALT + F11 " , alebo kliknutím na malú ikonu Access v ľavej časti panela nástrojov IDE .
8
Vytvoriť nový dotaz pre tabuľku e - mailovú adresu tak , že najprv kliknutím názov tabuľky ( " EmailAddresses " ) , v navigačnom okne na ľavej strane okna hlavné aplikácie Access . Potom stlačte tlačidlo " Vytvoriť " a následne " Query Design " na paneli nástrojov programu Access . Ak používate program Access 2003 , vytvorenie dotazu stlačením tlačidla " objekty " , potom " Query " , potom " Nový . "
9
Dvakrát kliknite na " EmailAddresses " , položka v " Zobraziť tabuľku " v dialógovom okne pre vytvorenie malé okno zobrazujúce všetky polia z tabuľky e - mailovú adresu . . Stlačte tlačidlo " Close " v dialógovom okne
10
Pravým tlačidlom myši na riadok s označením " pole " v niektorom zo stĺpcov v mriežke dotazu je . Vyberte položku " Build " sa zobrazí dialógové okno " Tvorca výrazov " , ktorý umožňuje vytvárať dotazy , ktoré používajú vzorce .
11
Double - kliknite na " Funkcia " položka " výraz Elements " table rozbaľte uzol , a potom kliknúť na názov databázy ( " VBAFromAccessQuery " ) vystaviť funkciu , ktorú ste vytvorili pre túto databázu .
12
Všimnite si , že " Expression hodnoty " panel zobrazuje " funkciu GetDomainName " ste vložili do jazyka Visual Basic IDE skôr . Dvakrát kliknite na túto položku a zadajte " [ email ] " na mieste " << >> " emailAddress texte v hornom paneli dialógového okna .
13
Stlačte tlačidlo " OK " zatvorte " Tvorca výrazov , " kliknite pravým tlačidlom myši na kartu dotazu a vyberte možnosť " Zobrazenie dátového listu " pre spustenie dotazu . ( Alebo stlačte " Design " a vyberte " Spustiť " na paneli nástrojov . )
Všimnite si , že výsledky dotazu zobrazia len názvy domén , e - mailovej adresy , ktorá je výsledkom vašej úspešné použitie kódu VBA Ak chcete otvoriť v návrhovom zobrazení dotazu.