|
Question : There isn't enough memory to perform this operation. Close unneeded programs and try the operation again.
|
|
Hello everyone, I need help! I have very little Access experiance. One of the Forms designed by a now departed programmer gives us "There isn't enough memory to perform this operation. Close unneeded programs and try the operation again." Whenever we click on this paticular button. All the other buttons work fine. This is the event procedure:
Option Compare Database 'Use database order for string comparisons
Private Sub Button0_Click()
On Error GoTo Err_Button0_Click
Dim DocName As String
Dim LinkCriteria As String
DocName = "Main"
DoCmd.OpenForm DocName, , , LinkCriteria
Exit_Button0_Click:
Exit Sub
Err_Button0_Click:
MsgBox Error$
Resume Exit_Button0_Click
End Sub
Private Sub Button2_Click()
On Error GoTo Err_Button2_Click
DoCmd.Close
Exit_Button2_Click:
Exit Sub
Err_Button2_Click:
MsgBox Error$
Resume Exit_Button2_Click
End Sub
Private Sub Button4_Click()
On Error GoTo Err_Button4_Click
Dim DocName As String
Dim LinkCriteria As String
DocName = "Reports Form"
DoCmd.OpenForm DocName, , , LinkCriteria
Exit_Button4_Click:
Exit Sub
Err_Button4_Click:
MsgBox Error$
Resume Exit_Button4_Click
End Sub
Private Sub Button5_Click()
On Error GoTo Err_Button5_Click
Dim DocName As String
Dim LinkCriteria As String
DocName = "Table Edit Form"
DoCmd.OpenForm DocName, , , LinkCriteria
Exit_Button5_Click:
Exit Sub
Err_Button5_Click:
MsgBox Error$
Resume Exit_Button5_Click
End Sub
Sub Command7_Click()
On Error GoTo Err_Command7_Click
Dim stDocName As String
stDocName = "Short Notice Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click
End Sub
Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
stDocName = "Waiting List Report 2"
DoCmd.OpenReport stDocName, acPreview
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Sub Command9_Click()
On Error GoTo Err_Command9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Confirmation Check Form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command9_Click:
Exit Sub
Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click
End Sub
Sub Command11_Click()
On Error GoTo Err_Command11_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Completed Main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command11_Click:
Exit Sub
Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click
End Sub
Sub Command12_Click()
On Error GoTo Err_Command12_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "IA Main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click
End Sub
Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Amy"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Anita"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command15_Click:
Exit Sub
Err_Command15_Click:
MsgBox Err.Description
Resume Exit_Command15_Click
End Sub
Private Sub Command16_Click()
On Error GoTo Err_Command16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Candy"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command16_Click:
Exit Sub
Err_Command16_Click:
MsgBox Err.Description
Resume Exit_Command16_Click
End Sub
Private Sub Command17_Click()
On Error GoTo Err_Command17_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Edie"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command17_Click:
Exit Sub
Err_Command17_Click:
MsgBox Err.Description
Resume Exit_Command17_Click
End Sub
Private Sub Command18_Click()
On Error GoTo Err_Command18_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Lucy"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command18_Click:
Exit Sub
Err_Command18_Click:
MsgBox Err.Description
Resume Exit_Command18_Click
End Sub
Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Natasha"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click
End Sub
Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Not Yet Assigned"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command20_Click:
Exit Sub
Err_Command20_Click:
MsgBox Err.Description
Resume Exit_Command20_Click
End Sub
Private Sub Command21_Click()
On Error GoTo Err_Command21_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Wilson"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command21_Click:
Exit Sub
Err_Command21_Click:
MsgBox Err.Description
Resume Exit_Command21_Click
End Sub
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Lela"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ADHD Main"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub
Private Sub Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Case coordinator assignments"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command25_Click:
Exit Sub
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Sub
Private Sub Run_Service_Time_Check_Report_Click()
On Error GoTo Err_Run_Service_Time_Check_Report_Click
Dim stDocName As String
stDocName = "Service Time Report"
DoCmd.OpenReport stDocName, acPreview
Exit_Run_Service_Time_Check_Report_Click:
Exit Sub
Err_Run_Service_Time_Check_Report_Click:
MsgBox Err.Description
Resume Exit_Run_Service_Time_Check_Report_Click
End Sub
Private Sub Command27_Click()
On Error GoTo Err_Command27_Click
Dim stDocName As String
stDocName = "birth to 3 times"
DoCmd.OpenReport stDocName, acPreview
Exit_Command27_Click:
Exit Sub
Err_Command27_Click:
MsgBox Err.Description
Resume Exit_Command27_Click
End Sub
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim stDocName As String
stDocName = "IESC 45 day Report"
DoCmd.OpenReport stDocName, acNormal
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
Any Ideas? Again, I have no idea how to "read" this so please talk slow and use simple words :)
|
|
|
Answer : There isn't enough memory to perform this operation. Close unneeded programs and try the operation again.
|
|
I don't see any problem with the form code itself, shouldn't be the problem. The reason why Pete asked which button (I think) is because the problem most likely is with the Form or Report that is opened.
1. Determine which button click event(s) cause the memory message to appear.
2. Look at the recordsource for that Form or Report. It is most likely a huge recordset that is being loaded into memory.
If you need additional help once you've identified the Form(s) or Report(s), give us more detail.
|
|
|
|
|
