Tutorial på MS Access Advanced Forms

Tutorial på MS Access Advanced Forms


Å ha kunnskap om hvordan du oppretter og bruker avanserte former i Microsoft Office Access kan gjøre databaseapplikasjoner kraftigere. Du kan enkelt lage et skjema ved hjelp av skjemaveiviseren, men du vil ikke alltid få de resultatene du ønsker. Du må ha fleksibilitet til å legge til ulike kontroller i skjemaet når du oppretter den manuelt. I tillegg kan du skrive Visual Basic for Applications (VBA) for å utføre prosessene bak disse kontrollene. Visual Basic for Applications (VBA) er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access og andre MS Office-programmer.

Bruksanvisning

1 Åpne North Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.

2 Klikk på "Create" -kategorien og velg "Form Design" for å skape en ny form. Klikk "Combo Box" på "Controls" -panelet deretter venstreklikke skjemaet og dra for å opprette en ny kombinasjonsbokskontroll. Klikk "Button" på "Controls" -panelet og legge til en ny knapp i skjemaet. Velg "List Box" og legge til en ny liste bokskontroll i skjemaet.

3 Høyreklikk på "Command0" og velg "Properties". Klikk på "Event" -fanen og velg "[Hendelsesprosedyre]" ved siden av "On klikk". Klikk ellipsen ( "...") for å åpne "Microsoft Visual Basic" Window. Trykk "Ctrl" og "A" og trykk "Slett" for å fjerne alle eksisterende kode.

4 Kopier og lim inn følgende kode til den nye modulen. Koden vil laste kombinasjonsbokskontroll med etternavn fra "produkt" tabellen.

Alternativ Sammenligne Database

Private Sub Command2_Click ()

Dim sqlStr As String

Dim prductSelected As String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlStr = "SELECT produkter. [Produktnavn], produkter. [Pris]"

sqlStr = sqlStr & "Fra Products"

sqlStr = sqlStr & "WHERE (. ((produkter [Produktnavn]) = '" & (prductSelected) & "'));"

Me.List0.RowSourceType = "Table / Query"

Me.List0.RowSource = sqlStr

End Sub

Private Sub Form_Load ()

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = "Table / Query"

Me.Combo3.RowSource = "SELECT produkter [Produktnavn] fra produkter;".

End Sub

5 Lukk "Microsoft Visual Basic" Window og høyreklikk på "Form1" velg "Form View". Velg en Produser navn fra kombinasjonsbokskontroll. Klikk "Command0" for å vise Listepris i listeboksen kontroll basert på produktnavnet du valgte.