Å vite hvordan man skal sammenligne den nåværende rekorden med en tidligere rekord i Microsoft Office Access kan hjelpe deg med å identifisere gjentatte data . Access er en relasjonsdatabase styringssystem vanligvis brukes til å utforme lokale databaser . En spørring brukes til å hente data fra databasetabeller . Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutineoppgaver i Access. I noen få trinn kan du skrive VBA å sløyfe gjennom resultatene av en spørring . Instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken. Velg " Insert "-menyen og klikk
2

Skriv inn følgende å erklære variabler " Module ". : En

Dim rst Som Recordset

Dim DBS Som Database

Dim queryStr As String

Dim qryPrev As String

Dim qryCurrent As String

Dim rstCnt As Integer

Set dBS = CurrentDb
3

Skriv inn følgende for å søke på " leverandører " tabellen : en

queryStr = "SELECT Suppliers.Company , "

queryStr = queryStr & " leverandører [ etternavn ], "

queryStr = queryStr &" leverandører [ fornavn ] "

queryStr = queryStr &" FROM leverandører ; . ".
4

Skriv inn følgende for å åpne en ny Recordset : en

Sett rst = dbs.OpenRecordset ( queryStr )

rst.MoveLast

rst.MoveFirst
5

Skriv inn følgende for å skifte mellom de forskjellige postene i Recordset og sammenligne den nåværende rekorden med den tidligere rekorden : en

for rstCnt = 0 For å rst.RecordCount - en

qryPrev = rst . felt ( "Selskapet") . Verdi

qryPrev = qryPrev & rst.Fields ("[ etternavn ] ") . Verdi

qryPrev = qryPrev & rst.Fields ("[ fornavn ] ». ) Verdi
p Hvis rstCnt < > rst.RecordCount - 1 Så

rst.MoveNext

qryCurrent = rst.Fields ( " . Selskapet ") verdi

qryCurrent = qryCurrent & rst.Fields ("[ etternavn ] ") . Verdi

qryCurrent = qryCurrent & rst.Fields ("[ fornavn ] ") . Verdi
< p > Hvis qryPrev = qryCurrent Deretter

Debug.Print " Forrige Record er identisk med gjeldende rekord . "

Debug.Print qryPrev

Debug.Print qryCurrent
< p > End If

Else

Debug.Print "Ferdig sammenligne alle rekorder . "

End If

Neste rstCnt
6 < p> Skriv inn følgende for å fjerne variabler fra minnet : .

rst.Close

dbs.Close

Trykk " F5 " for å kjøre subrutine