The following error has been found.

when openning the timesheet as a person without the correct permision it will be sent into a loop as the openning of it is being controled by the load data message the correction is to remove the following lines of code from the time sheet on open event and past in the on open event of the Msgloadingdata form.

Should you need help create a topic and I'll help best I can this topic is for notifcations and corrections only

    If Not IsOpen("frmDetectIdleTime") Then
        MsgBox "You must open this object from the main screen", vbExclamation + vbOKOnly, "Missing Object"
        Cancel = True
        Exit Sub
    End If
    'Only Managers or above can view this object
    If Not CheckManager Then
        MsgBox "You must be a manager or admin to view the Works Diary", vbExclamation + vbOKOnly, "insufficient permissions"
        Cancel = True
        Exit Sub
    End If

Past the following into the MsgfrmLoadingData form OnOpen Event

On Error GoTo HandleErr

    If Not IsOpen("frmDetectIdleTime") Then
        MsgBox "You must open this object from the main screen", vbExclamation + vbOKOnly, "Missing Object"
        Cancel = True
        Exit Sub
    End If
    'Only Managers or above can view this object
    If Not CheckManager Then
        MsgBox "You must be a manager or admin to view the Works Diary", vbExclamation + vbOKOnly, "insufficient permissions"
        Cancel = True
        Exit Sub
    End If

HandleExit:
    Exit Sub
   
HandleErr:
    Select Case Err.Number
        Case 2501 'Cancel = True
            Exit Sub
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
            Resume HandleExit
        Resume
    End Select


I was going though my project management system updating the holiday planner to current version when I noticed the holiday report was showing all entries for all years as my project management system goes back a lot of years it was a lot.

so I made the following change to the query: qryHolidayListReport

I added a new field with the expression: HYear: Year([StartDate]) you can call it what you like

And A Criteria: Year([Forms]![frmHolidays]![txtDate])

For those new to access what this does is limits the output of the report to the current year being viewed on the holiday planner, I didn't think it needed a date range popup.

P.S. I used the start date only as I was only interested in holidays starting in a given year.

hope you find this of use mick

On the diary, add meeting Found this error

Don't quite know what I was thinking but corrected now

comment out or remove this text  - NightShift 'M Javes Edit 16/08/2019
from this line  !StartTime = Format(ST & ":00", "h AM/PM") ' - NightShift 'M Javes Edit 16/08/2019

The meeting after adding a new one should open when first created so you can edit it once done close it make sure it is selected in the Active meetings Dropdown
for that day then just double click the time for each employee you wish to attend.

remember you can only get to r add meetings by selecting CODE ENTRY from the entry type list then MEETING from the select a code list.

and meetings only show for the selected date