Hvordan bruke VBA i Access Query Design Vis

Hvordan bruke VBA i Access Query Design Vis


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 programmet Access. Noen oppgaver i Tilgang egner seg naturlig til automatisering med VBA-kode, for eksempel beregne verdier for bruker lagt kontroller i rapporter. Derimot, har tilgang søket 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ørringsutforming utsikt.

Bruksanvisning

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

e-post
[email protected]
[email protected]
[email protected]

2 Lagre tabellen ved å trykke "Ctrl-S," og skriv "emailaddresses" for tabellen navn. Spar selve databasen ved å trykke på "Alt-F" og deretter velge "Lagre Database som". Skriv "VBAFromAccessQuery" for databasenavn.

3 Begynne å lage en egendefinert funksjon for bruk i en spørring ved først å aktivere makroer i databasen. Trykk "Alt-F" for å avsløre "Options" menyen, klikk på det elementet.

4 Trykk på "Trust Center" element i "Adgangs Options" dialogboksen, klikk på "Innstillinger for klareringssenter" -knappen. Trykk på "Makroinnstillinger" element i "Trust Center" i dialogboksen, og klikk deretter på alternativet som leser "Aktiver alle makroer." (Pass på å gå tilbake til denne dialogboksen for å deaktivere makroer når du er ferdig med trinnene 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 deretter på "Visual Basic" for å gå inn i Visual Basic integrert utviklingsmiljø (IDE), som er der du opprette egendefinerte funksjoner.

6 Trykk på "Sett inn" og deretter "Module" på IDE-verktøylinjen, for å skape en ny plass å gå inn programkode på Lim inn følgende programkode hvor som helst i det nye rommet.:

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

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

8 Opprett en ny spørring for e-postadressen bordet ved først å klikke på tabellens navn ( "emailaddresses") i navigasjonsvinduet til venstre for hoved Tilgang vinduet. Trykk deretter på "Create" etterfulgt av "Query Design" på Access verktøylinjen. Hvis du bruker Access 2003, skape søket ved å trykke på "Objects" og deretter "Query" og deretter "Ny".

9 Dobbeltklikk på "emailaddresses" element i "Vis tabell" dialogboksen for å skape et lite vindu som viser alle felt av e-postadressen tabellen. Trykk "Close" i dialogboksen.

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

11 Dobbeltklikk på "Funksjoner" element i "Expression Elements" ruten for å utvide det node, så enkelt klikk navnet på databasen ( "VBAFromAccessQuery") for å avsløre den funksjonen du opprettet for den databasen.

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

1. 3 Trykk "OK" for å lukke "Expression Builder", høyreklikk deretter fanen spørringen og velg "Datablad View" for å kjøre spørringen. (Eller trykk "Design" og velg "Kjør" på verktøylinjen.)

Legg merke til at spørringsresultatene viser bare de domenenavnene på e-postadresser, som er et resultat av en vellykket søknad VBA-kode for å få tilgang søket utformingsvisning.

Hint

  • Instruksjonene i denne artikkelen innebærer en omlegging Tilgangssikkerhetsinnstillinger. Utfør disse instruksjonene med en full bevissthet og ansvar for risiko forbundet med denne endringen.