RUN TIME Error on Code that has ALWAYS worked before

  • Thread starter Thread starter BlueWolverine
  • Start date Start date
B

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
 
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.
 
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!


Jim Burke in Novi said:
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 said:
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
Click to expand...
Click to expand...
 
Back
Top