Forums Neueste Beiträge
 

Eventhandler für den Detailbereich im Klassenmodul

02/02/2010 - 10:55 von Fred Weber | Report spam
Hallo NG,

gerade mache ich erste Gehversuche mit Klassenmodulen und versuche, einszu
schreiben, mit dem ich Formularereignisse steuern kann.
Ich scheitere aber an der korrekten Ansprache der Detailbereich-Events.
Konkret will ich ein Detailbereich-MouseMove- und ein
Detailbereich-OnClick-Ereignis dazufügen.
Der erste Teil scheint ok zu sein (s. Codefragment unten, die Msgbox war nur
zum Test, ob wirklich der Detailbereich adressiert wird):

...
With m_Form
'MsgBox .Section(0).Name
.Section(0).OnMouseMove = "[Event Procedure]"
.Section(0).OnClick = "[Event Procedure]"
End With
...


Aber wie müssen die Ereignisprozeduren für Maus und Klick heissen (betitelt
werden)?
Habe einige Varianten ausprobiert, bisher alle ohne Erfolg.
Wahrscheinlich fehlt nur eine Kleinigkeit...

Private Sub m_Detail_Click()
'klappt nicht
End Sub

Private Sub Detailbereich_Click()
'klappt nicht
End Sub

Private Sub m_Form_detail_Click()
'klappt nicht
End Sub


Danke für Eure Hilfe!
Gruß
Fred




__________ Hinweis von ESET NOD32 Antivirus, Signaturdatenbank-Version 4827 (20100202) __________

E-Mail wurde geprüft mit ESET NOD32 Antivirus.

http://www.eset.com
 

Lesen sie die antworten

#1 Josef Poetzl
02/02/2010 - 11:10 | Warnen spam
Hallo!

Fred Weber schrieb:
gerade mache ich erste Gehversuche mit Klassenmodulen und versuche, einszu
schreiben, mit dem ich Formularereignisse steuern kann.
Ich scheitere aber an der korrekten Ansprache der Detailbereich-Events.
Konkret will ich ein Detailbereich-MouseMove- und ein
Detailbereich-OnClick-Ereignis dazufügen.
Der erste Teil scheint ok zu sein (s. Codefragment unten, die Msgbox war nur
zum Test, ob wirklich der Detailbereich adressiert wird):

...
With m_Form
'MsgBox .Section(0).Name
.Section(0).OnMouseMove = "[Event Procedure]"
.Section(0).OnClick = "[Event Procedure]"
End With
...



Wenn du auf die Ereignisse des Detailbereichs reagieren willst, dann
musst du auch davon eine Variable mit WithEvents deklarieren

Deklaration:
| Private WithEvents m_DetailSection As Section

Zuweisung:
| set m_DetailSection = m_Form.Section(AcSection.acDetail)

Reagieren auf das Click-Ereignis:
| private sub m_DetailSection_Click()
| ...
| end sub


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen