Preventing Duplicating Values With Dlookup

[steve21nj]

Thank you for aiding me. I feel like an idiot now after realizing what I was doing!

Final product:

Private Sub Command8_Click()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute ("UPDATE tblPropertyDetails INNER JOIN tblPropertyDetailsDummy ON (tblPropertyDetails.PropertyID = tblPropertyDetailsDummy.PropertyID) AND (tblPropertyDetails.BagNum = tblPropertyDetailsDummy.BagNum) SET tblPropertyDetails.DateIn = [tblPropertyDetailsDummy].[DateIn], " _
& "tblPropertyDetails.PropertyTypeID = [tblPropertyDetailsDummy].[PropertyTypeID], tblPropertyDetails.DateOut = [tblPropertyDetailsDummy].[DateOut], tblPropertyDetails.PropertyStatus = [tblPropertyDetailsDummy].[PropertyStatus], " _
& "tblPropertyDetails.TransferSite = [tblPropertyDetailsDummy].[TransferSite], tblPropertyDetails.TurnoverTo = [tblPropertyDetailsDummy].[TurnoverTo], tblPropertyDetails.DeleteRow = [tblPropertyDetailsDummy].[DeleteRow], " _
& "tblPropertyDetails.PropertyManifest_fk = [tblPropertyDetailsDummy].[PropertyManifest_fk] ")
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
End Sub

 

[JHB]

I felt I had to challenge you a little, and not give you the complete solution.

Good luck with your project.
.