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

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
14 Pages V « < 12 13 14  (Go to first unread post)
   Reply to this topicStart new topic
> Ms Outlook Style Calendar For Access Projects, Access 2003    
 
   
frm
post Sep 14 2019, 07:18 AM
Post#261



Posts: 121
Joined: 20-March 18



Hi Peter,

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 Sep 14 2019, 08:46 AM
Post#262


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


Hi frm,

OK, I have found the problem (my error) which is easy enough to fix.

Open the table tblMonthData in Design mode and change the field types of fields Day1Data to Day7Data from Short Text to Long Text.
The problem was that for days 2 to 7 the Field Size property was set to only 50 characters which was not enough to hold the extra text that the last modification caused. For some reason Day1Data was set to 255 which was big enough for the tests that we did. You could leave the fields types as Short Text and just change the Field Size property to 255 for all the days but that might not be enough if you had a lot of text in the Subject and Location (plus the two date) fields so using a Long Text type is probably safer.

Also, you could get the same problem with the Weekly and Daily calendars if you have a lot of text to display so it is probably a good idea to change the same fields in the table tblWeekData to Long Text as well.

Hopefully that will fix the problem and thanks for finding this obscure bug for us.

Peter.
Go to the top of the page
 
frm
post Sep 14 2019, 08:56 AM
Post#263



Posts: 121
Joined: 20-March 18



I'm glad I was helpful.

With your latest changes of fields Day1Data to Day7Data in the table tblMonthData and in the table tblWeekData the error no longer gives it.

OK

It works

Thank you
This post has been edited by frm: Sep 14 2019, 09:05 AM
Go to the top of the page
 
frm
post Sep 15 2019, 12:37 PM
Post#264



Posts: 121
Joined: 20-March 18



Hi Peter,

please can you advise me on how to do what I wrote in Post # 261?

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 15 2019, 01:44 PM
Post#265


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


Hi frm,

I am not sure what you are asking for here! Do you mean that when you open the Appointment Schedules form from the calendar you want the Start Time to automatically default to the next free time slot for that day? If so, then I guess it could be done but an easier way would be to open the Appointment Schedules form using the Daily (or Weekly) calendar and then just double click on the next free time slot, then the form will open with the Start and End times set up for the time slot that you clicked on.

If that is not what you meant then please explain in more detail.

Peter.
Go to the top of the page
 
frm
post Sep 15 2019, 02:50 PM
Post#266



Posts: 121
Joined: 20-March 18



Hi Peter,

Exactly this:

when I open the Schedule Appointments form from the calendar
the start time must automatically pass to the next free time slot for that day.

Go to the top of the page
 
Peter Hibbs
post Sep 15 2019, 03:05 PM
Post#267


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


Hi frm,

OK, so will my suggestion of using the Weekly or Daily calendar work for you?

Peter.
Go to the top of the page
 
frm
post Sep 15 2019, 03:20 PM
Post#268



Posts: 121
Joined: 20-March 18



Hi Peter,

the use of the Weekly or Daily calendar work,
but I wanted if you could make the change I proposed, if possible.

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 15 2019, 03:52 PM
Post#269


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


Hi frm,

OK, I will think about it tomorrow, if I have time.

Peter.
Go to the top of the page
 
frm
post Sep 15 2019, 04:11 PM
Post#270



Posts: 121
Joined: 20-March 18



Hi Peter,

OK

I think they are changes that could be useful.

Thank you for your time and availability.
Go to the top of the page
 
Peter Hibbs
post Sep 16 2019, 10:19 AM
Post#271


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


Hi frm,

OK, try this. Open the form frmCalendarAppt in Design mode and open the VBA code window. Find the Private Sub cmdNew_Click() event and add the bit of code between the double lines to the event code. The whole event should then look something like this :-
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.txtAppointmentID = 0         'reset AppointmentID
    Me.lstAppts = Null              'clear any selections in list box
    Me.txtStartDate.SetFocus        'move focus to Start Date

    Me.cmdDelete.Enabled = False
    Me.cmdSave.Enabled = False

'============== Insert the code below here =============
Dim vStartTime As Date
Dim vIndex As Long
    
    vIndex = Me.lstAppts.ListCount - 1                              'calc last entry in list box
    If vIndex > -1 Then                                             'skip of no entries
        vStartTime = Me.lstAppts.Column(2, vIndex)                  'fetch last date/time from list box
        Me.cboStartTime = TimeValue(vStartTime)                     'copy last time to cboStartTime
        Me.cboEndTime = DateAdd("n", conPeriod, Me.cboStartTime)    'and calc new EndTime
    End If
'====================================================

End Sub

Your code above may look slightly different to the above, depending on which version of the calendar you are using, so just copy and paste the code between the double lines into the event immediately above the End Sub line.

If you add an appointment to a date that has no appointments already, the Start and End times will default to whatever you have set up as the earliest working appointment time.

Hope this helps and good luck.

Peter.
Go to the top of the page
 
frm
post Sep 16 2019, 10:45 AM
Post#272



Posts: 121
Joined: 20-March 18



Hi Peter,

that's what I wanted to do.

If I have other changes, can I ask for your help?

I hope that those proposed by me are useful things.

If you consider the changes made useful, can they be included in the next version of the calendar?

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 16 2019, 12:46 PM
Post#273


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


Hi frm,

OK, good.

QUOTE
If I have other changes, can I ask for your help?
Well, you can try but I think it would be better to send me a private message and if I am not too busy I will consider it.

QUOTE
If you consider the changes made useful, can they be included in the next version of the calendar?
I have included some of your suggestions but some are a bit too specialised for a general use demo, it would be up to the individual developers to add their own facilities. as required.

Peter.
Go to the top of the page
 
frm
post Sep 16 2019, 01:40 PM
Post#274



Posts: 121
Joined: 20-March 18



Hi Peter,

this change could also affect other people.

For example:

how to color the holidays and Sundays in the three calendars.

Thank you
Go to the top of the page
 
Peter Hibbs
post Oct 1 2019, 03:31 AM
Post#275


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


The attached zip file contains the latest version of the Outlook Style Calendar (V3.0q) for anyone who is interested.

Note that this version uses HTML coding to color the appointments for the 10 different categories and so it will only work with Access 2007 and later. The enclosed PDF document explains how to use and set up the calendar.

Let me know if any bugs are found with full details of the problem.

Peter Hibbs.
Attached File(s)
Attached File  Outlook_Style_Calendar_3q.zip ( 1.06MB )Number of downloads: 35
 
Go to the top of the page
 
Rogerk
post Oct 11 2019, 03:00 PM
Post#276



Posts: 3
Joined: 26-July 19



Hi Peter
In your last version (Outlook Style Calendar V3q) , when I tried to rename the category names from the Default names (Category 01,Category 02, Category 03 ...), with a different name (like Hobbies,Vacation, Family.. ) then to the main calendar in daily mode does not display the appointments in the list (frmCalendarAppt), when clicked.
Am I doing something wrong?
Go to the top of the page
 
Peter Hibbs
post Oct 11 2019, 05:22 PM
Post#277


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


Hi Roger,

No you aren't, it looks like I messed up that bit. I will upload a fix tomorrow. Sorry about that.

Peter.
Go to the top of the page
 
Peter Hibbs
post Oct 12 2019, 05:32 AM
Post#278


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


Hi Roger,

OK, here is a fixed version (V3.1). Don't know how I missed those two errors, must be getting sloppy in my old age.

One was that the Save button did not get enabled if you changed just a Category name and nothing else on the Calendar Settings form and the other was an error in the query bound to the Calendar Appointments form which did not show the appointments if the Show All Categories option was enabled.

Anyway, hopefully everything works OK now and thanks for letting me know about the errors.

Peter.
Attached File(s)
Attached File  Outlook_Calendar_V31.zip ( 1.06MB )Number of downloads: 11
 
Go to the top of the page
 
14 Pages V « < 12 13 14


Custom Search


RSSSearch   Top   Lo-Fi    16th October 2019 - 11:53 AM