при использовании Dlookup для поиска «номера детали» при использовании текстового поля и вводе номера детали, который будет соответствовать последней записи даты и принесет всю информацию.
Dim prtn As String
Dim temppart As String
Dim lastdate As Date
temppart = Me.Part_No.Value
lastdate = Nz(DMax("[Date Of Purchase]", "StockInventory", "[Part No]= '" & temppart & "'"), 0)
prtn = Nz(DLookup("[Part No]", "[StockList Query]", "[Part No]='" & temppart & "' AND [Date Of Purchase]= " & Format(lastdate, "\#mm\/dd\/yyyy\#")), 0)
здесь я могу увидеть последний перенос последней даты date, temppart содержат номер детали, но значение в prtn показывает 0 ..