Positioning objects using VB

[NCRStinks]

Hi There

Usually in the access forums, but trying to get a little more adventurous... Unfortunately not having much luck!

Trying to achieve an "Outlook" type calender for a report in access. Very similar to the example on http://www.access.hookom.net/Samples.htm

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)Dim TopMargin As Long
Dim OneMin As Long
Dim DayStart As Date
Dim StartTime As Date
Dim EndTime As Date
 
DayStart = #10:00:00 AM#
OneMin = 15
TopMargin = 1440
 
Me.MoveLayout = False
 
Me.Customer.Top = TopMargin + (DateDiff("n",DayStart,StartTime) * OneMin
Me.Customer.Height = (DateDiff("n", StartTime, EndTime))
Me.Customer.Left = 1440
 
End Sub

I have practically copied the code from the example but I am receiving an error message: The control or subform is too large for this location (error 2100)

I am using MS Access 2007, the data that "fills" StartTime = 10:00, EndTime 13:00

Any help would be much appreciated, or whether I should post this in the Access forum - I was unsure!

Many Thanks

Dan

[Killer42]

Which line produces the error?

Hm... on further consideration, perhaps the problem is that DateDiff will be producing a negative number, since StartTime is actually zero.

[NCRStinks]

Which line produces the error?

Hm... on further consideration, perhaps the problem is that DateDiff will be producing a negative number, since StartTime is actually zero.

Hi There

I have managed to sort out this problem. Using the "TimeValue" function. I think with saving the field as "date/time" in access even when only typing a time, it attaches a date to it too.

By using the TimeValue, i have been able to eliminate the error.


Many Thanks


Dan

[Killer42]

Ok. Glad to see you've got it sorted. :)