Ikke vise den nyeste informasjonen i databasen programmet kan være et problem hvis dataene som vises blir brukt til å ta viktige beslutninger . Du kan bruke en listeboks -kontroll for å vise informasjon fra en database tabell gjennom bruk av en spørring. De " Requery " eiendom oppdateres spørringen brukes i listeboksen kontroll for å vise den nyeste informasjonen . Det er god praksis å oppdatere dataene i en kontroll programmatisk stedet for å starte programmet for å oppdatere dine data . Du trenger
Northwind database
Vis flere instruksjoner
en

Åpne Northwind database, klikker du på " Create "-menyen og klikk på " Form Design " i " Skjemaer »-panelet . Klikk på " Design "-kategorien og velg " List Box" i " Controls " -panelet . Klikk på " Form" i " Detaljer" område og dra musen mens du holder museknappen nede for å tegne en ny liste boks kontroll. Klikk på " Button" og bruker samme teknikk for å tegne en ny knapp i skjemaet .
2

Høyreklikk den nye listen boksen kontroll og klikk "Egenskaper". Klikk på " Format "-fanen og skriv " 5 " ved siden av " Column Count . "
3

Klikk på "Data "-kategorien , og kopiere og lime inn SQL -koden nedenfor ved siden av " . . . . rad Source " : en

SELECT Customers.Company Kunder [ etternavn ], kunder [ fornavn ] , Kunder [E - postadresse] Kunder [ Stillingstittel ] fra kunder ;

4

Høyreklikk den nye knappen på skjemaet og klikk "Egenskaper". Klikk på "Event "-fanen og velg " [ Hendelsesprosedyre ] " ved siden av " Ved klikk . " Klikk ellipseknappen å skape en ny " button_click " prosedyre og åpne Microsoft Visual Basic Window
5

Kopier og lim inn koden nedenfor inne knappen prosedyre for å opprette to variabler: .
< P > Dim dBS som database

Dim strSQL As String
6

Kopier og lim inn koden nedenfor til å definere den gjeldende databasen som databasen å bruke : en

Set dBS = CurrentDb
7

Kopier og lim inn koden nedenfor for å sette inn en ny kunde i " Kunder " tabellen : en

strSQL = " INSERT INTO Kunder ( Company, [ etternavn ] , [ fornavn ] , [E - postadresse] , [ Stillingstittel ] ) "

strSQL = strSQL &" VERDIER ( Compnay 1 ',' Smith ',' John ',' johnsmith @ yahoo . com ',' leder '); "

dbs.Execute ( strSQL )
8

Kopier og lim inn følgende linje med kode for å oppdatere søket i listeboksen kontroll og vise den nye kunden lagt : en

List0.Requery
9

Switch tilbake til Microsoft Access Window og klikk på "View "-ikonet . Klikk på knappen for å utføre koden. Bla nedover i listen , og du vil se den nye kunden til.