En funksjon er et programmeringsspråk prosedyre som returnerer en verdi . Du kan også passere en verdi til det som en prosedyre . Funksjonene er programmert inn i Microsoft Access med Visual Basic for Applications ( VBA ) programmeringsspråk . VBA er programmeringsspråket i stor grad brukes for Microsoft Office-produkter . For å få til denne artikkelen , vil vi skape en enkel funksjon som vil klare listeboksen på et skjema vi vil skape . Du trenger å vite det grunnleggende om Microsoft Access til å forstå hvordan å gjøre noen fremgangsmåtene i denne artikkelen . Instruksjoner
Åpne Program
en

Åpne Microsoft Access og starte en ny tom database .
2

Klikk på " Skjemaer " objekt på Database -verktøylinjen. Denne er plassert på venstre side av siden under " gjenstander" overskriften.
3

Dobbeltklikk på "Opprett skjema i utformingsvisning " .
4 < p > Legg til et tekstfelt til skjemaet i utformingsvisning. Når du blir bedt , angi at du vil skrive verdier i automatisk under listeboksen veiviseren. Skriv inn " Epler ", " Appelsiner ", " sitroner " og " Bananas " for dine listeelementer. Navngi listeboksen " lstFruit " . Fullfør trinnene for veiviseren , og merker at listeboksen med verdiene på skjemaet. Gjør listeboksen i stand til å gjøre flere valg fra egenskapene vinduet .
5

Legg en kommandoknapp. Klikk på "Avbryt" knappen når veiviseren starter. Din knappen vil fortsatt være på siden . Navngi kommandoknappen " cmdClear " og sett ' Caption ' eiendom til " Clear" .
6

Åpne Visual Basic -vinduet ved å klikke på "Kode" -ikonet i " Form Design ' verktøylinjen.
7

Skriv inn følgende funksjon i koden vinduet: funksjon ClearList ( LST Som ListBox ) Som Boolean Dim varItem As Variant ; Hvis lst.MultiSelect = 0 Then lst = Null Else For hver varItem I lst.ItemsSelected lst.Selected ( varItem ) = False Neste End If ClearList = True End Function Denne funksjonen fjerner valg fra et tekstfelt når kalt . For at funksjonen skal fungere, må du kalle det og bestå en tekstfelt til det
8

Ring funksjonen fra cmdClear_Click prosedyren som følger: . Private Sub cmd_Clear & # xD ; ClearList ( lstClear ) End Sub Som du kan se , vi kalte ' ClearList ' funksjon og passerte vår ' lstClear ' listeboksen til det; forteller den funksjonen som dette er listeboksen vi ønsker å bruke .
9

Test ut funksjonen ved å klikke på " CmdClear "-knappen i ' skjema' visning.