Pytanie : MS Dojazdowy globalny wydarzenie treser

Mieć dotyczyć MS Dostęp 2003 VBA.
I mieć 336 textboxes na forma.  I chcieć moda double-click wydarzenie w the ten sam moda--i być może w przyszłości inny wydarzenie.  I woleć 336 oddzielny wydarzenie w the forma moduł, jeden dla jeden textbox.  Pobierać próbki kod dla ten typ rozwiązanie, dla Przodować, móc znajdować przy:
http://j-walk.com/ss/excel /tips/tip44.htm

I móc mój dostosowany kod w Dostęp.  Ono kompilować bez błąd--ale the double-click wydarzenie dostawać obchodzić się.  Co być I źle?  Kod:

in klasowy moduł wymieniać clsTextboxGroup
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

'clsTextboxGroup
'-------------------------------------------------------------------
Opcja Porównywać Baza danych
Opcja Wyraźny
Jawny WithEvents TextBoxGroup Jako Access.TextBox

Intymny Okręt podwodny TextboxGroup_DblClick (Odwoływać Jako Integer)
    MsgBox "Cześć od" & TextBoxGroup.Name
    'I stawiać w faktyczny wydarzenie po tym jak I dostać ten działanie
Końcówka Okręt podwodny
'-------------------------------------------------


In the moduł the forma z the 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:

'the forma moduł
Opcja Porównywać Baza danych
Opcja Wyraźny
Ciemnawy MyTextboxes () Jako Nowy clsTextBoxGroup

Intymny Okręt podwodny Form_Load ()
Wywoławczy InitMyTextboxEvents
końcówka okręt podwodny
'---------------------------------------------------
Jawny Okręt podwodny InitMyTextboxEvents ()
Ciemnawy TextboxCount Jako Integer
Ciemnawy ctl Kontrola

'Tworzyć the Textbox Przedmiot
TextboxCount = (0)
Dla FrmWeek ctl W Forma ("frmWeek"). Detail.Controls
    Jeżeli ctl.ControlType = acTextBox Wtedy
        Jeżeli ctl. Imię Jak "*booking*" Wtedy 'zaczepiać o coś tylko the wymagany textbox kontrola
            TextboxCount = TextboxCount + (1)
            ReDim Prezerwa MyTextboxes ((1) TextboxCount)
           Ustalony MyTextboxes (TextboxCount) .TextBoxGroup = ctl
        Kończyć Jeżeli
    Kończyć Jeżeli
Następny ctl

kończyć sub

Odpowiedź : MS Dojazdowy globalny wydarzenie treser

I biedak pracować z klasa wszystko ten dużo, ale I widzieć kilka rzecz.

1. Ty tworzyć zmienna w twój klasowy moduł, TextBoxGroup ale ono wskazywać tworzyć.

Ty potrzebować:

Własność Publiczna Ustalony TextBoxGroup (txt jako Textbox)

   Ustalony TextBoxGroup = txt

Końcówka Okręt podwodny

twój klasa.

2. Dostęp mieć optymalizacja obmurowany który jeżeli ono widzieć "[Wydarzenie Procedura]" dla wydarzenie własność, ono podnosić wydarzenie.  W Ten Sposób ty potrzebować potrzebować.  Ty móc móc w the klasowy Set:


Własność Publiczna Ustalony TextBoxGroup (txt jako Textbox)

    Ustalony TextBoxGroup = txt
    TextBoxGroup.OnDblClick = "[Wydarzenie Procedura]"

Końcówka Okręt podwodny

3. Kopyto Szewskie, jako Helen mówić, I myśleć ty móc szyk jak mówić.  zamiast, ty potrzebować twój klasowy rękojeść pojedynczy tekst pudełko i wtedy kolekcja w the forma szyk kontrola.  I widzieć jeżeli I móc klasa niektóre kod lub klasa kto pracować z klasa o wiele więcej.

JimD.
Inne rozwiązania  
 
programming4us programming4us