Saber como comparar o registro atual com um registro anterior no Microsoft Office Access pode ajudar a identificar dados repetitivos . Access é um sistema de gerenciamento de banco de dados relacional comumente usado para criar bancos de dados locais. Uma consulta é usado para recuperar dados a partir de tabelas de banco de dados . Visual Basic for Applications (VBA ) é uma linguagem de programação usada para automatizar tarefas de rotina no Access. Em poucos passos , você pode escrever VBA para percorrer os resultados de uma consulta. Instruções
1

Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office . . " Module" Selecione o menu "Inserir" e clique
2

Digite o seguinte para declarar as variáveis ​​:

Dim rst Como Recordset

Dim dbs As Database

Dim queryStr As String Dim

qryPrev As String Dim

qryCurrent As String Dim

rstCnt As Integer

Set dbs = CurrentDb
3

Digite o seguinte para consultar a tabela " Fornecedores" :

queryStr = "SELECT Suppliers.Company , "

queryStr = queryStr & " fornecedores [ Sobrenome ] , "

queryStr = queryStr &" fornecedores [ primeiro nome] "

queryStr = queryStr &" dos fornecedores; . ".
4

Digite o seguinte para abrir um novo conjunto de registros:

Set rst = dbs.OpenRecordset ( queryStr )

rst.MoveLast

rst.MoveFirst
5

Digite o seguinte para percorrer os registros no conjunto de registros e comparar o registro atual com o anterior recorde :

Para rstCnt = 0 To rst.RecordCount - 1

qryPrev = rst . Campos ("Companhia" ) . Valor

qryPrev = qryPrev & rst.Fields ("[ apelido ]" ) . Valor

qryPrev = qryPrev & rst.Fields ("[ Nome ] " .
) Valor

Se rstCnt < > rst.RecordCount - 1 Então

rst.MoveNext

qryCurrent = rst.Fields (". Companhia ") Valor

qryCurrent = qryCurrent & rst.Fields ("[ apelido ]" ) . Valor

qryCurrent = qryCurrent & rst.Fields ("[ Nome ]" ) . Valor

Se qryPrev = qryCurrent Então

Debug.Print "Record anterior é idêntico ao registro atual. "

Debug.Print qryPrev

Debug.Print qryCurrent

End If

Else

Debug.Print "Concluído comparando todos os registros . "

End If

Próxima rstCnt
6

Digite o seguinte para limpar as variáveis ​​da memória :

rst.Close

dbs.Close

Pressione " F5" para executar a sub-rotina
.