Aprire Microsoft Office Access , selezionare " Database vuoto ", quindi fare clic su "Crea ". Clicca su "Strumenti database" e selezionare " Visual Basic " per aprire Microsoft Visual Basic .
2
Selezionare il menu "Inserisci" e fare clic su "Modulo ".
3
Copia e incolla il seguente codice nel modulo . Il codice crea una nuova tabella , aggiungere record ad esso e ricercare il valore più alto nel campo " sconti ", attraverso un set di record .
ReadHighestValue Private Sub ( ) per
Dim dbs As Database
Dim rst come Recordset
Dim sqlstr As String
Set dbs = CurrentDb
sqlstr = " CREATE TABLE TABLEVALUES ( numero di vendita , sconti NUMBER) ; "
DoCmd.RunSQL ( sqlstr ) per
sqlstr = " INSERT INTO TABLEVALUES ( [Sales ], [ Sconti ]) "
sqlstr = sqlstr & " VALUES ( '10 .52 ' , '1 .25 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr =" INSERT INTO TABLEVALUES ( [Vendite ], [ sconti ] ) "
sqlstr = sqlstr & " VALUES ( '15 .25 ' , '4 .52 ') ;"
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
sqlstr = "SELECT TOP 1 tableValues.Discounts "
sqlstr = sqlstr & "FROM TABLEVALUES "
sqlstr = sqlstr & " ORDER BY tableValues.Discounts DESC ; "
set rst = dbs.OpenRecordset ( sqlstr ) per
MsgBox " sconto più alto è stato: " & rst.Fields ( 0 ) Valore
rst.Close
dbs.Close < . br>
End Sub
4
Eseguire il sottoprogramma con il tasto " F5 ".
Programmazione © www.354353.com