Inte visar den senaste informationen i din databas kan vara ett problem om de visade data används för att fatta avgörande beslut . Du kan använda en kontroll listruta för att visa information från en databas tabell med hjälp av en fråga . Den " köra en ny fråga " egendom fräschar frågans används i listrutan kontrollen för att visa den senaste informationen . Det är god praxis att uppdatera data i en kontroll programmässigt i stället för att starta om programmet för att uppdatera dina uppgifter . Saker du behöver
Northwind databas
Visa fler instruktioner
1
Öppna Northwind databasen , klicka på " Skapa " -menyn och klicka på " Form Design " i " Forms " rutan . Klicka på " Design " -fliken och välj " List Box " i " Kontroller " fönstret . Klicka på " Form " i " Detail " området och dra musen medan du håller ned musknappen för att rita en ny kontroll listrutan . Klicka på " knappen" och använda samma teknik för att rita en ny knapp på formuläret .
2
högerklicka din nya kontroll listrutan och klicka på "Egenskaper . " Klicka på " Format "-fliken och skriv in " 5 " bredvid " Antal kolumner . " Addera 3
Klicka på " Data " -fliken och kopiera och klistra in SQL- koden nedan bredvid " . . . . radkällan " :
SELECT Customers.Company , Kunder [ Efternamn ] , Kunder [ Förnamn ] , Kunder [ E - postadress] , Kunder [ Befattning ] FROM kunder ;
4
Högerklicka på nya knappen i formuläret och klicka på "Egenskaper . " Klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips för att skapa en ny " button_click " förfarande och öppna Microsoft Visual Basic Fönster
5
Kopiera och klistra in koden nedan inne knappen proceduren för att skapa två variabler : .
Dim dbs som Database
Dim strSQL As String
6
Kopiera och klistra in koden nedan för att definiera den aktuella databasen som databas att använda :
Set dbs = CurrentDb
7
Kopiera och klistra in koden nedan för att infoga en ny kund i " Kunder " table :
strSQL = " INSERT INTO kunder ( Företag , [ Efternamn ] , [ Förnamn ] , [ E - postadress] , [ Job Title ] ) "
strSQL = strSQL & " VALUES ( ' Compnay 1 ' , ' Smith ' , ' John ' , ' johnsmith @ yahoo . com " , " manager " ) , "
dbs.Execute ( strSQL )
8
Kopiera och klistra in följande kodrad för att uppdatera frågan i listrutan kontroll och visa den nya kunden läggas :
List0.Requery
9
Växla tillbaka till Microsoft Access-fönstret och klicka på " Visa " -ikonen . Klicka på knappen för att köra din kod . Bläddra nedåt i listan rutan , och du kommer att se den nya kunden till. Addera
