Frage : Mitgliedstaat greifen auf globale Ereigniszufuhr zurück

Dieses betrifft Mitgliedstaat-Zugang, den 2003 VBA.
I 336 area per informazioni auf einer Form haben.  Ich wünsche sie alle auf ein Double-clickereignis auf die gleiche Art und Weise reagieren--und möglicherweise zukünftig zu anderen Ereignissen.  Ich würde, es vorziehen 336 verschiedene Ereignisse nicht im Modul der Form zu verursachen, eins für jede area per informazioni.  Code für diese Art der Lösung, für Excel probieren, kann an gefunden werden:
http://j-walk.com/ss/excel /tips/tip44.htm

I kann meinen angepassten Code nicht an Arbeit im Zugang gelangen.  Es kompiliert ohne Störungen--aber das Double-clickereignis erhält nicht behandelt.  Was sind ich falsch tuend?  Code zum zu folgen:

in ein Kategorienmodul nannte clsTextboxGroup
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

'clsTextboxGroup
'-------------------------------------------------------------------
Wahl vergleichen Datenbank
Wahl ausdrücklich
Allgemeines WithEvents TextBoxGroup als Access.TextBox

Privates VorTextboxGroup_DblClick (Löschen als ganze Zahl)
    MsgBox „hallo von“ u. TextBoxGroup.Name
    'Ich setze mich in substantiellere Ereignisse, nachdem ich diese Funktion erhalte
Enden-Unterseeboot
'-------------------------------------------------


In das Modul der Form mit dem 336 textboxes

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

'das Modul der Form
Wahl vergleichen Datenbank
Wahl ausdrücklich
Schwaches MyTextboxes () als neues clsTextBoxGroup

Privates VorForm_Load ()
Anruf InitMyTextboxEvents
Endenunterseeboot
'---------------------------------------------------
Allgemeines VorInitMyTextboxEvents ()
Schwaches TextboxCount als ganze Zahl
Schwaches ctl als Steuerung

'Die area- per informazionigegenstände verursachen
TextboxCount = 0
Für jedes ctl in den Formen („frmWeek“). Detail.Controls
    Wenn ctl.ControlType = acTextBox dann
        Wenn ctl. Name mögen „*booking*“ dann 'snag nur die erforderlichen area per informazionikontrollen
            TextboxCount = TextboxCount + 1
            ReDim Konserve MyTextboxes (1 zu TextboxCount)
           MyTextboxes (TextboxCount) einstellen .TextBoxGroup = ctl
        Beenden wenn
    Beenden wenn
Folgendes ctl

sub

 beenden

Antwort : Mitgliedstaat greifen auf globale Ereigniszufuhr zurück

Ich habe nicht mit Kategorien ganz gearbeitet, denen viel, aber ich ein paar Sachen sehen.

1. Sie haben eine Variable in Ihrem Kategorienmodul, TextBoxGroup verursacht, aber es zeigt auf nichts.

Sie müssen hinzufügen:

Staatseigentum gesetztes TextBoxGroup (txt als area per informazioni)

   TextBoxGroup = txt einstellen

Unterseeboot beenden

zu Ihrer Kategorie.

2. Zugang hat einen Optimierung Built-in, der, wenn es „[Ereignis-Verfahren]“ nicht für ein Ereigniseigentum sieht, es nicht ein Ereignis aufwirft.  So müssen Sie das einstellen.  Sie können dies in der eingestellten Kategorie tun:


Staatseigentum gesetztes TextBoxGroup (txt als area per informazioni)

    TextBoxGroup = txt einstellen
    TextBoxGroup.OnDblClick = „[Ereignis-Verfahren]“

Enden-Unterseeboot

3. Dauern, wie Helen gesagt hat, ich denken nicht, dass Sie eine Reihe wie das verwenden können.  stattdessen müssen Sie Ihre Kategorie einen einzelnen Textkasten behandeln und eine Ansammlung in der Form dann benutzen lassen, um eine Reihe Kontrollen aufzubauen.  Ich sehe, wenn ich irgendeinen Code oder jemand nicht oben graben kann, die mit Kategorien viel mehr gearbeitet hat.

JimD.
Weitere Lösungen  
 
programming4us programming4us