Type mismatch

[CJ]

I am getting a type mismatch error on this code:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

Dim test As [Report_Test 2]
Dim ctlText As Control
Dim intLeft As Integer, intTop As Integer
Dim intWidth As Integer, intHeight As Integer

intLeft = 0.25
intTop = 8.5
intWidth = 8
intHeight = 0.2083

If (job_order_administrative = -1) Then

Set ctlText = CreateReportControl(test, acTextBox, acDetail, ,
job_order_administrative, intLeft, intTop, intWidth, intHeight)

End If

End Sub

It highlights the private sub row and "CreateReportControl". Any
ideas? Thanks...

...CJ

[Sue Hoegemeier]

On Tue, 15 Sep 1998 15:53:51 -0400, CJ <c4mart...@spam.com>
wrote:

>I am getting a type mismatch error on this code:

Looks like you've got a bunch of values declared as Integers but
you aren't using whole or natural numbers. Try using Single for
the datatypes.

--Sue

[CJ]

Thanks for the reply, but that still didn't fix the problem. I think
I'm getting the mismatch on the control. I've taken a screen shot and
have the gif located at:

http://www.geocities.com/Heartland/Woods/1198/mismatch.gif

Thanks again...

...CJ