You are here : Start Access Properties einer Abfrage auslesen

Properties einer Abfrage auslesen
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 


 
JoomlaTheme.net