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 

 

We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.