G
Guest
I am attempting to build a similar style Calendar report as Duane Hookum has
shown on his website. I have changed the relevant fields and have
substituted 'RoadnameCivic' for 'Patient' name so that addresses will show up
in the time frames stead of Patient names. Everything looks the same but each
time I try to run the report, the code stops at the '.Top' and it won't go
past it. I am using Access 2002. Is anyone able to assist me with whatever I
might be doing wrong. I have checked all the widths and heights and they all
match.
The code looks like:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngTopMargin As Long
Dim lngOneMinute As Long 'size of one minute in twips
Dim datSchedStart As Date
datSchedStart = #8:00:00 AM#
lngOneMinute = 12
lngTopMargin = 1440 'timeline starts 1" down in section
Me.MoveLayout = False
Me.RoadnameCivic.Top = lngTopMargin + DateDiff("n", datSchedStart,
Me.TimeAppointmentStart) * lngOneMinute
Me.RoadnameCivic.Height = DateDiff("n", Me.TimeAppointmentStart,
Me.TimeAppointmentFinish) * lngOneMinute
Me.RoadnameCivic.Left = Me.ReportColumn 'field in table
Me.CrewName.Left = Me.ReportColumn 'field in table
End Sub
Any help gratefully accepted.
IEJ
shown on his website. I have changed the relevant fields and have
substituted 'RoadnameCivic' for 'Patient' name so that addresses will show up
in the time frames stead of Patient names. Everything looks the same but each
time I try to run the report, the code stops at the '.Top' and it won't go
past it. I am using Access 2002. Is anyone able to assist me with whatever I
might be doing wrong. I have checked all the widths and heights and they all
match.
The code looks like:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim lngTopMargin As Long
Dim lngOneMinute As Long 'size of one minute in twips
Dim datSchedStart As Date
datSchedStart = #8:00:00 AM#
lngOneMinute = 12
lngTopMargin = 1440 'timeline starts 1" down in section
Me.MoveLayout = False
Me.RoadnameCivic.Top = lngTopMargin + DateDiff("n", datSchedStart,
Me.TimeAppointmentStart) * lngOneMinute
Me.RoadnameCivic.Height = DateDiff("n", Me.TimeAppointmentStart,
Me.TimeAppointmentFinish) * lngOneMinute
Me.RoadnameCivic.Left = Me.ReportColumn 'field in table
Me.CrewName.Left = Me.ReportColumn 'field in table
End Sub
Any help gratefully accepted.
IEJ