¿Cómo encontrar Alto Valor de registros en Visual Basic

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".