Access 365 Runtime error 2683

Question

Hello,

I have recently updated our access file to 365, and now our calendar buttons do not work. I am newly learning coding and I am stuck.

---

Option Compare Database

Option Explicit

Private Sub Calendar1_Click()

    Me.Visible = False

End Sub

Private Sub Cancelbtn_Click()

    Me.Calendar1.Value = Me.OpenArgs

    Me.Visible = False

End Sub

Private Sub Form_Load()

    If (Not IsNull(Me.OpenArgs)) Then

        Me.Calendar1.Value = Me.OpenArgs

    End If

End Sub

Private Sub CalendarUpDwn_UpClick()

        Me!Calendar1.NextMonth

End Sub

Private Sub CalendarUpDwn_DownClick()

        Me!Calendar1.PreviousMonth

End Sub

Private Sub OKbtn_Click()

    Me.Visible = False

End Sub

---

The blue line is where the error occurs. Any help will be appreciated.

Thanks!

Answer 1

Hmm, did not think of that!

Answer 2

What is Calendar1?  Is it an ActiveX calendar control?

Answer 3

Hmm, there is no Access 365 Runtime so it must be Access 2013 or 2016 Runtime. 

Gina, I suspect it's a "run-time error", not an error from the runtime module.

Answer 4

What is Me.OpenArgs returning as a value?

Answer 5

Hmm, there is no Access 365 Runtime so it must be Access 2013 or 2016 Runtime.  That said, might be a Reference problem.  Have a look here...

https://www.access-diva.com/d5.html

EDIT:  Or a not in a Trusted Location, see here...

https://www.access-diva.com/d4.html