Um conjunto de registros na programação é usada para manter registros da tabela a partir de um banco de dados. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional incluídos na suíte Microsoft Office. Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar os processos de outra forma feitas manualmente . Na programação , é útil ser capaz de consulta uma tabela e determinar o valor mais elevado do campo de uma tabela especial . Instruções
1

Abra o Microsoft Office Access , selecione "Banco de Dados em Branco " , em seguida, clique em "Criar ". Clique em "Ferramentas de banco de dados " e selecione " Visual Basic" para abrir o Microsoft Visual Basic.
2

Selecione o menu "Inserir" e clique em " Módulo ".
3

Copie e cole o seguinte código em seu módulo. O código irá criar uma nova tabela, adicionar registros para ele e consultar o valor mais alto no campo "Descontos " por meio de um conjunto de registros .

Sub readHighestValue Privado ( )

Dim dbs As Database < br >

Dim rst Como Recordset

Dim sqlstr As String

Set dbs = CurrentDb

sqlstr = "CREATE TABLE tableValues ​​(número de vendas , os descontos NÚMERO ),"

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO tableValues ​​([ Sales] , [ Descontos ] ) "

sqlstr = sqlstr & " VALUES ( '10 .52 ' , '1 .25 '); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr )

sqlstr =" INSERT INTO tableValues ​​([ de vendas ], [ Descontos ] ) "

sqlstr = sqlstr & " VALUES ( '15 .25 ', '4 .52 ') ;"

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( sqlstr )

sqlstr = "SELECT TOP 1 tableValues.Discounts "

sqlstr = sqlstr & "FROM tableValues ​​"

sqlstr = sqlstr & " ORDER BY tableValues.Discounts DESC ; "

Definir rst = dbs.OpenRecordset ( sqlstr )

MsgBox " maior desconto foi: " . & rst.Fields (0) Valor

rst.Close

dbs.Close

End Sub
4

Execute sua sub-rotina com a tecla " F5 ".