'/**
' * Prüft ob ein bestimmtest Access-Objekt existiert
' * @param  <AcObjectType>      Type vom Objekt
' * @param  <String>            Name des gesuchten Objektes
' * @retrun <Boolean>
' * @example    If ObjectExists(acQuery, "vw_temp") then CurrentDb.QueryDefs.Delete("vw_temp")
' */
Public Function objectExists(ByVal iObjectType As AcObjectType, ByVal iObjectName As String) As Boolean
	Dim dummy As Variant
On Error Resume Next
	
	'Je nach Type unterschiedlich prüfen
	Select Case iObjectType
		Case acTable:       Set dummy = CurrentDb.TableDefs(iObjectName)
		Case acQuery:       Set dummy = CurrentDb.QueryDefs(iObjectName)
		Case acForm:        Set dummy = CurrentProject.AllForms(iObjectName)
		Case acReport:      Set dummy = CurrentProject.AllReports(iObjectName)
		Case acModule:      Set dummy = CurrentProject.AllModules(iObjectName)
		Case acMacro:       Set dummy = CurrentProject.AllMacros(iObjectName)
		Case Else:          Err.Raise (-1)
	End Select
	'Wenn kein Fehler aufgetretten ist, exisitert das Objekt
	objectExists = (Err.Number = 0)
	Call dummy.Close
	Set dummy = Nothing
	Err.clear
End Function