Veta hur man kan jämföra det nuvarande rekordet med en tidigare post i Microsoft Office Access kan hjälpa dig att identifiera repetitiva uppgifter . Access är en relationsdatabas management system som vanligen används för att utforma lokala databaser . En fråga används för att hämta data från databastabeller. Visual Basic for Applications ( VBA ) är ett programmeringsspråk som används för att automatisera rutinuppgifter i Access . I några steg du kan skriva VBA att loopa igenom resultatet av en fråga . Instruktioner
1
Öppna Northwind Microsoft Office Access-databas . Northwind-databasen ingår i Microsoft Office-paketet . Välj " Infoga " -menyn och klicka
2
Skriv följande för att deklarera dina variabler " Modul . " :
Dim rst Som Recordset
Dim dbs som databas
Dim queryStr As String
Dim qryPrev As String
Dim qryCurrent As String
Dim rstCnt As Integer
Set dbs = CurrentDb Addera 3
Skriv följande för att söka i " leverantörer " table :
queryStr = " SELECT Suppliers.Company , "
queryStr = queryStr & " leverantörer [ Efternamn ] , "
queryStr = queryStr & " leverantörer [ Förnamn ] "
queryStr = queryStr & " från leverantörerna, . . "
4
Skriv följande för att öppna ett nytt Recordset :
Set rst = dbs.OpenRecordset ( queryStr ) katalog
rst.MoveLast
rst.MoveFirst
5
Skriv följande för att rulla genom posterna i Recordset och jämför den aktuella posten med det tidigare rekordet :
för rstCnt = 0 att rst.RecordCount - 1
qryPrev = RST . fält ( " Bolaget" ) . Value
qryPrev = qryPrev & rst.Fields ( " [ Efternamn ] " ) . Value
qryPrev = qryPrev & rst.Fields ( " [ Förnamn ] " . ) Value
p Om rstCnt < > rst.RecordCount - 1 Sen
rst.MoveNext
qryCurrent = rst.Fields ( " . Bolaget " ) Värde
qryCurrent = qryCurrent & rst.Fields ( " [ Efternamn ] " ) . Value
qryCurrent = qryCurrent & rst.Fields ( " [ Förnamn ] " ) . Value
Om qryPrev = qryCurrent Sedan
Debug.Print " Föregående Record är identisk med aktuell post . "
Debug.Print qryPrev
Debug.Print qryCurrent
End If
Else
Debug.Print " Kom jämföra alla rekord . "
End If
Nästa rstCnt
6
Skriv följande för att rensa variabler från minnet : .
rst.Close
dbs.Close
Tryck " F5 " för att köra subrutinen
Addera
