Niet weergeven van de meest recente informatie in uw database toepassing kan een probleem zijn als de weergegeven data wordt gebruikt om belangrijke beslissingen te maken . U kunt een keuzelijst gebruiken om informatie weer te geven uit een database tabel door het gebruik van een query . De " Requery " eigenschap verfrist de query gebruikt in de keuzelijst om de nieuwste informatie weer te geven . Het is een goede gewoonte om de gegevens in een besturingselement programmatisch plaats van de applicatie om uw gegevens te vernieuwen herstarten vernieuwen . Wat je nodig hebt database Noordenwind Toon Meer Aanwijzingen 1 Open de database Noordenwind , klik op het menu ' Start ' en klik op ' Form Design " in de " Formulieren " ruit . Klik op het tabblad " Ontwerp" en selecteer " Lijst Box" in het " Controls " venster . Klik op de "Form" in de " Detail "-gebied en sleep met uw muis terwijl u de muisknop ingedrukt houdt om een nieuwe keuzelijst te tekenen . Klik op " Button " en maken gebruik van dezelfde techniek om een nieuwe knop op het formulier te tekenen . Pagina 2 rechtermuisknop op uw nieuwe keuzelijst en klik op 'Eigenschappen'. Klik op het tabblad " Opmaak " en voer " 5 " naast " Aantal kolommen . " 3 Klik op het tabblad "Data " , en kopieer en plak de onderstaande naast de genoemde SQL- code " . . . . rij Bron " : SELECT Customers.Company , Klanten [ achternaam ] , Klanten [ voornaam ] , Klanten [ E - mailadres] , Klanten [ Vacature titel ] FROM Klanten ; Goedkope 4 rechtermuisknop op uw nieuwe knop op het formulier in en klik op 'Eigenschappen'. Klik op het tabblad " Event " en kies " [ Event Procedure ] " naast " Bij klikken . " Klik op de drie puntjes om een nieuwe " button_click " procedure te creëren en open de Microsoft Visual Basic Raam Kopieer 5 en plak de onderstaande in de knop procedure om twee variabelen te creëren code : . Dim dbs als Database Dim strSQL als Koord Copy 6 en plak onderstaande om de huidige database definiëren als de database te gebruiken code : Set dbs = CurrentDb Copy 7 en plak onderstaande om een nieuwe klant te voegen in de "Klanten " table code : strSQL = " INSERT INTO Klanten ( Company , [ Achternaam ] , [ voornaam ] , [ E - mailadres] , [ Job Title ] ) " strSQL = strSQL & " VALUES ( ' Compnay 1 ' , ' Smith ' , ' John ' , ' johnsmith @ yahoo . com ' , ' manager ' ) ; " dbs.Execute ( strSQL ) Kopieer 8 en plak de volgende regel code aan de query in de keuzelijst vernieuwen en geven de nieuwe klant toegevoegd : List0.Requery Schakelaar 9 terug naar het Access Window Microsoft en klik op het pictogram "Weergave" . Klik op de knop om uw code uit te voeren . Blader omlaag in de lijst en je zult zien dat de nieuwe klant toegevoegd .
|