[AccessD] Operation Not Supported...

[Arthur Fuller]

Thanks, Gustav. You'd think that somebody inside Microsoft Learn would have
"learned" that by now

On Sun, Oct 16, 2022 at 12:02 PM Gustav Brock via AccessD <
accessd at databaseadvisors.com> wrote:

> Hi Arthur
>
> A DAO.Property is an object. That can’t be compared to an empty string.
> Try with .Name or .Value of prploop.
>
> /gustav
>
> Fra: Arthur Fuller<mailto:fuller.artful at gmail.com>
> Sendt: 16. oktober 2022 15:26
> Til: Access Developers discussion and problem solving<mailto:
> accessd at databaseadvisors.com>
> Emne: Re: [AccessD] Operation Not Supported...
>
> I added an error handler, which gives the same result as I mentioned:
>
> Error 3251:  Operation is not supported for this type of object.
>
> In the code I provided, there is a comment on the line above the errant
> line.
>
> On Sun, Oct 16, 2022 at 7:35 AM John Colby <jwcolby at gmail.com> wrote:
>
> > Is it a compile error or a run time error?  You always need an error
> > handler.  On Error Goto ErrorLabel as the first line of the sub.  Then
> > somewhere down below an error label, usually as the last line of the sub.
> > See the example (actual code form a class).
> >
> > Now when a run time error occurs the execution vectors to the error
> handler
> > and you can see what it was and even "resume 0" to go execute the line
> with
> > the error again.
> >
> > Private Sub Class_Initialize()
> > On Error GoTo Err_Class_Initialize
> >     assDebugPrint "initialize " & mcstrModuleName, DebugPrint
> >     Set mclsGlobalInterface = New clsGlobalInterface
> > Exit_Class_Initialize:
> > Exit Sub
> > Err_Class_Initialize:
> >         MsgBox Err.Description, , "Error in Sub
> > clsTemplate.Class_Initialize"
> >         Resume Exit_Class_Initialize
> >     Resume 0    '.FOR TROUBLESHOOTING
> > End Sub
> >
> > On Sun, Oct 16, 2022 at 7:02 AM Arthur Fuller <fuller.artful at gmail.com>
> > wrote:
> >
> > > I'm a little puzzled by this error, especially since I copied the sub
> > from
> > > Microsoft Learn.
> > >
> > > <code>
> > > Sub DatabaseObjectX()
> > >
> > >  Dim wrkAcc As Workspace
> > >  Dim dbsNorthwind As Database
> > >  Dim dbsNew As Database
> > >  Dim dbsLoop As Database
> > >  Dim prpLoop As Property
> > >
> > >  Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", _
> > >     "", dbUseJet)
> > >
> > >  ' Make sure there isn't already a file with the name of
> > >  ' the new database.
> > >  If Dir("NewDB.accdb") <> "" Then Kill "NewDB.accdb"
> > >
> > >  ' Create a new database with the specified
> > >  ' collating order.
> > >  Set dbsNew = wrkAcc.CreateDatabase("NewDB.accdb", _
> > >     dbLangGeneral)
> > >  Set dbsNorthwind = wrkAcc.OpenDatabase(CON_NorthwindPath &
> > > "Northwind.accdb")
> > >
> > >  ' Enumerate the Databases collection.
> > >  For Each dbsLoop In wrkAcc.Databases
> > >     With dbsLoop
> > >         Debug.Print "Properties of " & .Name
> > >         ' Enumerate the Properties collection of each
> > >         ' Database object.
> > >         For Each prpLoop In .Properties
> > >            ' the line below causes the error
> > >             If prpLoop <> "" Then Debug.Print " " & _
> > >                 prpLoop.Name & " = " & prpLoop
> > >         Next prpLoop
> > >     End With
> > >  Next dbsLoop
> > >
> > >  dbsNew.Close
> > >  dbsNorthwind.Close
> > >  wrkAcc.Close
> > >
> > > End Sub
> > > </code>
> > > The error message says "Operation not supported for this type of
> object."
> > >
> > > Any idea why?
> > >
> > > --
> > > Arthur
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> https://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
Arthur