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

[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