A recordset distincts values from different fields

				
'**************************************
' Name: A recordset distincts values from different fields
' Description:Find distinct values and sum the results into a diferent field
the difference is you don't have to waste the other fields!!
it will report the last records found
' By: Manos Emmanouhl
'
' Returns:returns a fine recordset .. but you have to do updatebatch if you wana save it to the database
... i only wanted to print it..
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=48004&lngWId=1'for details.'**************************************

Public recSelect As New Recordset
Public recbck As New Recordset
Public Function findclearp()
Dim recSelect1 As String
Dim recSelect2 As String
Dim recSelectbck As Integer
Dim n As Integer
Dim nn As Integer
Dim hh As Integer
Dim tt As Integer
Dim tt1 As Integer
Dim tt2 As Integer
n = 0
hh = 1
recSelect.MoveLast
recSelectbck = recSelect.RecordCount
recSelect.Close
recSelect.LockType = adLockBatchOptimistic
recSelect.Open
recSelect1 = ""
recSelect2 = ""
recSelect.MoveLast
'MsgBox recSelectbck
For tt1 = 1 To recSelectbck
'select whatever fields you want here
recSelect1 = recSelect![barcode]
recSelect2 = recSelect![foodid]
n = n + 1
For tt2 = 1 To recSelectbck
recSelect.MovePrevious
If recSelect.BOF = True Then GoTo eendofile2
'select whatever fields you want here
If recSelect1 = recSelect![barcode] And recSelect2 = recSelect![foodid] Then
recSelect.Delete
hh = hh + 1
recSelectbck = recSelectbck - 1
If recSelectbck <= 1 Then GoTo eendofile
End If
Next tt2
eendofile2:
nn = n - 1
recSelect.MoveLast
For tt = 1 To nn
If recSelect.BOF = True Then GoTo eendofile
recSelect.MovePrevious
Next tt
'then sum the results into a field
recSelect![monada] = hh
hh = 1
recSelect.MoveLast
For tt = 1 To n
If recSelect.BOF = True Then GoTo eendofile
recSelect.MovePrevious
Next tt
If recSelect.BOF = True Then GoTo eendofile
'recSelect.MoveNext
Next tt1
eendofile:
'make a clone in case you want to close the first recordset
Set recbck = recSelect.Clone
End Function