Richard,

With the help of your videos and my own trial and error, I have started a new project used for scanning property bags in and out of my database. The property is for a person where it will only be scanned in and out once, and the property bag number will never be used a second time.

I built a continuous form for the ability to scan several bags out at one time, which then creates a property manifest for a report. This is used for tracking what bags, went where, and with who.

I?m running into an issue with my DLookup, where AfterUpdate it pulls the values from the table. When I go to the next row of the continuous form, it duplicates the data in the table. Any idea why? Also, would you suggest another way of doing this instead of a continuous form? The idea is to scan 30-40 bags (one after another) and track when and where they went. Almost like a library system, except I will not be checking the bags back in.

Option Compare Database
Option Explicit

Private Sub BagNum_AfterUpdate()

Me.DateIn = Nz(DLookup("DateIn", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))
Me.PropertyTypeID = Nz(DLookup("PropertyTypeID", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))
Me.Notes = Nz(DLookup("Notes", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))
Me.PropertyDestroyed = Nz(DLookup("PropertyDestroyed", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))
Me.DetentionID = Nz(DLookup("DetentionID", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))
Me.PropertyID = Nz(DLookup("PropertyID", "tblPropertyDetails", "[BagNum] = '" & [BagNum] & "'"))

End Sub

---

Reply from Richard Rost:

Your DLOOKUP statements look fine. Perhaps throw a Docmd GotoRecord Next in there when you're done to force it to go to the next record automatically (with a Docmd GotoControl to force it to go to the next BagNum). Do you have AutoComplete turned on? That might explain why it's duplicating values. Other than that, I'd have to see it to tell you for sure.