Ako porovnávať predchádzajúci záznam v programe Access otázku

Vedieť , ako porovnať aktuálny záznam s predchádzajúcim záznamu v aplikácii Microsoft Office Access vám môže pomôcť identifikovať opakujúce sa dáta . Access je relačný databázový systém sa bežne používa pre návrh lokálnej databázy . Otázka sa používa na načítanie dát z databázových tabuliek . Visual Basic for Applications ( VBA ) je programovací jazyk používaný pre automatizáciu rutinných úloh v programe Access . V niekoľkých krokoch môžete napísať VBA prechádzať výsledky dotazu. Pokyny dovolená 1

Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office . " . Modul " Zvoľte menu " Vložiť " a kliknite na
2

Zadajte nasledujúce deklarovať svoje premenné :

Dim rst Ako Recordset

Dim dbs ako databáza

Dim queryStr As String Dim

qryPrev As String Dim

qryCurrent As String Dim

rstCnt As Integer

Set dbs = CurrentDb
3

Zadajte nasledujúci dotaz " Dodávatelia " tabuľka :

queryStr = " SELECT Suppliers.Company , "

queryStr = queryStr & " dodávatelia [ Priezvisko ] "

queryStr = queryStr & " dodávatelia [ First Name ] "

queryStr = queryStr & " od dodávateľov ; .. "
4

Zadajte nasledujúci otvoriť nové Recordset : Autor

Set rst = dbs.OpenRecordset ( queryStr )

rst.MoveLast

rst.MoveFirst
5

zadajte nasledujúce prechádzať záznamy v Recordset a porovnať aktuálny záznam s predchádzajúcim záznamu :

rstCnt = 0 To rst.RecordCount - 1

qryPrev = rst . pole ( ďalej len " Spoločnosť" ) . Hodnota

qryPrev = qryPrev & rst.Fields ( " [ Priezvisko ] " ) . Hodnota

qryPrev = qryPrev & rst.Fields ( " [ Meno ] " ) . Hodnota

Ak rstCnt < > rst.RecordCount - 1. Potom

rst.MoveNext

qryCurrent = rst.Fields ( " . Spoločnosť " ) Hodnota

qryCurrent = qryCurrent & rst.Fields ( " [ Priezvisko ] " ) . Hodnota

qryCurrent = qryCurrent & rst.Fields ( " [ Meno ] " ) . Hodnota

Ak qryPrev = qryCurrent Potom

Debug.Print " Predchádzajúci rekord je identický s aktuálnym záznamu . "

Debug.Print qryPrev

Debug.Print qryCurrent

End If

Else

Debug.Print "Dokončené porovnaním všetky záznamy . "

End If

Ďalšie rstCnt
6

Zadajte nasledujúci odstrániť premenné z pamäte :

rst.Close

dbs.Close

Stlačte " F5 " spustiť podprogram
.

• Predchádzajúca strana: Ako sa dostať na počet riadkov v FlexGrid v jazyku Visual Basic 
• Ďalšia strana: Ako Access List dotazu Box