Formularereignis tritt nicht ein / Formular mehrmals aufrufe

Moderator: ModerationP

Re: Formularereignis tritt nicht ein / Formular mehrmals auf

Beitragvon ClausM » 16. Mär 2019, 19:00

@mmarkus

Darüber vielleicht noch mal nachdenken.
Du hast ja für jedes Control eine eigene Event Prozedur.
Die ist unnötig.

Ich nehme an, die Antwort lautet über ein Klassenmodul.
Habe so etwas noch nie gemacht, bzw. mit Klassenmodulen gearbeitet.

Habe jetzt ein Klassenmodul erstellt "clsControlHandler_sfrm_Kalender"
Code: Alles auswählen
Public WithEvents txtTag As Access.TextBox

Private Sub Class_Initialize()
Static colTage As New Collection
colTage.Add Me
End Sub

Private Sub txtTag_Click()
Debug.Print Me.txtTag.Name
End Sub


Im Kalender
Code: Alles auswählen
Private xxx As clsControlHandler_sfrm_Kalender
Private Sub Form_Load()
    Dim ctrStE As Control

    For Each ctrStE In Controls
        If TypeOf ctrStE Is TextBox And Left(ctrStE.Name, 6) = "txtTag" Then
            Set xxx = New clsControlHandler_sfrm_Kalender
            Set xxx.txtTag = ctrStE
        End If
    Next
End Sub


Aber wie schleife ich das Click-Ereignis im Kalender jetzt weiter zum Klassenmodul ohne für jedes Control wieder auf das Click-Ereignis zu reagiern?
ClausM
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 31
Registriert: 16. Mär 2019, 10:28

Re: Formularereignis tritt nicht ein / Formular mehrmals auf

Beitragvon mmarkus » 16. Mär 2019, 20:46

Einen Eventmanager würde ich hier nie einsetzen.
Die setze ich nur dann ein, wenn erst zur Laufzeit klar ist, welche Events benötigt werden.
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1403
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich

Re: Formularereignis tritt nicht ein / Formular mehrmals auf

Beitragvon ClausM » 17. Mär 2019, 17:10

@mmarkus
Das Leben kann so einfach sein. :evil:
Tja, die weitaus schnellere Lösung.
Vielen Dank!
ClausM
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 31
Registriert: 16. Mär 2019, 10:28

Vorherige

Zurück zu Access Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 6 Gäste