1
Abra Microsoft Office Access , seleccione "Base de datos en blanco " y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos" y seleccione "Visual Basic " para abrir Microsoft Visual Basic .
2
Seleccione el menú "Insertar" y haga clic en " módulos".
3 < p> Copia y pega el siguiente código en el módulo. El código creará una nueva tabla, agregar registros a la misma y consultar el valor más alto en el campo " Descuentos " a través de un conjunto de registros .
ReadHighestValue Sub Private ()
Dim dbs como base de datos
rst As Recordset
sqlstr dévil como secuencia
Set dbs = CurrentDb
sqlstr = "CREATE TABLE (número tableValues rebajas, descuentos NUMBER) ; "
DoCmd.RunSQL ( sqlstr )
sqlstr = "INSERT INTO tableValues ( [Ventas ], [ Volumen ]) "
sqlstr = sqlstr y VALORES
" ( '10 .52 ' , '1 .25 '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
sqlstr = " INSERT INTO tableValues ( [Ventas ], [ Descuentos ] ) "
sqlstr = sqlstr & " VALUES ( '15 .25 ', '4 .52 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
< p > sqlstr = " SELECT TOP 1 tableValues.Discounts "
sqlstr = sqlstr y "FROM tableValues "
sqlstr = sqlstr & " ORDER BY tableValues.Discounts DESC ";
Set rst = dbs.OpenRecordset ( sqlstr )
MsgBox " El mejor descuento fue: " & rst.Fields ( 0 ) Valor
rst.Close
dbs.Close < . br>
End Sub
4
Ejecute la subrutina con la tecla " F5 ".