UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
15 Pages V « < 13 14 15  (Go to first unread post)
   Reply to this topicStart new topic
> Ms Outlook Style Calendar For Access Projects, Access 2003    
 
   
frm
post Oct 21 2019, 08:01 AM
Post#281



Posts: 126
Joined: 20-March 18



Hi Peter,

What error message did you get?

run-time error ‘438’:
Property or method not supported by the object.

==========
What value do you get in rst!CatColor?

16764831
==========

Have you made any changes to the database and if so, what changes have you made?
I didn't make any changes

==========

Which version of Windows and Access are you using?
Windows 7
Access 2007
==========

I suggest that you set a break point at the start of that routine and step through it line by line and check the values in each variable to see if anything obvious shows up.
I can't answer this part because I don't know how to do it.
Go to the top of the page
 
Peter Hibbs
post Oct 21 2019, 11:13 AM
Post#282


UtterAccess VIP
Posts: 1,739
Joined: 17-June 10
From: Dorset. UK.


Hi Joseph,

OK, you are correct, it does give errors when used with A2007. This is because A2007 does not have 'Themed Controls' as later versions do - which means, for example, that buttons in A2007 do not have properties for Hover Color, Pressed Color, etc which is what the colored buttons at the bottom of the form used. I have modified the original using Label controls instead of button controls which works quite well just for users of A2007. Fortunately A2007 does have Rich Text mode for text boxes so every other new facility seems to work OK (but let me know if you find something that does not work correctly).

Download the attached new version and see if it works OK for you (and sorry for giving you the problem, I should have tested it with A2007 before I uploaded it).

Peter.


Attached File(s)
Attached File  Outlook_Style_Calendar_V31q____2007_.zip ( 448.11K )Number of downloads: 6
 
Go to the top of the page
 
frm
post Oct 21 2019, 12:49 PM
Post#283



Posts: 126
Joined: 20-March 18



Hi Peter,

The version for access 2007 works correctly.

Also in this new version I ask if it is possible to make the change I proposed to you in Post#258?

Thanks
Go to the top of the page
 
Peter Hibbs
post Oct 21 2019, 01:30 PM
Post#284


UtterAccess VIP
Posts: 1,739
Joined: 17-June 10
From: Dorset. UK.


Hi Joseph,

In that post I think that you wanted to be able to show multiple appointments on the Monthly calendar, which this version does. Is that what you wanted or am I missing something? If so, you will need to explain what you want in more detail (with some screen shots of what you want to see on the calendar).

Peter.
Go to the top of the page
 
frm
post Oct 21 2019, 04:59 PM
Post#285



Posts: 126
Joined: 20-March 18



Hi Peter,

What I would like to do in the new version is what I explained in Post#261

============

I wanted to ask if it is possible to make this change.

Example.

Enter multiple appointments on the same day.

First appointment:

Start Time: 6.00
End Time: 6.15

Second appointment:

Star Time: 6.15
End Time: 6.30

Third appointment:

Star Time: 6.30
End Time: 6.45


When I enter the second appointment from 6.15 am - 6.30 am, do this:

Click on day 14 in the frmCalendarMain

I open the frmCalendarAppt

Click on the NewAppointment button and automatically:

Star Time: 6.15
End Time: 6.30

When I enter the third appointment from 6.30 - 6.45 am, do this:

Click on day 14 in the frmCalendarMain

I open the frmCalendarAppt

Click on the NewAppointment button and automatically:

Star Time: 6.30
End Time: 6.45

And so for every subsequent appointment on the same day.

Thank you
Go to the top of the page
 
Peter Hibbs
post Yesterday, 06:05 AM
Post#286


UtterAccess VIP
Posts: 1,739
Joined: 17-June 10
From: Dorset. UK.


Hi Joseph,

OK, I understand now - the new version uses a Subform control instead of a List Box control which broke the additional code you added earlier.

So try the code below in the button cmdNew Click event (as you did befow) :-

CODE
Private Sub cmdNew_Click()

'Create a new appointment record

    Me.chkUpdate = False                'clear chkUpdate flag if user is starting a new appt
    ClearControls                       'reset main controls
    EnableFields True                   'enable input fields
    Me.txtStartDate.SetFocus            'move focus to Start Date

'== This code automatically selects the next available time slot times (if any) for the new appointment
Dim rst As Recordset
    
    Set rst = Me.frmCalendarApptSub.Form.RecordsetClone                         'clone data in subform
    If Nz(rst.RecordCount, 0) > 0 Then                                          'if 1 or more records then
        rst.MoveLast                                                            'move to last record
        Me.cboStartTime = TimeValue(rst!ED)                                     'copy time of last record in list to cboStartTime
        Me.cboEndTime = DateAdd("n", TempVars("tmpPeriod"), Me.cboStartTime)    'and calc new EndTime
    End If
'====================================================

End Sub


Good luck,

Peter.
Go to the top of the page
 
frm
post Yesterday, 07:26 AM
Post#287



Posts: 126
Joined: 20-March 18



Hi Peter,

OK

Thanks
Go to the top of the page
 
15 Pages V « < 13 14 15


Custom Search


RSSSearch   Top   Lo-Fi    23rd October 2019 - 03:40 PM