Veta hur man ställer in resultatet av en fråga till en listruta kontroll och använda sina värderingar i en annan fråga kan göra dina databasapplikationer mer dynamisk . Microsoft Office Access kan du skapa ett grafiskt användargränssnitt ( GUI ) , lägger till en kontroll listrutan och använda den för att visa frågedata . Access är en relationsdatabas management system som vanligen används för mindre databaser . En fråga används för att hämta data från en databas tabell . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinuppgifter . Instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet .
2
Klicka på " Skapa " -fliken och välj " Form Design " för att skapa en ny form . Klicka på " Lista Box " på " Kontroller " fönstret , klicka på formuläret , håll ner musknappen och dra musen för att skapa en ny kontroll listrutan . Klicka på " Button " på " Kontroller " fönstret för att lägga till en ny knapp i formuläret på samma sätt som du lagt till i listrutan .
3
Högerklicka " Command0 " och välj "Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönster
4
Kopiera och klistra in följande kod under " Private Sub Command0_Click ( ) " : .
Dim strSQL As String
strSQL = " SELECT beställningar . [ Employee ID ] , "
strSQL = strSQL & "Order . [ Kund -ID] beställningar . [ Levereras Datum ] , "
strSQL = strSQL & " beställningar . [ Fartyg ] , beställningar . [ Ship Adress ] "
strSQL = strSQL & " FROM Orders "
strSQL = strSQL & " WHERE ( ( ( Orders. [ Ship Adress ] ) = '123 8th Street ' ) ) ; "
Me.List0.RowSource = strSQL
Denna kod gör sökningar i " Orders " tabell och ställ in " Radkälla " egendom listrutan kontroll .
5
Växla tillbaka till Microsoft Access-fönstret och högerklicka " List0 , " välj sedan " Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Efter Update . " Klicka på ellips ( ... ) för att öppna " Microsoft Visual Basic " fönster
6
Kopiera och klistra in följande kod under " Private Sub List0_Click ( ) " : .
Dim dbs som databas
Dim rst Som Recordset
Dim sqlstr As String
Dim I As Integer
Set dbs = CurrentDb
jag = 0 till mig ! List0.ListCount
p Om mig ! List0.Selected ( I ) Sedan
sqlstr = " SELECT beställningar . [ Levereras Datum ] FROM Orders "
sqlstr = sqlstr & " WHERE beställningar [ Employee ID ] = . " & ( me! List0.ItemData ( I ) ) & " ; "
Set rst = dbs.OpenRecordset ( sqlstr ) katalog
rst.MoveLast
rst.MoveFirst
Debug.Print " Levereras Datum för alternativ valt : " & rst.Fields ( 0 ) Value
rst.Close
.
End If
Nästa jag
dbs.Close
Denna kod kommer att visa " Levereras datum " för objekt som markeras i listrutan . Resultaten kommer att visas i " Omedelbar " fönstret .
7
Stäng " Microsoft Visual Basic " fönstret och högerklicka på " Form1 " och välj sedan " Form View . " Klicka på " Command0 " för att fylla listrutan med data. Välj ett värde från listrutan för att köra koden för listrutan kontroll .
