|
Savoir comment comparer l'enregistrement en cours d'un enregistrement précédent dans Microsoft Office Access peut vous aider à identifier des données répétitives . L'accès est un système de gestion de base de données relationnelle couramment utilisée pour la conception de bases de données locales . Une requête est utilisée pour récupérer les données des tables de base de données . Visual Basic pour Applications ( VBA ) est un langage de programmation utilisé pour automatiser des tâches de routine dans Access. En quelques étapes, vous pouvez écrire VBA pour parcourir les résultats d'une requête . Instructions
1 Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office. Sélectionnez le menu "Insertion " et cliquez sur
2 Tapez la suivante pour déclarer vos variables "Module ". :
Rst As Recordset
Dim dbs As Database Photos queryStr Dim As String
qryPrev Dim As String
qryCurrent Dim As String
rstCnt As Integer
Set dbs = CurrentDb
3 Tapez la commande suivante pour interroger la table "Fournisseurs ":
queryStr = "SELECT Suppliers.Company , "
queryStr = queryStr & " fournisseurs [ Nom ] , "
queryStr = queryStr et " fournisseurs [ Prénom ] "
queryStr = queryStr et " des fournisseurs; . ».
4 Tapez la commande suivante pour ouvrir une nouvelle enregistrements:
Set rst = dbs.OpenRecordset ( queryStr )
rst.MoveLast
rst.MoveFirst
5 Tapez la commande suivante pour parcourir les enregistrements dans le jeu d'enregistrements et de comparer l'enregistrement en cours avec le précédent record :
rstCnt = 0 To rst.RecordCount - 1 x qryPrev = rst . Fields ( "Société" ) . Value
qryPrev = qryPrev & rst.Fields (« [nom] »). Valeur
qryPrev = qryPrev & rst.Fields ( " [ Prénom ] »). Valeur
Si rstCnt <> rst.RecordCount - 1 Puis
rst.MoveNext
qryCurrent = rst.Fields (". Société ») Valeur
qryCurrent = qryCurrent & rst.Fields ( " [nom] " ) . Value
qryCurrent = qryCurrent & rst.Fields ( " [ Prénom ]") . Value
Si qryPrev = qryCurrent Puis
Debug.Print " enregistrement précédent est identique au record actuel . "
Debug.Print qryPrev
Debug.Print qryCurrent
End If Else
Debug.Print " fini de comparer tous les records. "
End If
Suivant rstCnt
6 < p> Tapez la commande suivante pour effacer les variables de la mémoire : .
rst.Close
dbs.Close
Appuyez sur " F5 " pour exécuter le sous-programme
|
