If (Text7 & vbNullString) = vbNullString Then Exit Sub
    Dim rs As DAO.Recordset
    Set rs = Me.RecordsetClone
    rs.FindFirst "[UPK]=" & Text7
    If rs.NoMatch Then
        MsgBox "Sorry, no such record '" & Text7 & "' was found.", _
               vbOKOnly + vbInformation
    Else
        Me.Recordset.Bookmark = rs.Bookmark
    End If
    rs.Close
    Text7 = Null
SetCheckinRecord

If IsNull(Me.CheckTime) Then
                CheckTime = Now()
       '***
  SAveAllRecords
   End If
      Me.Text7.SetFocus
      If Not IsNull(Me.CheckTime) Then
         MsgBox "This record has been entered already!", vbOKOnly
      UPK = ""
   End If
And this other public function to save:
If Me.Dirty Then
  Me.Dirty = False
End If
   CheckTime = ""

If Me.Dirty Then
      Me.Dirty = False
    End If
       Checkin_Time = ""