access同一记录两个字段分别默认时间

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:43:35
access里，同一条记录的两个字段分别记录各自的操作时间。

直接的说，有一个关于留言的表，想分别记录留言字段和回复字段的时间。这在同一表和同一条记录可以实现吗？

Private Function GetNowMaxDay(ByVal date1 As Date) As Date
Dim dateTemp As String, intTemp As Integer

intTemp = Day(date1)
dateTemp = Year(date1) & "/" & Month(date1) & "/" & Day(date1)
Do While 1
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & Day(dateTemp) + 1

If Not IsDate(dateTemp) Then
dateTemp = Left(dateTemp, InStrRev(dateTemp, "/")) & intTemp
Exit Do
Else
intTemp = intTemp + 1
End If
Loop
GetNowMaxDay = dateTemp
End Function

Private Sub ExecuDate(ByVal date1 As Date, ByVal date2 As Date)
Dim intYear As Integer
Dim intMonth As Integer

intYear = Year(date1)
intMonth = Month(date1)

List1.Clear

Do While 1
List1.AddItem GetNowMaxDay(CDate(intYear & "-" & intMonth & "-28"))

If intYear = Year(date2) And intMonth = Month(date2) Then
Exi