Non visualizzare le informazioni più recenti nell'applicazione database può essere un problema se i dati visualizzati vengono utilizzati per prendere decisioni importanti. È possibile utilizzare un controllo casella di riepilogo per visualizzare le informazioni da una tabella del database attraverso l'utilizzo di una query. La proprietà "Requery" rinfresca la query utilizzata nel controllo casella di riepilogo per visualizzare le informazioni più recenti. E 'buona pratica per aggiornare i dati in un controllo a livello di codice, invece di riavviare l'applicazione per aggiornare i dati.

istruzione

1 Aprire il database Northwind, fare clic sul menu "Crea" e cliccare su "Form Design" nel riquadro "Forme". Fare clic sulla scheda "Design" e selezionare "List Box" nel riquadro "Controlli". Fare clic sul "Form" nell'area "Dettagli" e trascinare il mouse tenendo premuto il pulsante del mouse per disegnare un nuovo controllo casella di riepilogo. Fai clic su "Button" e utilizzare la stessa tecnica per disegnare un nuovo pulsante sul modulo.

2 Fare clic con il nuovo controllo casella di riepilogo e fare clic su "Proprietà". Fare clic sulla scheda "Formato" e inserire "5" accanto a "Numero colonne".

3 Fare clic sulla scheda "Dati", e copiare e incollare il codice SQL elencato di seguito accanto a "Fonte Row":

SELEZIONE Customers.Company, i clienti [Cognome], i clienti [Nome], i clienti [Indirizzo e-mail], i clienti [Professione] dai clienti....;

4 Fare clic con il nuovo pulsante nel form e clicca su "Proprietà". Fare clic sulla scheda "Evento" e scegliere "[Routine evento]" accanto a "Al clic". Fare clic sui puntini di sospensione per creare una nuova procedura di "button click" e aprire la finestra di Microsoft Visual Basic.

5 Copiare e incollare il codice elencato di seguito all'interno della procedura di pulsante per creare due variabili:

DBS fiochi come database

Dim strSQL As String

6 Copiare e incollare il codice elencato di seguito per definire il database corrente come il database da utilizzare:

Set dbs = CurrentDb

7 Copiare e incollare il codice elencato qui sotto per inserire un nuovo cliente nella tabella "Clienti":

strSQL = "INSERT INTO clienti (società, [Cognome], [Nome], [Indirizzo e-mail], [Professione])"

strSQL = strSQL & "Valori ( 'Compnay 1', 'Smith', 'John', '[email protected]', 'Manager');"

dbs.Execute (strSQL)

8 Copiare e incollare il seguente riga di codice per aggiornare la query nella casella di riepilogo di controllo e visualizzare il nuovo cliente ha aggiunto:

List0.Requery

9 Tornare alla finestra di Microsoft Access e fare clic sull'icona "Visualizza". Fare clic sul pulsante per eseguire il codice. Scorrere la casella di riepilogo, e vedrete il nuovo cliente ha aggiunto.