Πώς να Συγκρίνετε μιας προηγούμενης εγγραφής στην Access Έρευνα

Γνωρίζοντας πώς να συγκρίνει την τρέχουσα εγγραφή με ένα προηγούμενο ρεκόρ στην Microsoft Office Access μπορεί να σας βοηθήσει να εντοπίσετε επαναλαμβανόμενες δεδομένα . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που χρησιμοποιούνται συνήθως για το σχεδιασμό των τοπικών βάσεων δεδομένων . Ένα ερώτημα χρησιμοποιείται για την ανάκτηση δεδομένων από τους πίνακες της βάσης δεδομένων . Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού που χρησιμοποιείται για την αυτοματοποίηση των εργασιών ρουτίνας στην Access . Σε μερικά βήματα μπορείτε να γράψετε VBA να βρόχο μέσω των αποτελεσμάτων ενός ερωτήματος . Οδηγίες
Η

1 Ανοίξτε τη βάση δεδομένων Northwind Microsoft Office Access . Η βάση δεδομένων Northwind περιλαμβάνεται στη σουίτα Microsoft Office . " . Ενότητα " Επιλέξτε το "Εισαγωγή" μενού και κάντε κλικ στο 2

Πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας :

Dim rst Όπως εγγραφών

Dim dbs Όπως Database

Dim queryStr Όπως String Dim

qryPrev Όπως String Dim

qryCurrent Όπως String Dim

rstCnt As Integer

Set dbs = CurrentDb
εικόνων 3

Πληκτρολογήστε το παρακάτω, για να θέσει υπό αμφισβήτηση το «Προμηθευτές» πίνακα:

queryStr = "SELECT Suppliers.Company , "

queryStr = queryStr & " προμηθευτές [ Επώνυμο ] , "

queryStr = queryStr & " προμηθευτές [ Όνομα ] "

queryStr = queryStr & " ΑΠΟ προμηθευτές ? . ».
Η 4

Πληκτρολογήστε τα ακόλουθα για να ανοίξετε ένα νέο εγγραφών :

Set RST = dbs.OpenRecordset ( queryStr )

rst.MoveLast

rst.MoveFirst
5

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσα από τα αρχεία του Recordset και να συγκρίνουν την τρέχουσα εγγραφή με το προηγούμενο ρεκόρ :

για rstCnt = 0 για να rst.RecordCount - 1

qryPrev = ΤΥ . πεδία ( «Εταιρεία» ) . Value

qryPrev = qryPrev & rst.Fields ( " [ Επώνυμο ] " ) . Value

qryPrev = qryPrev & rst.Fields ( " [ Όνομα ] " . ) Αξία

Αν rstCnt <> rst.RecordCount - 1 τότε

rst.MoveNext

qryCurrent = rst.Fields ( " . Εταιρεία » ) Value

qryCurrent = qryCurrent & rst.Fields ( " [ Επώνυμο ] " ) . Value

qryCurrent = qryCurrent & rst.Fields ( " [ Όνομα ] " ) . Value

Αν qryPrev = qryCurrent τότε

Debug.Print « Προηγούμενη Record είναι ταυτόσημη με την τρέχουσα εγγραφή . "

Debug.Print qryPrev

Debug.Print qryCurrent

End If

Else

Debug.Print "Τέλος συγκρίνοντας όλα τα αρχεία . "