Ein Datensatz in der Programmierung verwendet wird, um Datensätze der Tabelle aus einer Datenbank zu halten. Microsoft Office Access ist ein relationales Datenbank -Management-System in der Microsoft Office-Suite enthalten. Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Prozesse zu automatisieren sonst manuell durchgeführt . Bei der Programmierung wird nützlich sein, um eine Tabelle abzufragen und zu bestimmen, den höchsten Wert eines bestimmten Tabellenfeld. Anleitung
1

Öffnen Sie Microsoft Office Access , wählen Sie " Leere Datenbank " klicken Sie dann auf " Erstellen". Klicken Sie auf " Database Tools " und wählen Sie " Visual Basic " zu öffnen Microsoft Visual Basic.
2

Wählen Sie das Menü "Einfügen" und klicken Sie auf "Module ".
3 < p> Kopieren Sie den folgenden Code in das Modul . Der Code wird eine neue Tabelle erstellen , hinzuzufügen , um es abzufragen und den höchsten Wert in der " Rabatte "-Feld über einen Datensatz .

Private Sub readHighestValue () Dim dbs

As Database

Dim rst als Recordset

Dim sqlstr As String Set dbs

= CurrentDb

sqlstr = " CREATE TABLE tableValues ​​(Sales NUMBER , Rabatte NUMBER) ; "

DoCmd.RunSQL ( sqlstr )

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

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

DoCmd.SetWarnings Falsch

DoCmd.RunSQL ( sqlstr )

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

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

DoCmd.SetWarnings Falsch

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 " Höchste Ermäßigung war :" & rst.Fields (0 ) Wert

rst.Close

dbs.Close < . br>

End Sub
4

Führen Sie Ihre Subroutine mit der Taste " F5 ".