Blue Flower

Property Liste einer Abfrage.

Sub Qry_Porpertys()
  Dim qry As QueryDef
  Dim prpNew As Property
  Dim b%
  On Error Resume Next
  Set qry = CurrentDb.QueryDefs("AbfrageNameö")
  Debug.Print "Properties-Nr Name:"
  For b = 0 To qry.Properties.Count - 1
    Debug.Print b; " "; qry.Properties(b).Name; " : "; qry.Properties(b).Value
  Next
End If

Ausgabe:

 Properties-Nr Name:
0 Name : AbfrageName
1 DateCreated : 15.12.2009 10:29:38
2 LastUpdated : 15.12.2009 11:44:47
3 Type : 0
4 SQL : SELECT ...;
5 Updatable : Wahr
6 Connect :
7 ReturnsRecords : Wahr
8 ODBCTimeout : 60
9 RecordsAffected : 0
10 MaxRecords : 0
14 RecordLocks : 0
15 RecordsetType : 0
16 OrderByOn : Falsch
17 Orientation : 0
18 DefaultView : 2
19 GUID : ????????
20 DOL : ?? ???????? ?????? DAT_KW ???????? ????????DAT 
21 Description : Jahre
22 NameMap : ?? ???????? ???? ?aDAT_KW ???????? ????????DAT ???????? ????????KW