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

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
15 Pages V « < 11 12 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 Sep 12 2019, 02:07 AM
Post#241



Posts: 126
Joined: 20-March 18



Hi Peter,

Changes made in the Outlook Style Calendar V3 or September 2018 version work.

How to do Outlook Version Calendar V3.op September 2018?

Is there yet another V3.oq version?

Thank you
Go to the top of the page
 
frm
post Sep 12 2019, 04:20 AM
Post#242



Posts: 126
Joined: 20-March 18



Hi Peter,

sorry I made a mistake in the previous post.

Please replace this: -

How to do Outlook Version Calendar V3.op September 2018?

With this:-

Outlook Style Calendar V3.0p of February 2019?

Is it possible to do with the mouse on the single appointment do what you see on September 11th?

For example, passing over an appointment with the mouse I can open a message like the one you find by hovering over the date
11 sets (green color):

Show Daily calendar for this day

with this text:

8.00-8.30 Nuovo appuntamento; Al mare

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 12 2019, 08:30 AM
Post#243


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


Hi frm,

OK, so on the Monthly calendar form, you want to show the details of any appointments in the pop-up Tool Tip label for a date when the mouse cursor hovers over the green date header label for that date?

If so, then I agree that this would be quite useful for the users but unfortunately I don't think that it is possible. I have done a few tests to see if it could be done but as I am using a Continuous type form for the calendars, there is no easy way to calculate which of the 6 rows on the calendar the user has selected (there is one method that I have used in the past but this will not work with the calendar design I am using here). If we had used 42 separate text box controls for the date fields (as some similar calendars do) then it would probably be relatively easy.

Sorry I can't be of more help but good luck with the project anyway.

Peter Hibbs.
Go to the top of the page
 
frm
post Sep 12 2019, 09:07 AM
Post#244



Posts: 126
Joined: 20-March 18



OK.

One last thing:

the changes we made to the version

Version 3.0o By Peter Hibbs September 2018

can also be done on the version

Version 3.0p By Peter Hibbs February 2019?

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 12 2019, 01:19 PM
Post#245


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


Hi frm,

Exactly what changes in V3.0o did you want to add to V3.0p? If you mean the option to show appointments in different colors on the Monthly calendar then I guess it could be done but I don't have the time to do that at the moment. However, I am working on a new version (3.0q) which has all the facilities of the earlier versions (but not the Year Chart form as that was a bit specialised) so maybe this new version will do what you want. It will be a few more weeks before I will have finished it though.

If you meant something else then post back with a more details.

Peter.
Go to the top of the page
 
frm
post Sep 12 2019, 01:49 PM
Post#246



Posts: 126
Joined: 20-March 18



Hi Peter,

In Version 3.0o I replaced this series of code in the modCalendarCode module, to the ShowMonthAppts sub-routine I replaced this line: -

vString = "<font style =" "BACKGROUND-COLOR: #" & vHex & "" ">" & rst! ApptSubject & "</font> <br>" 'format text with back color

with this:-

vString = "<font style =" "BACKGROUND-COLOR: #" & vHex & "" ">" & Format (rst! ApptStart, "h: nn") & "-" & Format (rst! ApptEnd, "h: nn ") &" "& rst! ApptSubject &"; "& Trim (rst! ApptLocation) &" </font> <br> "'format text with back color

In Version 3.0q this line: -

vString = "<font style =" "BACKGROUND-COLOR: #" & vHex & "" ">" & rst! ApptSubject & "</font> <br>" 'format text with back color

I did not find her.

How can I do?

For the other changes I expect the new version.

Thank you
Go to the top of the page
 
frm
post Sep 13 2019, 01:26 AM
Post#247



Posts: 126
Joined: 20-March 18



Hi Peter,

can you make this change?

When you click on the Weekly button the Text Box

txtDate = whole week

Example:

Sunday 8 September 2019 - Saturday 14 September 2019

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 13 2019, 04:56 AM
Post#248


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


Hi frm,

You can't show the full week dates in the txtDate text box because that control is used to define the current date and so it must hold a valid date. All I can suggest is that you could add a new text box control to the top of the frmCalendarWeek form (let's call it txtWeek) and then add one line of code to the sub-routine ShowWeekAppts in module modCalendarCode like this :-
CODE
    On Error GoTo ErrorCode

'Calc week numbers and dates from starting date and copy to table
    vFirstDate = vWeekStart                                                                 'set first date of week (Sunday)
    vDate = vFirstDate                                                                      'vDate = first day of week

    Forms!frmCalendarMain!frmCalendarWeek!txtWeek = Format(vFirstDate, "dddd d mmmm yyyy") & " - " & Format(vFirstDate + 6, "dddd d mmmm yyyy")  'add this line here


To be honest, I can't really see a lot of point in doing this since the Weekly calendar shows all the days and dates for the week being displayed anyway, but I guess you have your reasons.

In your previous post, I don't understand what you are asking so please explain in more detail if you still need any advice.

Peter.
Go to the top of the page
 
frm
post Sep 13 2019, 05:21 AM
Post#249



Posts: 126
Joined: 20-March 18



Hi Peter,

sorry if I'm not clear, but it's a translation problem.

What I'd like to do is display the appointment in this month's calendar:

8.00-8.30 New appointment; At the sea
Go to the top of the page
 
Peter Hibbs
post Sep 13 2019, 08:06 AM
Post#250


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


Hi frm,

QUOTE
What I'd like to do is display the appointment in this month's calendar:
What does this mean? What do you want to display and where do you want to display it (the Monthly calendar already displays the appointment details)?

Please explain in full what you want.

Peter.

Go to the top of the page
 
frm
post Sep 13 2019, 08:35 AM
Post#251



Posts: 126
Joined: 20-March 18



Hi Peter,

Example.

The appointment that is inserted in the calendar and weekly calendar as in the image can also be carried in the monthly calendar in this way:

8.00-8.30 New appointment; At the sea

Attached File  Calendar_Weekly.zip ( 2.58K )Number of downloads: 17


Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 13 2019, 09:58 AM
Post#252


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


Hi frm,

OK, just to clarify - it looks like you have made the Weekly rows taller (which is OK) and you want to insert the times and subject and location fields into the calendar fields automatically, in other words you would set up the start and end times and the Subject field and maybe the Location fields on the Appointment Schedule form as normal and the program would then combine those four fields into one text string and display it on the Weekly calendar. Is this what you wanted?

If so, then I think I explained how to do this in post #240 earlier. Did you try that?

Peter.
Go to the top of the page
 
frm
post Sep 13 2019, 10:17 AM
Post#253



Posts: 126
Joined: 20-March 18



Hi Peter,

what is in post # 240 applies to Weekly e Daily.

How can I do for Monthly?

Thank you
Go to the top of the page
 
Peter Hibbs
post Sep 13 2019, 01:23 PM
Post#254


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


Hi frm,

OK, I see. You want to be able to show the Start and End Time + Subject + Location on the Monthly calendar, is this correct?

The code to do this is pretty simple but it depends on which version of the calendar you are using. If you are using Version 3.0o then I already explained how to do that in post #237, if you are using a version that does NOT show category colors on the Monthly form then the code is slightly different. So which version are you using?

Peter.
Go to the top of the page
 
frm
post Sep 13 2019, 01:47 PM
Post#255



Posts: 126
Joined: 20-March 18



Hi Peter,

You want to be able to show the Start and End Time + Subject + Location on the Monthly calendar, is this correct? Yes

I'm using your latest version

Appointments Calendar Version 3.0p By Peter Hibbs February 2019

Thank you
This post has been edited by frm: Sep 13 2019, 02:00 PM
Go to the top of the page
 
Peter Hibbs
post Sep 13 2019, 03:10 PM
Post#256


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


Hi frm,

OK, try this - find sub-routine ShowMonthAppts and replace the section of code that starts 'Now copy appt info....' with the code below.
CODE
        'Now copy appt info into each row in array
        Do                                                                      'do--
            vCol = Weekday(vDate, conFirstDay) - 1                              'calc column No for current date
            vRow = (DateDiff("d", vFirstDate, vDate) \ 7)                       'calc row number for current date
            If conMonthHide = 0 Then                                            'if current date <> current month then skip  (hide appts for dates not in current month)
                vArray(vCol, vRow) = vArray(vCol, vRow) & Format(rst!ApptStart, "h: nn") & "-" & Format(rst!ApptEnd, "h: nn ") & " " & rst!ApptSubject & "; " & Trim(rst!ApptLocation) & vbCrLf
                vArray(vCol + 7, vRow) = rst!MonthColor
            Else
                If Month(vMonthStart) = Month(vDate) Then                               'if current date <> current month then skip  (hide appts for dates not in current month)
                    vArray(vCol, vRow) = vArray(vCol, vRow) & Format(rst!ApptStart, "h: nn") & "-" & Format(rst!ApptEnd, "h: nn ") & " " & rst!ApptSubject & "; " & Trim(rst!ApptLocation) & vbCrLf
                    vArray(vCol + 7, vRow) = rst!MonthColor
                End If
            End If
            vDate = vDate + 1                                                   'inc date ref
        Loop Until vDate >= vDateStop                                           'until all cells filled

Actually, you only need to replace the two lines that start 'vArray(vCol, vRow) =' but I have shown the extra lines so that you can see where they should go.

Good luck,

Peter.
Go to the top of the page
 
frm
post Sep 13 2019, 04:55 PM
Post#257



Posts: 126
Joined: 20-March 18



Hi Peter,

I made the changes on

Outlook Style Calendar V3p (V3) February 2019.

It works perfectly.

On

Outlook Style Calendar V3p (V4) February 2019 gives an error message:

"Unable to add the desired amount of data. Insert or paste less data."

There is a difference between

Outlook Style Calendar V3p (V3) February 2019

and

Outlook Style Calendar V3p (V4) February 2019?

If there is no difference I continue to work on

Outlook Style Calendar V3p (V3) February 2019.

Thank you

Go to the top of the page
 
frm
post Sep 14 2019, 01:38 AM
Post#258



Posts: 126
Joined: 20-March 18



Hi Peter,

I made all the changes you suggested on

Appointments Calendar Version 3.0p By Peter Hibbs February 2019

I entered two appointments on September 14:

First appointment:

Start Time: 6.00
End Time: 6.15
Subject: New Appointment
Location: To the sea

Second appointment:

Start Time: 6.15
End Time: 6.30
Subject: Next Appointment
Location: To the station

The inclusion of the two appointments works in Weekly and Daily.

Does not work in Monthly.

I enclose the db and the image of the error.

Attached File  Outlook_Style_Calendar_V3p__V3__February_2019.zip ( 490.71K )Number of downloads: 10


Go to the top of the page
 
Peter Hibbs
post Sep 14 2019, 05:28 AM
Post#259


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


Hi frm,

You are correct, there was a bug in this version. To fix it I deleted all the appointments and then Compacted and Repaired the database. I think the problem was that the appointments table had somehow got corrupted which prevented more than one appointment being displayed in a Monthly date field. I have no idea why but try the attached version and see if you get any more problems.

Having said that, I think you would be better using the other version that shows the appointments for different categories in different colors (Version 3.0o) as Version 3.0p uses OLE Object controls which is a bit limited. Anyway, that is up to you.

Good luck with the project and hopefully it should work now.

Peter.
Attached File(s)
Attached File  Outlook_Style_Calendar_V3p__V3__February_2019.zip ( 317.11K )Number of downloads: 13
 
Go to the top of the page
 
frm
post Sep 14 2019, 05:55 AM
Post#260



Posts: 126
Joined: 20-March 18



Hi Peter

I'm sorry, but it still doesn't work.

I enclose the two images with the errors.

Attached File  Outlook_Style_Calendar_V3p__V3__February_2019___New.zip ( 541.08K )Number of downloads: 22

Go to the top of the page
 
15 Pages V « < 11 12 13 14 15 >


Custom Search


RSSSearch   Top   Lo-Fi    15th December 2019 - 09:37 PM