Clicca su "Strumenti database" in Microsoft Access 2007 e selezionare " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fare clic sul menu "Inserisci" e selezionare " Modulo " per creare " Modulo1 ".
2
Tipo " myVBAQuery Public Sub " e premere " Invio" per creare un nuovo sottoprogramma .
digitare quanto segue per dichiarare le variabili :
Dim strSQL As String
Dim dbs As Database Dim rst
come Recordset
Dim rstCnt As Integer
3
digitare quanto segue per definire la query e aprire il Recordset :
Set dbs = CurrentDb
strSQL = " . SELEZIONA Tabella 1 * FROM Tabella 1 ; "
Set rst = dbs.OpenRecordset ( strSQL ) economici 4
Digitare quanto segue al ciclo attraverso il vostro Recordset una visualizzazione dei dati memorizzati nel campo " 1 " nella tua tabella :
rst.MoveFirst
rstCnt = 0 Per rst.RecordCount
MsgBox rst.Fields ( 1) . Valore
rst.MoveNext
Successivo rstCnt
Premere " Ctrl + S " per salvare la subroutine in " Modulo1 " e sarà disponibile per l'utilizzo in futuro .
Programmazione © www.354353.com