Nicht die Anzeige des neuesten Informationen in Ihrer Datenbank -Anwendung kann ein Problem, wenn die angezeigten Daten verwendet wird, um kritische Entscheidungen zu treffen sein . Sie können ein Listenfeld-Steuerelement , um Informationen aus einer Datenbank-Tabelle angezeigt werden durch die Verwendung einer Abfrage. Die " Requery " Eigenschaft erfrischt die Abfrage im Listenfeld verwendet, um die neuesten Informationen angezeigt werden soll. Es ist eine gute Übung , um die Daten in einem Steuerelement programmgesteuert statt Neustart der Anwendung , um Ihre Daten wieder aufzufrischen . Things You
Nordwind
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie die Nordwind-Datenbank , klicken Sie auf das Menü "Erstellen" und klicken Sie auf "Form Design" in den " Forms "angezeigt. Klicken Sie auf die Registerkarte "Entwurf" und wählen Sie "List Box" in der "Controls" angezeigt. Klicken Sie auf die "Form" in der "Detail" -Bereich und ziehen Sie die Maus mit gedrückter Maustaste gedrückt, um ein neues Listenfeld Steuerelement zu zeichnen . Klicken Sie "Button" und verwenden die gleiche Technik, um eine neue Schaltfläche auf das Formular.
2

rechten Maustaste auf Ihre neue Listenfeld und klicken Sie auf "Eigenschaften". Klicken Sie auf die Registerkarte "Format" und geben Sie " 5 " neben "Column Count . "
3

Klicken Sie auf die Registerkarte "Daten" , und kopieren Sie den SQL-Code unten neben gelistet " . . . . Row Source " :

SELECT Customers.Company , Kunden, [ Nachname ] Kunden [ Vorname ] Kunden [E- Mail-Adresse] , Kunden [ Berufsbezeichnung ] FROM Kunden ;

4

rechten Maustaste auf Ihre neue Schaltfläche auf dem Formular und klicken Sie auf " Eigenschaften". Klicken Sie auf die Registerkarte "Ereignis" und wählen Sie " [Event Procedure] " neben "On Click. " Klicken Sie auf den Schalter , um eine neue " button_click "-Verfahren zu erstellen und öffnen Sie die Microsoft Visual Basic Fenster
5

Kopieren Sie den Code unten in der Schaltfläche Verfahren aufgeführt, um zwei Variablen zu erstellen : .
< P > Dim dbs As Database Dim

strSQL As String
6

Kopieren Sie den Code unten, um die aktuelle Datenbank als Datenbank zu verwenden definieren aufgelistet:

Set dbs = CurrentDb
7

Kopieren Sie den Code unten, um einen neuen Kunden in der Tabelle "Customers" einfügen:

strSQL = " INSERT INTO Kunden ( Unternehmen , [ Nachname ], [ Vorname ], [E -Mail- Adresse], [ Berufsbezeichnung ] ) "

strSQL = strSQL & " VALUES (' Compnay 1', 'Smith ', ' John ', ' johnsmith @ yahoo . com ',' -Manager '); "

dbs.Execute ( strSQL )
8

Kopieren Sie den folgenden Code , um die Abfrage im Listenfeld aktualisieren und zeigt die neue Kunden hinzu :

List0.Requery
9

Schalter zurück auf die Microsoft Access -Fenster und klicken Sie auf "View "-Symbol. Klicken Sie auf die Schaltfläche, um den Code auszuführen. Blättern Sie in der Liste ein, und Sie werden sehen, die neue Kunden hinzu.