Hvordan overføre data fra en form til en spørring tilgang

Hvordan overføre data fra en form til en spørring tilgang


Å vite hvordan du bruker kontrollene i et skjema og sende verdier fra disse kontrollene til en spørring kan spare deg for tid når du arbeider med databaser. Microsoft Office Access er en relasjonsdatabase styringssystem som vanligvis brukes til mindre databaser. En kombinasjonsboks er en kontroll som brukes i grafiske brukergrensesnitt (GUI) for å gi brukeren mer fleksibilitet til å manipulere data. En liste bokskontroll er nyttig når du trenger å vise søkeresultatene til brukeren. 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 Velg "Create" -kategorien og "Form Design" for å skape en ny form. Klikk "Combo Box" på "Controls" -panelet, og klikk deretter på skjemaet og dra musen til å lage 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 på." Klikk på ellipse (...) for å åpne "Microsoft Visual Basic" vinduet. 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 bruke "ansatte" tabellen for informasjon.

Alternativ Sammenligne Database

Private Sub Command0_Click ()

Dim strSQL As String

Dim nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT ansatte. [Stillingstittel], ansatte. [E-postadresse]"

strSQL = strSQL & "fra de ansatte"

strSQL = strSQL & "WHERE (((Medarbeidere [etternavn]) =. '" & (nameSelected) & "'));"

Me.List0.RowSourceType = "Table / Query"

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ()

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = "Table / Query"

Me.Combo0.RowSource = "SELECT Ansatte [etternavn] fra de ansatte;".

End Sub

5 Lukk "Microsoft Visual Basic" vinduet og høyreklikk på "Form1", velg deretter "Form View." Velg et etternavn fra kombinasjonsbokskontroll. Klikk "Command0" for å vise informasjon om de ansatte i listeboksen kontroll basert på den siste navnet du har valgt.