Fare clic sulla scheda "Crea" in Access e selezionare " Form Design ". Il programma crea una nuova forma . Selezionare il controllo " Button " sotto il riquadro " Comandi " e spostare il mouse sopra il nuovo modulo. Sinistro del mouse e creare il nuovo pulsante . Aggiungere un controllo " Casella di riepilogo " per la forma allo stesso modo è stato aggiunto il pulsante .
2
pulsante destro del mouse sulla casella di riepilogo e selezionare "Proprietà ". Sul " Foglio Proprietà ", fare clic sulla scheda " Dati" e selezionare la casella a discesa " Tipo origine riga " e selezionare " Elenco valori ".
3
destro del mouse sul nuovo pulsante e selezionare " Proprietà". Sul " Foglio Proprietà " fare clic sulla scheda "Evento" e selezionare la casella a discesa su " Al clic " e selezionare " [ Event Procedure ] . " . Clicca sul puntini di sospensione ( ... ) e si aprirà una nuova finestra di Microsoft Visual Basic
4
Digitare quanto segue:
Dim dbs As Database Dim
RST come Recordset
Dim X As Integer
Dim strSQL As String Dim
LastFirst As String
di dichiarare le variabili si intende utilizzare.
5
Tipo :
Set dbs = CurrentDb
per impostare il database corrente
Tipo : .
strSQL = " CREATE TABLE tabella1 ( TESTO nome ( 25 ) , testo Cognome ( 25) ) ; ".
DoCmd.RunSQL ( strSQL ) per
per creare una nuova tabella nel database denominato " Tabella1 "
6
Tipo :
strSQL = " INSERT INTO Tabella1 ( [Nome] , [ Cognome] ) "
strSQL = strSQL & " VALUES ( ' John' , 'Smith' ) ; "
7
Tipo
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
per inserire la prima riga di dati . :
strSQL = " INSERT INTO Tabella1 ( [Nome] , [ Cognome] ) "
strSQL = strSQL & " VALUES ( ' Jaime ', ' Avelar '); "
. DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) per
per inserire una seconda riga di dati
8 Tipo
:
set rst = dbs.OpenRecordset ( " Tabella1 " ) per
per impostare il set di record
Tipo : .
rst.MoveFirst
per x = 0 per rst.RecordCount - 1
LastFirst = Trim ( . rst.Fields ( "Cognome " ) Value) & "" & Trim ( rst.Fields ( . " Nome " ) Valore ) per
List1.AddItem LastFirst
rst.MoveNext
Avanti X
un ciclo tra i record che avete appena creato e li visualizza nella casella di riepilogo sul modulo .
Pagina 9
Tipo :
MsgBox " ! avete visualizzati tutti i record nella tabella 1 per elencare scatola con successo " , vbInformation
per visualizzare un messaggio . Passare da una finestra torna ad Access 2007 e fare clic su "Visualizza" per eseguire il form . Fare clic sul pulsante " Comando0 " e vedrete il controllo casella di riepilogo visualizza i nomi .
Programmazione © www.354353.com