Inserting Field on Calendar

[mike60smart]

Hi Everyone

In the attached when you double click on a Date it opens up the Appointments Form

When I add a Location is it possible to have this Location display on the Actual Calendar?

Any help appreciated

 

[MajP]

in showMonthAppts

   '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)
                    'MajP add location
                    vArray(vCol, vRow) = vArray(vCol, vRow) _
                    & Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")" & vbCrLf                             'add appt data to array + CRLF
                Else
                    If Month(vMonthStart) = Month(vDate) Then                   'if current date <> current month then skip *** (hide appts for dates not in current month)
                        ' MajP add location
                        vArray(vCol, vRow) = vArray(vCol, vRow) _
                        & Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")" & vbCrLf           'add appt data to array + CRLF
                      End If
                End If

 

[mike60smart]

Hi MajP

That works a treat. I would never have been able to work that out for myself.
Many thanks yet again

 

[MajP]

I already knew how the code works because i spent many hours in the code when I added a year view to it. See last example.
Post in thread 'Date Pickers, Calendar Controls, and Calendar resources' https://www.access-programmers.co.u...ls-and-calendar-resources.315041/post-1734433

 

[mike60smart]

I already knew how the code works because i spent many hours in the code when I added a year view to it. See last example.
Post in thread 'Date Pickers, Calendar Controls, and Calendar resources' https://www.access-programmers.co.u...ls-and-calendar-resources.315041/post-1734433

Hi Maj P

How would I modify the Code for ShowWeekAppts & ShowDailyAppts to add the Location?

Help appreciated

 

[MajP]

Need to add the location to everywhere that it only had the subject previously.
change

vArray(vCol, vRow) = vArray(vCol, vRow)  & Nz(rst!ApptSubject)

add

vArray(vCol, vRow) = vArray(vCol, vRow) & Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")"

I put it in Parentheses but you can format this line how you want.

 

[mike60smart]

Need to add the location to everywhere that it only had the subject previously.
change

vArray(vCol, vRow) = vArray(vCol, vRow)  & Nz(rst!ApptSubject)

add

vArray(vCol, vRow) = vArray(vCol, vRow) & Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")"

I put it in Parentheses but you can format this line how you want.

Hi MajP

Got it to work OK on the Monthly and Weekly but get the following error on the Daily Display.

Click OK and it highlights VCol ???

 

[MajP]

It is the exact same syntax in all locations so my guess it is a pasting issue. See if any thing got pasted to the far right. It gets hard to paste with all the inline comments.

 

[mike60smart]

It is the exact same syntax in all locations so my guess it is a pasting issue. See if any thing got pasted to the far right. It gets hard to paste with all the inline comments.

I added Dim vCol as Long and it works just fine now

Many thanks for the quick response.

 

[MajP]

I see what you did. You pasted in the whole line, not just the addition For the day it was this a little different.
vArray(0, vRow) = vArray(0, vRow) & rst!ApptSubject & " (" & Nz(rst!apptLocation, "") & ") "

In the other ones there was a vCol but for day it is just 0
vArray(vCol, vRow) = vArray(vCol, vRow) & rst!ApptSubject & " (" & Nz(rst!apptLocation, "") & ") " 'add appt data to array