Un jeu d'enregistrements dans la programmation est utilisé pour le stockage des données de table à partir d'une base de données. Microsoft Office Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des processus autrement effectuées manuellement . Dans la programmation , est utile d'être capable d'interroger une table et déterminer la valeur la plus élevée d'un champ de table en particulier . Instructions
1

Ouvrez Microsoft Office Access , sélectionnez « Base de données vide " puis cliquez sur "Créer". Cliquez sur « Base de données Outils " et sélectionner " Visual Basic " pour ouvrir Microsoft Visual Basic.
2

Sélectionnez le menu "Insertion " et cliquez sur "Module ".
3 < p> Copier et coller le code suivant dans votre module. Le code va créer un nouveau tableau , ajouter des enregistrements à elle et interroger la valeur la plus élevée dans le domaine des « Réductions » à travers un jeu d'enregistrements .

ReadHighestValue Private Sub ()

Dim dbs As Database < br >

rst As Recordset

sqlstr Dim As String

Set dbs = CurrentDb

sqlstr = "CREATE TABLE tableValues ​​( Numéro de vente , Réductions NUMBER) ; «

DoCmd.RunSQL ( sqlstr )

sqlstr = "INSERT INTO tableValues ​​( [Ventes] , [ Réduction ]) "

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

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO tableValues ​​( [Ventes ], [ Réduction ] ) " Photos

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

DoCmd.SetWarnings Faux

DoCmd.RunSQL ( sqlstr )
< p > sqlstr = " SELECT TOP 1 tableValues.Discounts "

sqlstr = sqlstr & "FROM tableValues ​​"

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

set rst = dbs.OpenRecordset ( sqlstr )

MsgBox " La réduction est :" & rst.Fields (0 ) Valeur

rst.Close

dbs.Close < . br>

End Sub
4

Exécutez votre routine en appuyant sur la touche "F5 ".