new form error

[Sherry]

I have a very substantial and complex Access application that has been
developed over about 5 years. Currently we are trying to make it work in
Access 2003 with SP3. One of the problems I have encountered is a Reserve
Error 2950 pops up when a user clicks on a button that instantiates a new
form. Previous to SP3 this works perfectly.

Here is the code:


'Module level declarations
Private WithEvents m_frmSales_DetailsOrder As Form_frmSales_DetailsOrder

Private Sub m_frmSales_DetailsOrderItem_LoadOrderDetail(OrdNum As String)

Set m_frmSales_DetailsOrder = New Form_frmSales_DetailsOrder
m_frmSales_DetailsOrder.LoadOrder (OrdNum)
m_frmSales_DetailsOrder.SetFocus

End Sub

Anyone have any idea on how I can get this to work?

We can't move to SP3 until we can get this to work since this methodology is
used throughout this very extensive application.

Thanks,

 

[Alex Dybenko]

Hi,
perhaps there is some timing issue, try to debug to find out on what line
you getting error

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com

 

[Sherry]

Thanks Alex,

I found the problem was resolved when I applied the HotFix to SP3. One of
those undocumented things I guess.

 

[frbcoindude]

The only time I have seen this code is that I had an invalid path name on an
XMLExport or, that I used a reserved word in the statement. That does not
look like ur problem here tho.

Try setting up a better error handler and display some data that would be
useful to you.

Sample:
==========

Private Sub m_frmSales_DetailsOrderItem_LoadOrderDetail(OrdNum As String)

'Uses error handling to trap for the 2950 error
On Error GoTo Err_Handler

Set m_frmSales_DetailsOrder = New Form_frmSales_DetailsOrder
m_frmSales_DetailsOrder.LoadOrder (OrdNum)
m_frmSales_DetailsOrder.SetFocus

ExitRoutine:
Exit Sub

Err_Handler:
If (Err = 2950) Then
MsgBox "Error display"
Else
Resume ExitRoutine
End If

End Sub

============================