Paket modDAO

Zugriff auf lokale Objekte Hilfeprozeduren um das Schreiben von Code etwas abzukürzen Außerdem ist eine einfache Umstellung der verwendeten Zugriffsbibliotheken möglich. Mehr ...

Funktionen
Property Get	CurrentDbC () As DAO.Database
	CurrentDbC = CurrentDbConnection.CurrentDb = CurrentDbConnection.DAO.CurrentDb.
Function	OpenDaoRecordset (ByVal Source As String, Optional ByVal RstType As DAO.RecordsetTypeEnum=dbOpenDynaset, Optional ByVal RstOptions As DAO.RecordsetOptionEnum, Optional ByVal LockEdit As DAO.LockTypeEnum=dbOptimistic) As DAO.Recordset
	OpenDaoRecordset = CurrentDbConnection.DAO.OpenRecordset.
Sub	DaoExecute (ByVal sSQL As String, Optional ByRef RecordsAffected As Long, Optional ByVal Options As DAO.RecordsetOptionEnum)
	DaoExecute = CurrentDbConnection.DAO.Execute.
Function	DaoLookupSQL (ByVal sSQL As String) As Variant
	DaoLookupSQL = CurrentDbConnection.DAO.DLookupSQL.
Function	DaoCount (ByVal Expr As String, ByVal Domain As String, Optional ByVal Criteria As String=vbNullString) As Long
	DaoCount = CurrentDbConnection.DAO.DCount.
Function	DaoInsertIdentityReturn (ByVal InsertSQL As String) As Variant
	DaoInsertIdentityReturn = CurrentDbConnection.DAO.InsertIdentityReturn.
Function	DeleteTableDef (ByVal sTabName As String) As Boolean
	Tabelle im Frontend löschen.

Ausführliche Beschreibung

Zugriff auf lokale Objekte Hilfeprozeduren um das Schreiben von Code etwas abzukürzen Außerdem ist eine einfache Umstellung der verwendeten Zugriffsbibliotheken möglich.

Der eigentliche Zugriff erfolgt über CurrentDbConnection

Dokumentation der Funktionen

Property Get modDAO.CurrentDbC ( )

CurrentDbC = CurrentDbConnection.CurrentDb = CurrentDbConnection.DAO.CurrentDb.

Rückgabe:: DAO.Database

Function modDAO.DaoCount	(	ByVal Expr As	String,
		ByVal Domain As	String,
		Optional ByVal Criteria As	String = `vbNullString`
	)

DaoCount = CurrentDbConnection.DAO.DCount.

Parameter:

	Expr	Feldname oder "*"
	Domain	Datenquelle
	Criteria	Filterausdruck

Sub modDAO.DaoExecute	(	ByVal sSQL As	String,
		Optional ByRef RecordsAffected As	Long,
		Optional ByVal Options As DAO.	RecordsetOptionEnum
	)

DaoExecute = CurrentDbConnection.DAO.Execute.

Parameter:

	sSQL	SQL-Anweisung
`[out]`	RecordsAffected	Anzahl der betroffenen Datensätzen
	Options	Optionen für Execute (analog DAO.Database.Execute)

Function modDAO.DaoInsertIdentityReturn ( ByVal InsertSQL As String )

DaoInsertIdentityReturn = CurrentDbConnection.DAO.InsertIdentityReturn.

Parameter:

InsertSQL

Insert-SQL-Anweisung

Function modDAO.DaoLookupSQL ( ByVal sSQL As String )

DaoLookupSQL = CurrentDbConnection.DAO.DLookupSQL.

Parameter:

sSQL

SQL-Anweisung

Function modDAO.DeleteTableDef ( ByVal sTabName As String )

Tabelle im Frontend löschen.

Parameter:

sTabName

Tabellen-Name

Rückgabe:: Boolean

Function modDAO.OpenDaoRecordset	(	ByVal Source As	String,
		Optional ByVal RstType As DAO.	RecordsetTypeEnum = `dbOpenDynaset`,
		Optional ByVal RstOptions As DAO.	RecordsetOptionEnum,
		Optional ByVal LockEdit As DAO.	LockTypeEnum = `dbOptimistic`
	)

OpenDaoRecordset = CurrentDbConnection.DAO.OpenRecordset.

Parameter:

	Source	SQL-Anweisung
	RecordsetType	DAO.RecordsetTypeEnum (Standard: dbOpenDynaset)
	RecordsetOptions	DAO.RecordsetOptionEnum (Standard: dbSeeChanges)
	LockEdit	DAO.LockTypeEnum (Standard: dbOptimistic)

Rückgabe:: DAO.Recordset