473,588 Members | 2,486 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Eliminating Duplicates in MS Access while updating them

Hi All

I have the following scenario, where I have found all the duplicates
in a table, based on an order number and a part number (item).I might
have something like this:
Order PODate Rec Qty Invoice# Item
Supplier Status POReceivedDate
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004

OR:

Order PODate RecQTY Inv Item Supplier Status POReceivedDate
571056 20/09/2004 1 0 D26032284 D0001 PENDING 20/09/2004
571056 20/09/2004 10 0 D8970654390 D0001 PENDING 20/09/2004
571056 21/09/2004 10 0 D8970654390 D0001 PENDING 21/09/2004
571056 20/09/2004 1 0 D26032284 D0001 PENDING 20/09/2004

Now I have to read through them line by line and then check if the
part is the same and then add the quantities and use the latest date.
So for example one I would have the following in the end:

Order PODate Rec Qty Invoice# Item
Supplier Status POReceivedDate
570133 03/09/2004 150 0 DMEDIUM L0010 PENDING 03/09/2004

And for example 2:
Order PODate RecQTY Inv Item Supplier Status POReceivedDate
571056 20/09/2004 2 0 D26032284 D0001 PENDING 20/09/2004
571056 21/09/2004 20 0 D8970654390 D0001 PENDING 21/09/2004

Could any one out there be able to help me??

Thank you very much!
Marlene
Nov 13 '05 #1
6 2387
Are there any primary keys? I'm thinking the better way is to
pre-check for an existing record, and then update the quantity if one
is found; otherwise, add a new entry.

pseudo-codingly something like this: (the query given here could be
considerably smaller depending on any primary key(s))
<start>
1. query for existing order...
select (order# [and/or part# ???])
from yourTable
where POdate = givenDate ['given' means from a form or other
input]
and invoice = (givenInvoice (or zero ??))
and supplier = givenSupplier
and status = givenStatus
and [anything else to get a SINGLE match]
2. check the recordcount from the query result
3. if the recordcount = 1,
then update the quantity...
else add a new record
<end>

I'll give you more assistance, if needed, but others may give
additional info. before this post. I would like to know about any
primay key(s). Also, what Access version do you have/use?

Thanks,
-PT

ma******@comh.c o.za (Marlene) wrote in message news:<cd******* *************** ****@posting.go ogle.com>...
Hi All

I have the following scenario, where I have found all the duplicates
in a table, based on an order number and a part number (item).I might
have something like this:
Order PODate Rec Qty Invoice# Item
Supplier Status POReceivedDate
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004
570133 03/09/2004 50 0 DMEDIUM L0010 PENDING 03/09/2004

OR:

Order PODate RecQTY Inv Item Supplier Status POReceivedDate
571056 20/09/2004 1 0 D26032284 D0001 PENDING 20/09/2004
571056 20/09/2004 10 0 D8970654390 D0001 PENDING 20/09/2004
571056 21/09/2004 10 0 D8970654390 D0001 PENDING 21/09/2004
571056 20/09/2004 1 0 D26032284 D0001 PENDING 20/09/2004

Now I have to read through them line by line and then check if the
part is the same and then add the quantities and use the latest date.
So for example one I would have the following in the end:

Order PODate Rec Qty Invoice# Item
Supplier Status POReceivedDate
570133 03/09/2004 150 0 DMEDIUM L0010 PENDING 03/09/2004

And for example 2:
Order PODate RecQTY Inv Item Supplier Status POReceivedDate
571056 20/09/2004 2 0 D26032284 D0001 PENDING 20/09/2004
571056 21/09/2004 20 0 D8970654390 D0001 PENDING 21/09/2004

Could any one out there be able to help me??

Thank you very much!
Marlene

Nov 13 '05 #2
Dear PaulT

Thank you very much for your help so far! I have a problem though with
your queries, because what I am trying to do, is automate the whole
order 'cleanse' process. In other words, that would have to run at
night without any user intervention. The form where the code will
reside will be loaded automatically with a macro, that was set in
scheduled tasks to run at a time. When the form runs it will have to go
through that table and eliminate the duplicates. At the moment that
table (All Purchases) do not have any primary keys, because of all the
duplicates, but after the cleanse the unique records will be appended to
another table called: tbl_SupplierOrd erLines, where the primary key is
the PurchaseOrderNu mber and the ItemCode. Hope that this information
could help you a bit more! I am so depressed about this, I have spend
like 2 days and more on it doing only that, and not getting anywhere. I
shall add my 'developed code - so far' at the bottom of this message if
you would like to see what I have been doing so far. It is not working
correctly yet, because I am struggeling with the fact of when I have 4
or more lines of the same data...... then it just loops and loops...

Thanks again for your interest and help!

Kind Regards
Marlene

N.S. Here is the code (hope it makes sense at all!):

Option Compare Database
Option Explicit

Private Sub cmdEliminate_Cl ick()
'Recordsets
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim dbsMax As DAO.Database
Dim rstMax As DAO.Recordset
Dim dbsMaxCount As DAO.Database
Dim rstMaxCount As DAO.Recordset
'Keeping track of the order lines as gets read
Dim ordlineone As String 'Order Numbers
Dim ordlinetwo As String
Dim intqtyone As Integer 'Quantities
Dim intqtytwo As Integer
Dim inttotal As Integer 'Total of Quantities
Dim dateone As Date 'Dates
Dim datetwo As Date
Dim invnumberone As String 'Invoice Numbers
Dim invnumbertwo As String
Dim statone As String 'Statusses
Dim stattwo As String
Dim partone As String 'Parts
Dim parttwo As String
Dim supone As String 'Suppliers
Dim suptwo As String
Dim rdateone As Date 'Received Dates
Dim rdatetwo As Date
Dim intMax As Integer 'Max count of an order in the file
Dim intMaxCount As Integer
Dim valid As Boolean 'Amount of times to loop
'counters
Dim intcountord As Integer 'Count appearance of a order number in
the file
Dim intcounter As Long 'Count amount of records in file
Dim fourlineqty As Integer
Dim i As Integer 'used in loop 2 maybe
Dim backord As String 'To keep track of order if more than 2
occurances maybe
intcountord = 0
intcounter = 0
intqtyone = 0
intqtytwo = 0
inttotal = 0
ordlineone = ""
ordlinetwo = ""
invnumberone = ""
invnumbertwo = ""
dateone = 0
datetwo = 0
rdateone = 0
rdatetwo = 0
statone = ""
stattwo = ""
partone = ""
parttwo = ""
supone = ""
suptwo = ""
valid = False
i = 0
backord = ""

'============== ======
'Database connections
'============== ======

Set dbs = CurrentDb()
Set rst = dbs.OpenRecords et("SELECT [All
Purchases].PurchaseOrderN umber, [All Purchases].PurchaseOrderD ate, [All
Purchases].ReceivedQuanti ty, [All Purchases].InvoiceNumber, [All
Purchases].ItemCode, [All Purchases].SupplierCode, [All
Purchases].Status , [All Purchases].[PurchaseOrderRe ceivedDate]" & _
"FROM [All Purchases] " & _
"WHERE ((([All
Purchases].PurchaseOrderN umber) In " & _
"(SELECT
[PurchaseOrderNu mber] " & _
"FROM [All Purchases] As
Tmp " & _
"GROUP BY
[PurchaseOrderNu mber],[ItemCode],[SupplierCode],[Status] " & _
"HAVING Count(*)>1 " & _
"And [ItemCode] = [All
Purchases].[ItemCode] " & _
"And [SupplierCode] =
[All Purchases].[SupplierCode] " & _
"And [Status] = [All
Purchases].[Status]))) " & _
"ORDER BY [All
Purchases].PurchaseOrderN umber" & _
", [All Purchases].ItemCode, [All
Purchases].Status")

Do While Not rst.EOF
If rst("PurchaseOr derNumber") = "570372" Then

MsgBox rst("PurchaseOr derNumber")
End If

Set dbsMaxCount = CurrentDb()
Set rstMaxCount = dbsMaxCount.Ope nRecordset("SEL ECT [Find
duplicates on PO#,Item,Status ,Supplier for All
Purchases].PurchaseOrderN umber, [Find duplicates on
PO#,Item,Status ,Supplier for All Purchases].ItemCode, Count([Find
duplicates on PO#,Item,Status ,Supplier for All
Purchases].PurchaseOrderN umber) AS [Counter]" & _
"FROM [Find
duplicates on PO#,Item,Status ,Supplier for All Purchases] " & _
"where [Find
duplicates on PO#,Item,Status ,Supplier for All
Purchases].PurchaseOrderN umber = '" & rst("PurchaseOr derNumber") & "'" &
_
" AND [Find
duplicates on PO#,Item,Status ,Supplier for All Purchases].ItemCode = '"
& rst("ItemCode") & "'" & _
"GROUP BY [Find
duplicates on PO#,Item,Status ,Supplier for All
Purchases].PurchaseOrderN umber, [Find duplicates on
PO#,Item,Status ,Supplier for All Purchases].ItemCode " & _
"HAVING
(((Count([Find duplicates on PO#,Item,Status ,Supplier for All
Purchases].PurchaseOrderN umber))>2))")
If Not rstMaxCount.EOF Then
intMaxCount = rstMaxCount("Co unter")
End If
'MsgBox rst("PurchaseOr derNumber") & " " & rst("ItemCode")

If intMaxCount = 3 And intcountord = 0 Then 'will work for 3
If fourlineqty <> 0 Then
rst.Edit
rst("ReceivedQu antity") = fourlineqty +
rst("ReceivedQu antity")
rst.Update

End If
ordlinetwo = ""
ordlineone = ""
intqtytwo = 0
intqtyone = 0
datetwo = 0
dateone = 0
invnumbertwo = ""
invnumberone = ""
stattwo = ""
statone = ""
parttwo = ""
partone = ""
suptwo = ""
supone = ""
rdatetwo = 0
rdateone = 0
intcountord = 0
backord = ""
intMaxCount = 0

rst.MoveNext

End If

If intcountord = 0 Then
'backord = ordlineone
invnumberone = ""
invnumbertwo = ""
partone = ""
parttwo = ""
ordlineone = ""
ordlinetwo = ""
statone = ""
stattwo = ""
dateone = 0
datetwo = 0
rdateone = 0
rdatetwo = 0
supone = ""
suptwo = ""
intqtyone = 0
intqtytwo = 0
'backord = ""
End If

intcountord = intcountord + 1 'Count appearance of a order
number in the file
intcounter = intcounter + 1 'Count amount of records in
file

If intcounter = 1 Or intcountord = 0 Then 'the first read
of the file
ordlineone = rst("PurchaseOr derNumber")
intqtyone = rst("ReceivedQu antity")
dateone = rst("PurchaseOr derDate")
invnumberone = rst("InvoiceNum ber")
statone = rst("Status")
partone = rst("ItemCode")
supone = rst("SupplierCo de")
statone = rst("Status")
rdateone = rst("PurchaseOr derReceivedDate ")
rst.Edit
rst.Delete
rst.MoveNext
Else 'intcounter > 1

'============== ===========
'Going to a new order now
'============== ===========

If (invnumberone = "" And partone = "" And ordlineone = ""
And statone = "" And dateone = 0 And supone = "" And intqtyone = 0) Then
ordlineone = rst("PurchaseOr derNumber")
intqtyone = rst("ReceivedQu antity")
dateone = rst("PurchaseOr derDate")
invnumberone = rst("InvoiceNum ber")
statone = rst("Status")
partone = rst("ItemCode")
supone = rst("SupplierCo de")
statone = rst("Status")
rdateone = rst("PurchaseOr derReceivedDate ")

rst.Edit
rst.Delete

'MsgBox "ordline one " & ordlineone & " ordlinetwo " &
ordlinetwo & "invone " & invnumberone

If ordlineone <> ordlinetwo Then
ordlinetwo = ""
intqtytwo = 0
datetwo = 0
invnumbertwo = ""
stattwo = ""
parttwo = ""
suptwo = ""
rdatetwo = 0

intcountord = 1
rst.MoveNext
End If
Else
If (invnumberone = "" And partone = "" And ordlineone =
"" And statone = "" And dateone = 0 And supone = "" And intqtyone = 0)
Or (intcounter = 2) Or (intcountord = 2) Then
'or intcountord = 2 and all twos are blank!!

ordlinetwo = rst("PurchaseOr derNumber")
intqtytwo = rst("ReceivedQu antity")
datetwo = rst("PurchaseOr derDate")
invnumbertwo = rst("InvoiceNum ber")
stattwo = rst("Status")
parttwo = rst("ItemCode")
suptwo = rst("SupplierCo de")
rdatetwo = rst("PurchaseOr derReceivedDate ")

If ordlinetwo = ordlineone Then
If partone = parttwo Then
If supone = suptwo Then
If statone = stattwo Then
'============== =
'invoice numbers
'============== =
If invnumberone = 0 And invnumbertwo
<> 0 Then

If dateone > datetwo Then
rst.Edit
rst("PurchaseOr derDate") =
dateone
rst.Update
End If
If rdateone > rdatetwo Then
rst.Edit

rst("PurchaseOr derReceivedDate ") = rdateone
rst.Update
End If
'every field was checked now
update qty
'total of quantities
inttotal = intqtyone + intqtytwo
'MsgBox inttotal
rst.Edit
rst("ReceivedQu antity") = inttotal
rst.Update

invnumberone = ""
partone = ""
ordlineone = ""
statone = ""
dateone = 0
supone = ""
intqtyone = 0
rdateone = 0

intcountord = 0
backord = ordlinetwo
rst.MoveNext
Else
If invnumberone = 0 And
invnumbertwo = 0 Then
If dateone > datetwo Then
rst.Edit
rst("PurchaseOr derDate") =
dateone
rst.Update
End If
If rdateone > rdatetwo Then
rst.Edit

rst("PurchaseOr derReceivedDate ") = rdateone
rst.Update
End If
Else
If invnumberone <> 0 And
invnumbertwo = 0 Then
rst.Edit
rst("InvoiceNum ber") =
invnumberone
rst.Update
End If
End If
'every field was checked now
update qty
'total of quantities
inttotal = intqtyone + intqtytwo

rst.Edit
rst("ReceivedQu antity") = inttotal
rst.Update
backord = ordlinetwo
intcountord = 0
If intMaxCount = 3 Then
fourlineqty =
rst("ReceivedQu antity")
'fourlineqty = 6
rst.Edit
rst.Delete
'rst.Update

invnumberone = ""
invnumbertwo = ""
partone = ""
parttwo = ""
ordlineone = ""
ordlinetwo = ""
statone = ""
stattwo = ""
dateone = 0
datetwo = 0
rdateone = 0
rdatetwo = 0
supone = ""
suptwo = ""
intqtyone = 0
intqtytwo = 0
Else
fourlineqty = 0
End If

rst.MoveNext
End If
'END invoice numbers
'============== =====

'Statusses NOT the Same
Else
If statone = "RETURN" And stattwo =
"pending" Then
backord = ordlinetwo
intcountord = 0
rst.MoveNext 'line one should have
been deleted already so ignore this second line
Else
If stattwo = "RETURN" And statone
= "PENDING" Then
'update the whole line two
with line one's details
rst.Edit
rst("ReceivedQu antity") =
intqtyone
rst("PurchaseOr derDate") =
dateone
rst("InvoiceNum ber") =
invnumberone
rst("Status") = statone
'should be pending

rst("PurchaseOr derReceivedDate ") = rdateone
rst.Update

invnumberone = ""
partone = ""
ordlineone = ""
statone = ""
dateone = 0
supone = ""
intqtyone = 0
rdateone = 0

intcountord = 0
backord = invnumbertwo
rst.MoveNext
End If 'should only have pending
and return statusses
End If

End If
'END Statusses
'=============

'Suppliers NOT the same
'NO CASE LIKE THIS for this query
End If
'============== =============== ==========
Else 'might be same number but diff part
ordlineone = rst("PurchaseOr derNumber")
intqtyone = rst("ReceivedQu antity")
dateone = rst("PurchaseOr derDate")
invnumberone = rst("InvoiceNum ber")
statone = rst("Status")
partone = rst("ItemCode")
supone = rst("SupplierCo de")
statone = rst("Status")
rdateone = rst("PurchaseOr derReceivedDate ")
rst.Edit
rst.Delete

End If 'parts
End If 'orderlines the same
End If
End If
End If
'rst.MoveNext
Loop

MsgBox "Records Updated: " & Str(intcounter) , vbInformation,
"Updated PurchaseOrderNu mbers"
rst.Requery
MsgBox rst.RecordCount

If rst.RecordCount = 0 Then
rstMaxCount.Clo se
dbsMaxCount.Clo se
rst.Close
dbs.Close
End If
'============== ======
'Close DB Connections
'============== ======
End Sub
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 13 '05 #3
Sorry that I didn't get to this yesterday, but I should be able to do
so today.

So, at least now I understand that you wish to work this from a
back-end perspective (after all records have been written), but what I
initially was trying to suggest was a front-end (on-going) approach,
where a matching entry is searched and updated (if one exists) and
create entries that don't exist. [The on-going approach would
eliminate the 'hassle' you're experiencing now...]

But, it doesn't matter to me, we'll try to develop a solution your
way. I haven't fully looked at your source yet, but that is the plan
today.

-PT
Nov 13 '05 #4
Ok!, are we ready for the short version???

I first created a table with your short list of duplicate orders (from
your initial post), and now to the fun part...

1. I first created a query to get a list of distinct rows from the
table of duplicates, which looks like this [I saved it as
'qryDistinctOrd erRows' that is opened by the function in #2]:

SELECT DISTINCTROW Table2.Order, Table2.POdate, Table2.RecQty,
Table2.InvNo, Table2.Item, Table2.Supplier , Table2.Status,
Table2.PORecDat e
FROM Table2
GROUP BY Table2.Order, Table2.POdate, Table2.RecQty, Table2.InvNo,
Table2.Item, Table2.Supplier , Table2.Status, Table2.PORecDat e;

2. Then I created a function that uses this query as a list to do a
domain-sum for each entry in the list:, a.k.a. DSum(<field-2-sum>,
<duplicatesTabl e>, <where-condition>),

Const distinctQuery As String = "qryDistinctOrd erRows"
Const outputTable As String = "Table3" ' whatever your output table is

Public Function sumOrders()
Dim db As DAO.Database
Dim distinctGroupLi st As DAO.Recordset
Dim groupTotaled As DAO.Recordset
Dim whereClause As String
Dim x, recCount, recQtyTotal As Integer ' 3 vars. here

recCount = 0
Set db = CurrentDb
Set distinctGroupLi st = db.OpenRecordse t(distinctQuery )
Set groupTotaled = db.OpenRecordse t(outputTable)

recCount = distinctGroupLi st.RecordCount

If recCount > 0 Then
distinctGroupLi st.MoveFirst

With distinctGroupLi st
For x = 1 To recCount
' NOTE 1: I don't add invoice# to whereClause...
' NOTE 2: build whereClause for DSum function that matches
' each distinct group list row values.
whereClause = _
"[order] = '" & distinctGroupLi st!order & _
"' And [podate] = #" & distinctGroupLi st!podate & _
"# And [item] = '" & distinctGroupLi st!Item & _
"' And [supplier] = '" & distinctGroupLi st!supplier &
_
"' And [status] = '" & distinctGroupLi st!Status & _
"' And [porecdate] = #" & distinctGroupLi st!porecdate
& "#"

' sum the recQty field, restricted to the whereClause
' see the help on DSum [there are some "gotchas" to be
aware about]
recQtyTotal = _
DSum("[recQty]", "Table2", whereClause)

' Now that we've got the sum you want, write the
record
' to your table...
With groupTotaled
.AddNew ' use insert...into, if you'd prefer.
![order] = distinctGroupLi st!order
![podate] = distinctGroupLi st!podate
![recQty] = recQtyTotal ' the total is written
here

' NOTE: I don't have invoice# here...

![Item] = distinctGroupLi st!Item
![supplier] = distinctGroupLi st!supplier
![Status] = distinctGroupLi st!Status
![porecdate] = distinctGroupLi st!porecdate
.Update ' write it!
End With ' end groupTotaled

distinctGroupLi st.MoveNext
Next x
End With 'end distinctgroupli st
Else
MsgBox "Hey, I didn't find a distinct listing."
End If

distinctGroupLi st.Close
groupTotaled.Cl ose
db.Close
End Function

3. just some other minor notes:
3.1 you may have to modify the (')(")(#) pairing depending on what
data types you have
3.2 Make sure the qty field is a number type, or wrap it with Val()
3.3 I leave you with adding the invoice# (see the comments)
3.4 if you have ANY question about this, let me know.
Nov 13 '05 #5
Dear PaulT

I realy want to thank you for all the effort and time you have put in
with my problem! I have not realy had a look at the code, yet, but will
definately do so today sometime. I appreciate all your help! I did not
think that there would be anyone out there realy worrying about my
problem! Thanks again! Will let you know if I have a problem
understanding or somethingn like that!

Cheers
Marlene

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!
Nov 13 '05 #6
Test post. I don't see my post from last night, and it's been over 9
hrs.

If this goes through, I'll immediately re-post the query and function
I posted last night...

basically, this is what I did to achieve your result (again, I'll
repost the query & function tonight -- if this goes through...)

1. a queried a DistinctRow list of your duplicates...
2. used #1 in a function to loop through each entry which does two
things:
2.1. pre-builds a where clause for DSum() with values from the
distinctrow list.
2.2. gets the total from DSum
2.3. writes a single entry to another table with the new sum.

that's about it. The function is only around 30-40 lines (I think).

sorry that hasn't come through yet... :-(

-PT
Nov 13 '05 #7

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

2
4901
by: Hal Vaughan | last post by:
First, I am aware of both SwingUtilities.invokeLater(), and of using Thread to create a new thread.  These are part of the problem. I want to have something running in the background, while the GUI is updating.  I've done that before without a problem, however, now, I need to pass variables to the separate Thread or Runnable that I'm using.  I'm using something like this: //Other code setting things up and updating GUI //Variables...
9
2307
by: Paul | last post by:
Can anyone suggest an efficient way to eliminate duplicate entries in a list? The naive approach below works fine, but is very slow with lists containing tens of thousands of entries: def uniq(list): u = for x in list: if x not in u: u.append(x) return u
1
1665
by: MHenry | last post by:
Hi, I have a table with duplicate records. Some of the duplicates need to be eliminated from the table and some need not. A duplicate record does not need to be eliminated if the one record appears multiple times on one employee's report. However, if the same record(s) appear on any other employee's report, it means they collaborated on the item, and the item from the second employee's report should be eliminated from the table.
2
1577
by: Nathan | last post by:
Hi, I have a datagrid representing data in a dataset that is filled from an Access database table. Some of the columns in the table have been set not to allow duplicates. If I enter a duplictate, I get an error message when updating the database. How do I get an error message to show as soon as a duplicate is entered into the grid? Thanks for your help.
3
4807
by: Sim Zacks | last post by:
I am using 8.0 beta 1 on an RH 8 Linux server. I have a union query that I am converting from access (where it worked) and it is returning duplicates. The only difference between the two rows is the Row field, which is returned automatically. and an example of a row that it has returned duplicate. I have verified that the row only shows up 1 time in each select statement when run individually.
16
4166
by: tyrfboard | last post by:
I've been searching for awhile now on how to remove duplicates from a table within an Access db and have found plenty of articles on finding or deleting duplicates. All I want to do is remove them from within an SQL query - leaving one of the records behind of course. I have a mailing list comprised of a union query that gets records from two separate tables. I want to be able to run a query that removes one (or more) of the duplicated...
10
4321
by: Pramodhegde | last post by:
Hi, I am new to VB application development with Access. I have a task of copying queries from one DB to another, without duplicationg the ones that are already existing in the destination DB (the names of the queries are taken to be the duplicating factor). i tried using the DoCmd object, with the method TransferDatabase. But I'm not able use the DoCmd object itself. I have referenced the app to MS DAO 3.6. Do I need to reference it to...
1
1892
by: bcquadrant | last post by:
Hi there I am trying to make an update query that will update information in all occurances of duplicate records based on the First record for that duplicate set. There are about 30,000 records in the table, and of them without the duplicates there is only about 4000 records.The duplicates are essential to work we do, so we cannot delete them. I have a make table query that selects only the first record for a duplicate set based on the...
3
2840
by: ryan.paquette | last post by:
In the table there are 2 fields in which I wish to limit (i.e. No Duplicates) Although I do not want to limit them to "No Duplicates" separately. I need them to be limited to "No Duplicates" as if they were one field. The 2 fields are "Employee_Name" & "Training_Course". *(There is another table for Employees & another for Training Courses, both of which are related to this table.)
0
8228
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
8357
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
7987
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
8223
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
5398
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
3847
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
3887
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
1459
muto222
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
0
1196
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.