Un conjunto de registros en la programación se utiliza para mantener registros de la tabla de una base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación utilizado para automatizar los procesos de hecho lo contrario de forma manual. En la programación, es útil ser capaz de consultar una tabla y determinar el valor más alto de un campo de tabla particular.
Instrucciones
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 Copia y pega el siguiente código en el módulo. El código va a crear una nueva tabla, añadir registros a la misma y consultar el valor más alto en el campo "Descuentos" a través de un conjunto de registros.
Private Sub readHighestValue ()
DBS dévil como Base de Datos
Dim primera medida de registros
Dim como secuencia sqlstr
Set dbs = CurrentDb
Sqlstr = "CREATE TABLE tableValues (Número de venta, descuentos NÚMERO);"
DoCmd.RunSQL (sqlstr)
Sqlstr = "INSERT INTO tableValues ([Ventas], [Descuentos])"
Sqlstr = sqlstr y "VALORES ('10 .52 ',' 1.25 ');"
DoCmd.SetWarnings falsos
DoCmd.RunSQL (sqlstr)
Sqlstr = "INSERT INTO tableValues ([Ventas], [Descuentos])"
Sqlstr = sqlstr y "VALORES ('15 .25 ',' 4.52 ');"
DoCmd.SetWarnings falsos
DoCmd.RunSQL (sqlstr)
Sqlstr = "SELECT TOP 1 tableValues.Discounts"
Sqlstr = sqlstr Y "DE tableValues"
Sqlstr = sqlstr & "ORDER BY DESC tableValues.Discounts;"
Establecer primera = dbs.OpenRecordset (sqlstr)
MsgBox "descuento más alto fue:" Y rst.Fields (0) .Value
rst.Close
dbs.Close
End Sub
4 Ejecutar la subrutina presionando "F5".