VisualBasic (Access) Denkfehler in Singleton für die BL?

holy_fish · 7. August 2015

Hallo Leute,
muss mich jetzt mal an euch wende da mir folgendes einfach nicht eingeht. Arbeite gerade an einem Projekt welches Steuerberater verwalten soll, schön nach DAO-Pattern.

Jetzt wollte ich für den PL und die BL nur ein Singleton-Modul schreiben.

Code:

Option Compare Database
Option Explicit

Private blStb As IBLSteuerberater
Private blStatus As IBLStatus

Public Function getBLSteuerberaterInstance() As IBLSteuerberater
    If blStb Is Nothing Then
        Set blStb = New BLSteuerberater
    End If
    Set getBLSteuerberaterInstance = blStb
End Function

Public Sub setBLSteuerberaterNothing()
    Set blStb = Nothing
End Sub

Public Function getBLStatusInstance() As IBLStatus
    If blStatus Is Nothing Then
       Set blStatus = New BLStatus
       Set blStatus = New blStatus
    End If
    Set getBLStatusInstance = blStatus
End Function

Public Sub setBLStatusNothing()
    Set blStatus = Nothing
End Sub

Betrachten wir nun Zeile 20 (so sollts sein) und Zeile 21 (so sollts nicht sein), der VBA Editor korrigiert mich automatisch bei Eingabe von Zeile 20 auf Zeile 21

Die Methode für Steuerberater funktioniert ja, nicht aber für Status

Setzt statt BL einfach DAO ein und ihr habt das Singleton-Modul für den PL, auch hier tritt diese Anomalie auf.

Ein Workaround wäre einzelne Singleton-Module für jedes DTO zu schreiben, klar, aber könnts nicht auch so iwie gehen?

Für jede Idee und jeden Vorschlag dankbar.

Greetings,
holyfish

Suche

VisualBasic (Access) Denkfehler in Singleton für die BL?

holy_fish

Lt. Junior Grade

Ähnliche Themen