Grapical report

  • Thread starter Thread starter Michael Noblet
  • Start date Start date
M

Michael Noblet

I am working to replace a report that origanally came from
a DOS database source. It is basically a cross tab
report, but the data is represneted by Basically a line
graph style output:

Person Name| 12 | 1 | 2 | 3 |
BOB xxx xxx xxx
Dave xxx xxx xxx

Basicaly it takes the time in and time out to display the
range they were in the office. Is there a way to do this
in access. It does not lend itself real well to doing a
graph due to the length of the report (5 Pages).

Any ideas would be appreciated.
 
Duane,

That is exactly what I needed. I am having a little
trouble making it work right however. I am using the
example of the crew rotation that is provided in that
calendar database.

For my report it is based on a single day and I have to
show the graphical representation for hours in a 24 hour
day.

as I use the code for the bars that represent the time I
am getting a runtime error 2100: the control or subform is
to large for this section. The code is below. I know it
is something simple that I am not seeing because I am so
close to the code. Any direction you could give would be
extremley helpful.

Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
Dim lngDuration As Long 'Length of stay
Dim lngStart As Long 'TimeStart
Dim lngLMarg As Long
Dim dblFactor As Double
lngLMarg = Me.boxTimeLine.Left
dblFactor = Me.boxTimeLine.Width / 24
lngStart = DateDiff("h", #12:00:00 AM#, Me.[Arrival
(First) Time])
lngDuration = DateDiff("h", Me.[Arrival (First) Time],
Me.[Depart (Last) Time])
Me.txtName.BackColor = 0
Me.txtName.Width = 10
Me.txtName.Left = (lngStart * dblFactor) + lngLMarg
Me.txtName.Width = (lngDuration * dblFactor)
Me.MoveLayout = False


End Sub

The lines that are causing the error are Me.txtName.left =
and Me.txtName.width =

Mike
 
Do you have schedule events that go past midnight? Have you set a break
point and attempted to step through the code? Another method is to put
debug.print statements in the code so you can open the debug window and view
the values.

--
Duane Hookom
MS Access MVP
--

Michael Noblet said:
Duane,

That is exactly what I needed. I am having a little
trouble making it work right however. I am using the
example of the crew rotation that is provided in that
calendar database.

For my report it is based on a single day and I have to
show the graphical representation for hours in a 24 hour
day.

as I use the code for the bars that represent the time I
am getting a runtime error 2100: the control or subform is
to large for this section. The code is below. I know it
is something simple that I am not seeing because I am so
close to the code. Any direction you could give would be
extremley helpful.

Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
Dim lngDuration As Long 'Length of stay
Dim lngStart As Long 'TimeStart
Dim lngLMarg As Long
Dim dblFactor As Double
lngLMarg = Me.boxTimeLine.Left
dblFactor = Me.boxTimeLine.Width / 24
lngStart = DateDiff("h", #12:00:00 AM#, Me.[Arrival
(First) Time])
lngDuration = DateDiff("h", Me.[Arrival (First) Time],
Me.[Depart (Last) Time])
Me.txtName.BackColor = 0
Me.txtName.Width = 10
Me.txtName.Left = (lngStart * dblFactor) + lngLMarg
Me.txtName.Width = (lngDuration * dblFactor)
Me.MoveLayout = False


End Sub

The lines that are causing the error are Me.txtName.left =
and Me.txtName.width =

Mike
-----Original Message-----
There are some calendar reports that do this at
http://www.invisibleinc.com/divFiles.cfm?divDivID=4

--
Duane Hookom
MS Access MVP





.
Click to expand...
Click to expand...
 
I had a record that went over 24 hours. I fixed that
record and it worked fine.

Thanks for the help.
-----Original Message-----
Do you have schedule events that go past midnight? Have you set a break
point and attempted to step through the code? Another method is to put
debug.print statements in the code so you can open the debug window and view
the values.

--
Duane Hookom
MS Access MVP
--

Duane,

That is exactly what I needed. I am having a little
trouble making it work right however. I am using the
example of the crew rotation that is provided in that
calendar database.

For my report it is based on a single day and I have to
show the graphical representation for hours in a 24 hour
day.

as I use the code for the bars that represent the time I
am getting a runtime error 2100: the control or subform is
to large for this section. The code is below. I know it
is something simple that I am not seeing because I am so
close to the code. Any direction you could give would be
extremley helpful.

Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
Dim lngDuration As Long 'Length of stay
Dim lngStart As Long 'TimeStart
Dim lngLMarg As Long
Dim dblFactor As Double
lngLMarg = Me.boxTimeLine.Left
dblFactor = Me.boxTimeLine.Width / 24
lngStart = DateDiff("h", #12:00:00 AM#, Me.[Arrival
(First) Time])
lngDuration = DateDiff("h", Me.[Arrival (First) Time],
Me.[Depart (Last) Time])
Me.txtName.BackColor = 0
Me.txtName.Width = 10
Me.txtName.Left = (lngStart * dblFactor) + lngLMarg
Me.txtName.Width = (lngDuration * dblFactor)
Me.MoveLayout = False


End Sub

The lines that are causing the error are Me.txtName.left =
and Me.txtName.width =

Mike
-----Original Message-----
There are some calendar reports that do this at
http://www.invisibleinc.com/divFiles.cfm?divDivID=4

--
Duane Hookom
MS Access MVP


I am working to replace a report that origanally came from
a DOS database source. It is basically a cross tab
report, but the data is represneted by Basically a line
graph style output:

Person Name| 12 | 1 | 2 | 3 |
BOB xxx xxx xxx
Dave xxx xxx xxx

Basicaly it takes the time in and time out to display the
range they were in the office. Is there a way to do this
in access. It does not lend itself real well to doing a
graph due to the length of the report (5 Pages).

Any ideas would be appreciated.




.
Click to expand...
Click to expand...


.
Click to expand...
 
Back
Top