Allfunctions/AllstoredProcedures

19/11/2009 - 10:52 von Stefan Ruppel | Report spam
Hallo,
hat schon 'mal jemand erfahrungen mit den o.g. Auflistungen gemacht? Ich
bekomme das nicht hin.

Mein Code

Sub AllStoredProcedures()
Dim obj As AccessObject
Dim dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllFunctions
Debug.Print obj.Name
Next obj
End Sub

Geht nicht, weil "Object unterstützt diese Eigenschaft oder methode nicht"

Alternativ aus dem msdn:

Sub AllStoredProcedures()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in
' AllStoredProcedures collection.
For Each obj In dbs.AllStoredProcedures
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub

Geht auch nicht, weil auf geschlossenes oder nicht vorhandenes Objekt
verwiesen wird.

Was ist falsch - ev. fehlt ein Bibliotheksverweis?

MErci, Stefan Ruppel
 

Lesen sie die antworten

#1 Karl Donaubauer
19/11/2009 - 11:08 | Warnen spam
Stefan Ruppel wrote:
hat schon 'mal jemand erfahrungen mit den o.g. Auflistungen
gemacht? Ich bekomme das nicht hin.

Mein Code

Sub AllStoredProcedures()
Dim obj As AccessObject
Dim dbs As Object
Set dbs = Application.CurrentProject
For Each obj In dbs.AllFunctions
Debug.Print obj.Name
Next obj
End Sub

Geht nicht, weil "Object unterstützt diese Eigenschaft oder methode
nicht"

Alternativ aus dem msdn:

Sub AllStoredProcedures()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
' Search for open AccessObject objects in
' AllStoredProcedures collection.
For Each obj In dbs.AllStoredProcedures
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub

Geht auch nicht, weil auf geschlossenes oder nicht vorhandenes
Objekt verwiesen wird.

Was ist falsch - ev. fehlt ein Bibliotheksverweis?



Machst du das eh in einem ADP?
In einer mdb oder accdb gibt's diese Objekttypen nicht
und schmeißen die immer einen Fehler.

Es müsste auch immer CurrentData (nicht CurrentProject) heißen,
wie im MSDN-Beispiel, weil diese Objekt in der Server-DB liegen.

Servus
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com

Ähnliche fragen