Å 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
