Employee Time Clock

I got an Error Message...

Hey Guys, if I use an Subform on the 'ScheduleInformationViewF. and remove the DisplayTime and StartWork Button. Put them on the Subform. Then use Recordsets in the Button to input a New Line of the TimesheetT for the Schedule Event that is Showing on the 'ScheduleInformationViewF'?

Is this a BOUND form?

Yes, it is Bound toa Query

Is that field editable in the query? See Not Updateable

Rick, I think so, could i can make changes in the Query Datasheet View.
I changed the 'ClockOut' and ClockIn fields to UNBOUND and changed the 'DisplayTime' to a Live Clock type. I think I may have to use Recordset the Input the Data back into the 'TimesheetT' when Starting Work and Ending Work.

Also Guys, I was trying to use the 'DisplayTime' as an Stop Watch type. So I could capture the Time Duration.

This is the VBA Code I created so far, but the Update the last Timesheet Entry of the Current Record. Is not work correctly.

Details

Private Sub BtnStartStopWork_Click()

    If IsNull(ScheduleID) Then Exit Sub
    
    Dim rsUpdateTime As Recordset
    Dim rsTime As Recordset
    
    Set rsUpdateTime = CurrentDb.OpenRecordset("TimesheetT")
    Set rsTime = CurrentDb.OpenRecordset("TimesheetT")
                
    If BtnStartStopWork.Caption = "Start Work" Then
        
        BtnStartStopWork.Caption = "Stop Work"
        BtnStartStopWork.BackColor = vbRed
        BtnStartStopWork.HoverColor = vbRed
        ClockIn = Now()
        Me.Refresh
        
        BtnStartStopWork.Transparent = False
        DisplayTime.Visible = True
        
        Dim TimesheetIDNumber As String
        
        TimesheetIDNumber = Nz(DMax("TimesheetIDNumber", "TimesheetT"), 0)
        rsTime.AddNew
        rsTime!TimesheetIDNumber = TimesheetIDNumber + 1
        rsTime!EmployeeID = EmployeeID
        rsTime!ScheduleID = ScheduleID
        rsTime!TimesheetCategoryID = 265
        rsTime!ClientID = ClientID
        rsTime!PropertyID = PropertyID
        rsTime!ClockIn = ClockIn
        rsTime!ClockInUTC = ClockInUTC
        rsTime!TimesheetStartDate = TimesheetStartDate
        rsTime!TimesheetStartTime = TimesheetStartTime
        rsTime!TimeClockStatus = "Clock-In"
        rsTime!TimesheetStatusID = 282
        rsTime.Update
            
        rsTime.Close
        Set rsTime = Nothing
    
    ElseIf BtnStartStopWork.Caption = "Stop Work" Then
    
        BtnStartStopWork.Caption = "Start Work"
        BtnStartStopWork.BackColor = vbGreen
        BtnStartStopWork.HoverColor = vbGreen
        ClockOut = Now()
        Me.Refresh
        
        BtnStartStopWork.Transparent = True
        BtnStartStopWork.Enabled = False
        DisplayTime.Visible = False
        
        Dim TimesheetID As Integer
        
        TimesheetID = DMax("TimesheetID", "TimesheetT")
        
        rsUpdateTime.FindFirst ("TimesheetID")
        
        rsUpdateTime.Edit
        rsUpdateTime!ClockOut = ClockOut
        rsUpdateTime!ClockOutUTC = ClockOutUTC
        rsUpdateTime!TimesheetEndDate = TimesheetEndDate
        rsUpdateTime!TimesheetEndTime = TimesheetEndTime
        rsUpdateTime!TimesheetStatusID = 282
        rsUpdateTime!TimeClockStatus = "Clock-Out"
        rsUpdateTime.Update
        
        rsUpdateTime.Close
        Set rsUpdateTime = Nothing
        
    End If
  
End Sub

Adding a new record with a recordset doesn't MOVE the form to that record. If it's a bound form, get rid of the recordset and just DoCmd.GoToRecord a new record.