Removing HasModule

I'm trying to create an ACCDE file from an Access 2016 DB. I get error Too many objects. I have about 400 objects queries forms reports etc.. Reading the help for the error it says that if Forms Reports etc. have HasModule set to Yes it doubles the number of objects that Access counts. Is there way to remove HasModule or set it to no so that I can try to create an ACCDE file. AS there are so many I wondered if code like this exists:

    Dim obj As Object
    Dim I As Integer
   
    'Forms
    For Each obj In CurrentProject.AllForms
        Application.acForm , obj.Name, bHideUnhide  (replace with something like HasModule=False)
    Next obj

    'Reports
    For Each obj In CurrentProject.AllReports
        Application.SetHiddenAttribute acReport, obj.Name, bHideUnhide  (replace with something like HasModule=False)
    Next obj