En förteckning set i programmering används för att hålla tabellen poster från en databas . Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera processer annars sker manuellt . I programmering , är bra att kunna söka ett bord och bestämma det högsta värdet för en viss tabell fält . Instruktioner
1
Öppna Microsoft Office Access , välj " Tom databas " och sedan klicka på " Skapa ". Klicka på " Databas Verktyg " och välj " Visual Basic " för att öppna Microsoft Visual Basic .
2
Välj " Infoga " -menyn och klicka på " Modul . " Addera 3
Kopiera och klistra in följande kod på din modul . Koden kommer att skapa en ny tabell , lägga till poster till den och söka det högsta värdet i " Rabatter " fältet genom en postmängd .
Private Sub readHighestValue ( ) katalog
Dim dbs som databas
Dim rst Som Recordset
Dim sqlstr As String
Set dbs = CurrentDb
sqlstr = " CREATE TABLE tableValues ( Sales NUMMER , Rabatter NUMBER ) ; "
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " INSERT INTO tableValues ( [ Försäljning ] , [ Rabatter ]) "
sqlstr = sqlstr & " VALUES ( '10 .52 ' , '1 .25 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " INSERT INTO tableValues ( [Försäljning ] , [ Rabatter ] ) "
sqlstr = sqlstr & " VALUES ( '15 .25 ' , '4 .52 ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " SELECT TOP 1 tableValues.Discounts "
sqlstr = sqlstr & " FROM tableValues "
sqlstr = sqlstr & " ORDER BY tableValues.Discounts DESC ; "
set rst = dbs.OpenRecordset ( sqlstr ) katalog
MsgBox " Högsta rabatt var : " & rst.Fields ( 0 ) Value
rst.Close
dbs.Close < . br >
End Sub
4
Kör din subrutinen genom att trycka på " F5 ".
