Vide hvordan man kan sammenligne den aktuelle post med en tidligere post i Microsoft Office Access kan hjælpe dig med at identificere gentagne data. Access er en relationel database management system der almindeligvis anvendes til at designe lokale databaser . En forespørgsel bruges til at hente data fra databasetabeller. Visual Basic for Applications ( VBA ) er et programmeringssprog, der anvendes til at automatisere rutineopgaver i Access. I et par trin, du kan skrive VBA at sløjfe gennem resultaterne af en forespørgsel. Instruktioner
1

Åbn Northwind Microsoft Office Access -database. Databasen Northwind er inkluderet i Microsoft Office-pakken. Vælg "Indsæt " menuen og klik
2

Skriv følgende at erklære dine variabler " Modul ". : Hej

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 følgende for at forespørge på " leverandører " table : Hej

queryStr = " SELECT Suppliers.Company , "

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

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

queryStr = queryStr &" fra leverandørerne . ".
4

Skriv følgende for at åbne en ny Recordset : Hej

Set rst = dbs.OpenRecordset ( queryStr )

rst.MoveLast

rst.MoveFirst
5

Skriv følgende at sløjfe gennem posterne i Recordset og sammenligne den aktuelle rekord med den tidligere rekord : Hej

rstCnt = 0 Til rst.RecordCount - 1

qryPrev = rst . felter ( "Selskabet") . Value

qryPrev = qryPrev & rst.Fields ( " [ Efternavn ] "). Value

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

rst.MoveNext

qryCurrent = rst.Fields ( " . Selskabet ") Value < br >

qryCurrent = qryCurrent & rst.Fields ( " [ Efternavn ] "). Value

qryCurrent = qryCurrent & rst.Fields ( " [First Name]" ) . Value
< p > Hvis qryPrev = qryCurrent Så

Debug.Print " tidligere rekord er identisk med aktuelle post. "

Debug.Print qryPrev

Debug.Print qryCurrent
< p > End If

Else

Debug.Print " Færdig sammenligne alle rekorder. "

End If

Næste rstCnt
6 < p> Skriv følgende for at rydde variabler fra hukommelsen : .

rst.Close

dbs.Close

Tryk på " F5 " for at køre underprogram