PDA

Vollständige Version anzeigen : Überprüfen, ob Formular existiert


Thorsten
28.11.2000, 15:52
Hallo,

weiß jemand, wie ich per VBA überprüfen kann, ob ein Formular überhaupt existiert ? Ich kenne nur die Möglichkeit, geöffnete Formulare zu überprüfen.

Vielen Dank !

Mike
28.11.2000, 16:17
Hallo Thorsten,
ja, es gibt eine Funktion:
Function aekExistObject(Objektname As String, Typ As Integer) As Boolean
'Typ: acTable, acQuery, acForm, acReport, acMacro, acModule

Dim db As Database
Dim R As Recordset
Dim ObjTyp As Integer

On Error GoTo Err

aekExistObject = False

Select Case Typ
Case acTable: ObjTyp = 1
Case acQuery: ObjTyp = 5
Case acForm: ObjTyp = -32768
Case acReport: ObjTyp = -32764
Case acMacro: ObjTyp = -32766
Case acModule: ObjTyp = -32761
End Select

Set db = CurrentDb()
Set R = db.OpenRecordset("SELECT Name,Type FROM MSysObjects WHERE Name='" & Objektname & "' and Type = " & ObjTyp)

aekExistObject = IIf(R.RecordCount = 0, False, True)

Exit Function

Err:
MsgBox Err.Description
Exit Function

End FunctionMike