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