[AccessD] Unknown Jet Error

The only message I get is "Unknown Jet Error"
When stepping through the code the message appears after completing the line
DoCmd.Maximize. 
I.e. Next line is highlighted.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Tuesday, July 27, 2010 11:48 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Unknown Jet Error

What error and which line?

Rocky
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kaup, Chester
Sent: Tuesday, July 27, 2010 9:17 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Unknown Jet Error

Why does this code cause an error? Compact and repair is of no use.

Private Sub Form_Open(Cancel As Integer)
    Stop
    DoCmd.OpenForm "frm Plant Pressures Scatter"
    DoCmd.Maximize
    Me!chtPlantChart.SetFocus
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intCnt As Integer
    Dim MaxY1 As Single, MaxY2 As Single, MajorUnitY1 As Single 
    Dim MinorUnitY1 As Single, MajorUnitY2 As Single, MinorUnitY2 As Single
    DoCmd.SetWarnings Off
End Sub. 

Chester Kaup
Engineering Technician
Kinder Morgan CO2 Company, LLP
Office (432) 688-3797
FAX (432) 688-3799

 
No trees were killed in the sending of this message. However a large number
of electrons were terribly inconvenienced.


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com