Code:
TotalHours:DateDiff("h",[TimeStart],[TimeEnd])
Thanks for your answers..
TotalHours:DateDiff("h",[TimeStart],[TimeEnd])
Private Sub Command151_Click() Dim strReport As String Dim strWhere As String strReport = "info" strWhere = "[maininfoID] = """ & Me![maininfoID] & """" DoCmd.OpenReport strReport, acViewPreview, , strWhere End Sub
Leave a comment: