RUN TIME Error on Code that has ALWAYS worked before

[BlueWolverine]

Hello,
MS Access 2003 on XP PRO.

This code worked on 1 GB of RAM and now produces an error now that i have
4GB of RAM.
The Error is [[Run Time Error 3035 SYSTEM RESOURCES EXCEEDED]]

Any thoughts on what's going wrong?

Here is the code that the problem occurs on. <<<>>> indicates line where
error pops.

Private Sub cmd_SearchSpecific_Click()
Dim mydb As Database, rs As DAO.Recordset, tqn As String, parm As
DAO.Parameter, qdf As QueryDef
Set mydb = CurrentDb
tqn = "q_search_exact"
Set qdf = mydb.QueryDefs(tqn)

<<< For Each parm In qdf.Parameters >>>
parm.Value = Eval(parm.Name)
Next parm
Set rs = qdf.OpenRecordset


If rs.EOF Or rs.BOF Then
DoCmd.Beep
MsgBox "Returned zero (0) results.", vbOKOnly, "Search Complete"
Else
DoCmd.OpenForm "f_search_exact", acNormal
End If
End Sub

 

[Jim Burke in Novi]

Have you tried doing a Compact and Repair? I'd try that, maybe a decompile as
well. No idea why you should suddenly get that error just because of a memory
change. Maybe someone else knows of a reason why that would happen, or has
another solution.

 

[BlueWolverine]

I did a compact and repair prior and that seems to be around the time of the
error. Though not exactly.

I will look into the decompile thing. Luckily, I have a copy that works
still, but I need to know the problem so I can prevent it.
--
BlueWolverine
MSE - Mech. Eng.
Go BLUE!

Have you tried doing a Compact and Repair? I'd try that, maybe a decompile as
well. No idea why you should suddenly get that error just because of a memory
change. Maybe someone else knows of a reason why that would happen, or has
another solution.

Hello,
MS Access 2003 on XP PRO.

This code worked on 1 GB of RAM and now produces an error now that i have
4GB of RAM.
The Error is [[Run Time Error 3035 SYSTEM RESOURCES EXCEEDED]]

Any thoughts on what's going wrong?

Here is the code that the problem occurs on. <<<>>> indicates line where
error pops.

Private Sub cmd_SearchSpecific_Click()
Dim mydb As Database, rs As DAO.Recordset, tqn As String, parm As
DAO.Parameter, qdf As QueryDef
Set mydb = CurrentDb
tqn = "q_search_exact"
Set qdf = mydb.QueryDefs(tqn)

<<< For Each parm In qdf.Parameters >>>
parm.Value = Eval(parm.Name)
Next parm
Set rs = qdf.OpenRecordset


If rs.EOF Or rs.BOF Then
DoCmd.Beep
MsgBox "Returned zero (0) results.", vbOKOnly, "Search Complete"
Else
DoCmd.OpenForm "f_search_exact", acNormal
End If
End Sub