نحوه کوئری کردن آخرین تغییرات

[mazoolagh]

جدول کالاها:
11.png
12.png

[mazoolagh]

توابع بدست آوردن آخرین تاریخ ویرایش و تعدا دفعات ویرایش یک فیلد معین از رکورد معین:

Public Function Last_Update(ProductID As Long, FieldName As String) As Variant

Last_Update = DMax("DateEdited", "ProductsAudit", "ProductID=" & ProductID & " AND FieldName='" & FieldName & "'")

End Function

Public Function Count_Of_Updates(ProductID As Long, FieldName As String) As Long

Count_Of_Updates = DCount("DateEdited", "ProductsAudit", "ProductID=" & ProductID & " AND FieldName='" & FieldName & "'")

End Function

[mazoolagh]

طراحی کوئری:

SELECT Products.ProductID, Products.Product, 

Products.DateCreated, 

Last_Update([ProductID],'UnitPrice') AS [آخرین ویرایش (قیمت)], 

Last_Update([ProductID],'Quantity') AS [آخرین ویرایش (مقدار)], 

Last_Update([ProductID],'SupplierID') AS [آخرین ویرایش (تأمین کننده)], 

Count_Of_Updates([ProductID],'UnitPrice') AS [تعداد ویرایش (قیمت)], 

Count_Of_Updates([ProductID],'Quantity') AS [تعداد ویرایش (مقدار)], 

Count_Of_Updates([ProductID],'SupplierID') AS [تعداد ویرایش (تأمین کننده)]

FROM Products

[mazoolagh]

اجرای کوئری:
ضمیمه 149062

[mazoolagh]

فایل دیتابیس