A rekord satt i programmering brukes til å holde tabellen poster fra en database . Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere prosesser ellers gjort manuelt . I programmering er nyttig å være i stand til å søke et bord og bestemme den høyeste verdien av et bestemt tabell felt . Instruksjoner
en

Åpne Microsoft Office Access , velger du " Blank Database " klikk " Opprett". Klikk "Database Verktøy" og velg " Visual Basic " for å åpne Microsoft Visual Basic.
2

Velg " Insert"-menyen og klikk " Module ".
3 < p > Kopier og lim inn følgende kode i modulen . Koden vil opprette en ny tabell , legge til poster til det og spørre den høyeste verdien i " Rabatter "-feltet gjennom en recordset .

Private Sub readHighestValue ( )

Dim DBS Som Database

Dim rst Som Recordset

Dim SQLstr As String

Set dBS = CurrentDb

SQLstr = "CREATE TABLE tableValues ​​( Sales NUMMER , rabatter NUMBER ); "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO tableValues ​​([ Salg ], [ rabatter ]) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr =" INSERT INTO tableValues ​​( [Salg ], [ rabatter ] ) "

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr )
< p > SQLstr = " SELECT TOP en tableValues.Discounts "

SQLstr = SQLstr & " FROM tableValues ​​"

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

Set rst = dbs.OpenRecordset ( SQLstr )

MsgBox " Høyeste Rabatt var :" & rst.Fields ( 0 ) Verdi

rst.Close

dbs.Close < . br >

End Sub
4

Kjør subrutine ved å trykke " F5 ".