RicardusMaximus
New member
- Local time
- Today, 04:00
- Joined
- Feb 18, 2016
- Messages
- 5
I have an Access Front End that displays the following error when I attempt to Dim any variable: "Out Of Memory." the intelli sense doesn't even pop-up when I start typing String. If I do a msgBox the intellisense works. I thought that the Forms may have been corrupted, but the application seems to work fine. I am not even able to add a new Sub to an existing module without the "Out Of Memory" message popping-up and erasing everything I typed. The modification that I made to this particular application was to have the Form's Datasource point to the appropriate Linked Table depending on the value in a particular field. I thought perhaps some of the code was corrupted and I needed to Decompile and Compile the Database. {Not real clear on how to do that.} If someone could pt me in the right direction I would appreciate it. This error seems pretty vague. The sixe of the Front does seem to have increased substatially even if I Compact and Repair it. The code that I added wasn't particularly involved.
Private Sub Search_List_DblClick(Cancel As Integer)
'Each of the Files that have a corresponding Archive_Location has been assigned an Archive Location number that will be
'used to determine which query to use to be the Data source for the respective forms.
Dim xArchive_Location As String
Dim y As String
xArchive_Location = Me.Search_List.Column(8)
Activity = Me.Search_List.Column(0)
Forms![Contract Tracking]![Activity_Nr] = Activity
If IsNull(Activity) = True Or Activity = "" Then Exit Sub
'The RecordSource for the Sub forms is determined by the Archive Value of associated with each Activity number
If xArchive_Location = 1 Then
Forms![Contract Tracking]![Activities_Subform].[Form].RecordSource = "Activities"
Forms![Contract Tracking]![Contract_Info].[Form].RecordSource = "Contract_Info"
Forms![Contract Tracking]![Timings].[Form].RecordSource = "Timings"
Forms![Contract Tracking]![Revenue].[Form].RecordSource = "Revenue"
'Forms![Contract Tracking]![ContractHistory].RowSource = "Contract History"
ElseIf xArchive_Location = 2 Then
Forms![Contract Tracking]![Activities_Subform].[Form].RecordSource = "Activities_Archive2"
Forms![Contract Tracking]!Timings.[Form].RecordSource = "Timings_Archive2"
Forms![Contract Tracking]![Contract_Info].[Form].RecordSource = "Contract_Info_Archive2"
Forms![Contract Tracking]![Revenue].[Form].RecordSource = "Revenue_Archive2"
End If
Forms![Contract Tracking]![ContractHistory].RowSource = "Contract History"
DoCmd.Close acForm, "Contract Search"
End Sub
Private Sub Search_List_DblClick(Cancel As Integer)
'Each of the Files that have a corresponding Archive_Location has been assigned an Archive Location number that will be
'used to determine which query to use to be the Data source for the respective forms.
Dim xArchive_Location As String
Dim y As String
xArchive_Location = Me.Search_List.Column(8)
Activity = Me.Search_List.Column(0)
Forms![Contract Tracking]![Activity_Nr] = Activity
If IsNull(Activity) = True Or Activity = "" Then Exit Sub
'The RecordSource for the Sub forms is determined by the Archive Value of associated with each Activity number
If xArchive_Location = 1 Then
Forms![Contract Tracking]![Activities_Subform].[Form].RecordSource = "Activities"
Forms![Contract Tracking]![Contract_Info].[Form].RecordSource = "Contract_Info"
Forms![Contract Tracking]![Timings].[Form].RecordSource = "Timings"
Forms![Contract Tracking]![Revenue].[Form].RecordSource = "Revenue"
'Forms![Contract Tracking]![ContractHistory].RowSource = "Contract History"
ElseIf xArchive_Location = 2 Then
Forms![Contract Tracking]![Activities_Subform].[Form].RecordSource = "Activities_Archive2"
Forms![Contract Tracking]!Timings.[Form].RecordSource = "Timings_Archive2"
Forms![Contract Tracking]![Contract_Info].[Form].RecordSource = "Contract_Info_Archive2"
Forms![Contract Tracking]![Revenue].[Form].RecordSource = "Revenue_Archive2"
End If
Forms![Contract Tracking]![ContractHistory].RowSource = "Contract History"
DoCmd.Close acForm, "Contract Search"
End Sub
Last edited: