KevEarthwatch
Technical User
I created a form to display some results of a query - and it used to work fine.
Just this afternoon after making a few final touches and saving it, I am no longer able to open the form. I receive a "not enough memory to perform this operation" error message.
I am not sure why this would have happened, If it is helpful, i had finished adding some simple command buttons for my last updates (save record, open form, find record, etc.)
Below is the Code for the form, i was unable to find any apparent errors etc. Any help would be amazing - i would really hate having to recreate this work.
-----------------------------------------------------------
Option Compare Database
Private Sub Filter_by_Team_Start_Date_Click()
On Error GoTo Err_Filter_by_Team_Start_Date_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
Exit_Filter_by_Team_Start_Date_Click:
Exit Sub
Err_Filter_by_Team_Start_Date_Click:
MsgBox Err.Description
Resume Exit_Filter_by_Team_Start_Date_Click
End Sub
Private Sub Opens_View_my_Tracking_Information_Click()
On Error GoTo Err_Opens_Opens_View_my_Tracking_Information_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Show Forms"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Opens_View_my_Tracking_Information_:
Exit Sub
Err_Opens_View_my_Tracking_Information_Click:
MsgBox Err.Description
Resume Exit_Opens_View_my_Tracking_Information_
End Sub
Private Sub Finds_a_record_by_grant_name_Click()
On Error GoTo Err_Finds_a_record_by_grant_name_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Finds_a_record_by_grant_name_Click:
Exit Sub
Err_Finds_a_record_by_grant_name_Click:
MsgBox Err.Description
Resume Exit_Finds_a_record_by_grant_name_Click
End Sub
Private Sub Opens_report_Tracking_Click()
On Error GoTo Err_Opens_report_Tracking_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "View my Tracking Information"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Opens_report_Tracking_Click:
Exit Sub
Err_Opens_report_Tracking_Click:
MsgBox Err.Description
Resume Exit_Opens_report_Tracking_Click
End Sub
Private Sub Finds_A_Record_Click()
On Error GoTo Err_Finds_A_Record_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Finds_A_Record_Click:
Exit Sub
Err_Finds_A_Record_Click:
MsgBox Err.Description
Resume Exit_Finds_A_Record_Click
End Sub
Private Sub Save_Changes_Click()
On Error GoTo Err_Save_Changes_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Save_Changes_Click:
Exit Sub
Err_Save_Changes_Click:
MsgBox Err.Description
Resume Exit_Save_Changes_Click
End Sub
Just this afternoon after making a few final touches and saving it, I am no longer able to open the form. I receive a "not enough memory to perform this operation" error message.
I am not sure why this would have happened, If it is helpful, i had finished adding some simple command buttons for my last updates (save record, open form, find record, etc.)
Below is the Code for the form, i was unable to find any apparent errors etc. Any help would be amazing - i would really hate having to recreate this work.
-----------------------------------------------------------
Option Compare Database
Private Sub Filter_by_Team_Start_Date_Click()
On Error GoTo Err_Filter_by_Team_Start_Date_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70
Exit_Filter_by_Team_Start_Date_Click:
Exit Sub
Err_Filter_by_Team_Start_Date_Click:
MsgBox Err.Description
Resume Exit_Filter_by_Team_Start_Date_Click
End Sub
Private Sub Opens_View_my_Tracking_Information_Click()
On Error GoTo Err_Opens_Opens_View_my_Tracking_Information_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Show Forms"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Opens_View_my_Tracking_Information_:
Exit Sub
Err_Opens_View_my_Tracking_Information_Click:
MsgBox Err.Description
Resume Exit_Opens_View_my_Tracking_Information_
End Sub
Private Sub Finds_a_record_by_grant_name_Click()
On Error GoTo Err_Finds_a_record_by_grant_name_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Finds_a_record_by_grant_name_Click:
Exit Sub
Err_Finds_a_record_by_grant_name_Click:
MsgBox Err.Description
Resume Exit_Finds_a_record_by_grant_name_Click
End Sub
Private Sub Opens_report_Tracking_Click()
On Error GoTo Err_Opens_report_Tracking_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "View my Tracking Information"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Opens_report_Tracking_Click:
Exit Sub
Err_Opens_report_Tracking_Click:
MsgBox Err.Description
Resume Exit_Opens_report_Tracking_Click
End Sub
Private Sub Finds_A_Record_Click()
On Error GoTo Err_Finds_A_Record_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Finds_A_Record_Click:
Exit Sub
Err_Finds_A_Record_Click:
MsgBox Err.Description
Resume Exit_Finds_A_Record_Click
End Sub
Private Sub Save_Changes_Click()
On Error GoTo Err_Save_Changes_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Save_Changes_Click:
Exit Sub
Err_Save_Changes_Click:
MsgBox Err.Description
Resume Exit_Save_Changes_Click
End Sub