Hvordan få tilgang Query Refresh

Ikke viser den nyeste informasjonen i din database applikasjon kan være et problem hvis dataene som vises er brukt til å ta viktige avgjørelser. Man kan bruke en listeboks-kontroll for å vise informasjon fra en database tabell ved hjelp av en spørring. Den "Requery" eiendom oppdateres spørringen som brukes i listeboksen kontrollen for å vise den nyeste informasjonen. Det er god praksis å oppdatere data i en kontroll programmatisk i stedet for å starte programmet for å oppdatere dine data.

Bruksanvisning

1 Åpne Northwind databasen, klikker du på "Create" -menyen og klikk "Form Design" i "Skjemaer" -panelet. Klikk på "Design" -kategorien og velg "List Box" i "Controls" -panelet. Klikk på "Form" i "Detail" område og dra musen mens du holder museknappen nede for å tegne en ny liste bokskontroll. Klikk "Button" og bruke samme teknikk for å tegne en ny knapp i skjemaet.

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

3 Klikk på "Data" -fanen, og kopiere og lime inn SQL-kode oppført nedenfor ved siden av "Row Source":

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 "On Klikk på." Klikk på ellipse for å lage en ny "button_click" prosedyre og åpne Microsoft Visual Basic Window.

5 Kopier og lim inn koden oppført nedenfor inne knappen prosedyre for å opprette to variabler:

Dim dbs som database

Dim strSQL As String

6 Kopier og lim inn koden nedenfor for å definere den aktuelle databasen som database å bruke:

Sett dbs = CurrentDb

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

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

strSQL = strSQL & "VERDIER ( 'Selskap 1', 'Smith', 'John', '[email protected]', 'leder');"

dbs.Execute (strSQL)

8 Kopier og lim inn følgende kode for å oppdatere søket i listeboksen kontroll og vise den nye kunden legger til:

List0.Requery

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