On Click: There isn't enough memory to perform this operation.

[jazzy]

The expression On Click you entered as the event property setting produced the following error: There isn't enough memory to perform this operation. Close.....


This was working fine for months, now all of a sudden SOME people are getting this when they click the button to open a report (see below), others working fine. i have an accde files on all the users systems connecting to an Azure SQL database. if i put an accdb file on a users computer that is having the issue and i start the database with holding shift, it will work fine. If it opens either the accde or the accdb auto start they both fail, again only on certain systems. can t figure it out. working fine on my machine so cant duplicate the error. thanks in advance. Access 2019 (Office 365). my searches say MaxLocks per file on records but the database is really not that big.

Private Sub OpenDepositInvoice_Click()If IsNull([subfrm_Invoice].[Form]![InvoiceCreatedDate]) And [subfrm_Invoice].[Form]![Description] <> "Final Balance" Then
    [subfrm_Invoice].[Form]![InvoiceCreatedDate] = Date
End If


If [subfrm_Invoice].[Form]![Description] = "Final Balance" Or [subfrm_Invoice].[Form]![Description] = "MaitreD Fee" Then
MsgBox "Report for Deposits Only"
Else
DoCmd.OpenReport "rpt_InvoiceDeposits", acViewReport
End If


End Sub

[Minty]

Check the affected machines aren't halfway through an Office update and need a reboot.
I've had odd things happen when an update hasn't fully completed.

Why do you need to hold the shift key down on a full version of the file? That seems a little strange.
Do you get the same problem if you don't hold the shift key down?

[jazzy]

shift just stops the autoexec etc.. from running. did that to isolate the line in VB (DoCmd.OpenReport "rpt_InvoiceDeposits", acViewReport). rebooted computers, repaired office, same. looked at MaxLocksPerFile but coudlnt find the registry entry on a computer running Access Runtime. did the MaxLocksPerFile value from 9500 to 15000 on computer with full version of access and still same error.

[Gicu]

Some reference links for you:
https://learn.microsoft.com/en-US/of...count-exceeded (look at method 2 to do it in VBA in the AutoExec macro)
https://www.access-programmers.co.uk...ceeded.316269/
Cheers,

[jazzy]

Some reference links for you:
https://learn.microsoft.com/en-US/of...count-exceeded (look at method 2 to do it in VBA in the AutoExec macro)
https://www.access-programmers.co.uk...ceeded.316269/
Cheers,

made the registry change, its not the MaxLocksPerFile. thanks anyways

[jazzy]

just confirmed it again. when i put the accdb file on a machine that is getting the error and hold shift on startup the error doesnt occur. it appears it is with the autoexec or something that causes it. the machines that have the runtimes i cannot do that. this error came out of no where.

[jazzy]

upgraded from access version 2016 to office 365 issue not happening on one of the machines anymore. will try others

[Gicu]

What do you have in the AutoExec?

Cheers,

[Gicu]

Colin just posted some code here https://www.access-programmers.co.uk...c-help.327814/ that might help you:

https://codekabinett.com/rdumps.php?...e-msaccess-exe

Cheers,

[jazzy]

What do you have in the AutoExec? but like i said it has been running fine for ahwile. when i run the LinkTable manually when i run access holding down shift, it works fine.... i think its something screwy with Access 2016 to be honest, that just started happening.


Cheers,

Macro Runs this

Public Function LinkTables()

    On Error Resume Next
    Dim tblDef As DAO.TableDef
    Dim Msg, Style, Response
    Msg = "Do you want to re-Link the Tables?"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Response = MsgBox(Msg, Style)
If Response = vbYes Then
    For Each tblDef In CurrentDb.TableDefs
        If tblDef.Connect <> "" Then
            tblDef.Connect = DLookup("ODBCPath", "tbl_SystemInfo", "SystemInfoID= 1")
            Status ("Linking Table " & tblDef.Name)
            tblDef.RefreshLink
        End If
            Status ("")
    Next
Else
    Exit Function
End If
             
End Function
Sub Status(pstrStatus As String)
    
    Dim lvarStatus As Variant
    
    If pstrStatus = "" Then
        lvarStatus = SysCmd(acSysCmdClearStatus)
    Else
        lvarStatus = SysCmd(acSysCmdSetStatus, pstrStatus)
    End If
    
End Sub

[jazzy]

upgrading to latest runtime (Office 365) does not correct the issue. i think the only way to correct it is to upgrade to the full blown version of Access in (office 365)

[Gicu]

In the code posted in your original post - is the subform subfrm_Invoice bound? Does the error occur regardless if the InvoiceCreateDate is populated or not? You are not saving the subform after you populate the date; is the report's recordsource using that date field? What happens if you comment out the OpenReport line and replace it with a Docmd.OpenQuery qryReportRecordSource?

Cheers,

[jazzy]

subform subfrm_Invoice Data-Record Source

SELECT tbl_Invoice.InvoiceID, tbl_Invoice.ContractsID, tbl_Invoice.InvoiceDate, tbl_Invoice.AmountDue, tbl_Invoice.Description, tbl_Invoice.InvoiceCreatedDate FROM tbl_Invoice;

The report isnt based on a query it is filled with fields pulling data from an open form. i have a system that has office 365 Access installed, same error. BUT if i open it with holding shift it works fine. changed name of AutoExec (didnt run) still same issue.

Hold Shift, manually run AutoExec no errors.

[Gicu]

Very strange because if the AutoExec is just refreshing the links it shouldn't have any impact on this. I assume the report is based on the form that has the button from post #1, can you try this updated code:

Private Sub OpenDepositInvoice_Click()
If IsNull(Me.subfrm_Invoice.Form.InvoiceCreatedDate) And Me.subfrm_Invoice.Form.Description <> "Final Balance" Then
    Me.subfrm_Invoice.Form.InvoiceCreatedDate = Date
	Me.subfrm_Invoice.Form.Dirty=False 'save the subform
End If


If Me.subfrm_Invoice.Form.Description = "Final Balance" Or Me.subfrm_Invoice.Form.Description = "MaitreD Fee" Then
	MsgBox "Report for Deposits Only"
Else
	DoCmd.OpenReport "rpt_InvoiceDeposits", acViewPreview    'acViewReport
End If
End Sub

If you still get the error (compile it first and make sure it does) then I suggest you try to base the report on a query or a temp table (by running a make table just before the OpenReport).

Cheers,

[jazzy]

will try and let you know, as always thank you. just strange that it just started happening without any changes and only on certain machines, was working fine for months.