Property-Deklarationen auf die Schnelle

Wer öfters Klassen in Access programmiert, der wird sich möglicherweise schon über das ewige Anlegen der Properties geärgert haben. Die nachfolgende Funktion verlangt lediglich nach drei Parametern und wirft dann die beiden Standardkonstrukte raus. Die Zeitersparnis bei häufiger Anwendung ist immens.

Beispieldatenbank

Die nachfolgenden Schritte können mit der Funktion CreateProperties im Modul mdlTools der Beispieldatenbank AccessSQLDotNet.mdb nachvollzogen werden.

Property-Deklarationen per Funktion erstellen

Die nachfolgende Funktion erwartet den Namen der Eigenschaft ohne Präfix, den Datentyp sowie das Kürzel, dass dem Eigenschaftsnamen vorangestellt werden soll. Ein Beispielaufruf sieht folgendermaßen aus:

CreateProperties "SampleID", "String", "str"

Heraus kommt dann - im Testfenster angewendet - folgendes:

Public Property Get SampleID() AS String

SampleID = mSampleID

End Property

Public Property Let SampleID(strSampleID)

mSampleID = strSampleID

End Property

Verantwortlich dafür ist die folgende, recht einfache Funktion:

Public Function CreateProperties(strPropertyname As String, strType As String, strTypeShort As String)

Debug.Print "Public Property Get " & strPropertyname & "() AS " & strType

Debug.Print " " & strPropertyname & " = m" & strPropertyname

Debug.Print "End Property"

Debug.Print

Debug.Print "Public Property Let " & strPropertyname & "(" & strTypeShort & strPropertyname & ")"

Debug.Print " m" & strPropertyname & " = " & strTypeShort & strPropertyname

Debug.Print "End Property"

End Function