Format time to display hh:mm AM/PM in the calendar block area

[Edward Polite]

I have another question re: Access Calendar, Wide Calendar w/Switchboard.

Currently the time format in the calendar block, display like 03:00:00 PM, Hour:Minutes:Seconds AM/PM.

Even though the code below appears to be formated Not to display seconds, time is still displayed as noted above.

strEventTime = Format(strStartTime, "h:mm AM/PM")

I looked at another code, below... Modified it, and still no change!

Me.Caption = "Access Calendar (" & Format$(Now(), "dddd - mmmm dd, yyyy hh:mm:ss AM/PM") & ")"

The query returns the correct format in the details section for each appointment, so it is not the query that need re-formating.

How do I re-format the time to display only hh:mm AM/PM in the calendar block area? Is it possible?

[NeoPa]

Edward Polite:
How do I re-format the time to display only hh:mm AM/PM in the calendar block area?

What exactly is the calendar block area?

Whatever it is, I suspect you need to look at the format property for it. You can use the Format() function to effect the actual data stored there, but that has no real effect on what is displayed. That is reserved for the .Format property. A different animal completely.

Let us know how you get on with this.

[Edward Polite]

NeoPa, I followed your lead, and it took some time to figure it all out, but I modified lines 3 & 5 below by inserting the following code (Format(rstEvents![Start Time], "h:mm AMPM")) to get the results I was looking for in the "txtDayBlock" areas. Thank you for pointing me in the right direction!

Select Case lngEachDateInRange
Case lngFirstDateInRange        '1st Date in Range, no existing Text
    astrCalendarBlocks(bytBlockCounter) = rstEvents![Title] & " - " & rstEvents![Start Time]
Case lngLastDateInRange         'Last Date in Range, no existing Text
    astrCalendarBlocks(bytBlockCounter) = rstEvents![Title] & " - " & rstEvents![End Time]
Case Else                       'Date Between 1st and Last in Range, no existing Text
    astrCalendarBlocks(bytBlockCounter) = rstEvents![Title]
End Select

[NeoPa]

Ah. I see the [txtDayBlock] areas are string titles that simply want to include the formatted time values. In that case you have a good solution :-)