Thanks for that Jack...I have got it working and found out I needed the code below which you add through the bulid event (with a right click), no wonder I couldn't find it in the properties!!
Sub ctlCalendar_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub