Questione : Il ms accede all'alimentatore di evento globale

Ciò interessa l'accesso che del ms 2003 VBA.
I hanno 336 caselle di testo su una forma.  Le voglio tutte rispondere ad un evento di double-click allo stesso modo--e forse in avvenire ad altri eventi.  Preferirei non generare 336 eventi separati nel modulo della forma, uno per ogni casella di testo.  Provare il codice per questo tipo di soluzione, per Excel, potuto essere trovato a: il rel= " nofollow " " del _blank " " del target= " di http://j-walk.com/ss/excel/tips/tip44.htm del href= del
/tips/tip44.htm

I di http://j-walk.com/ss/excel non può ottenere il mio codice adattato a lavoro nell'accesso.  Compila senza errori--ma l'evento di double-click non ottiene trattato.  Che cosa sono io che faccio male?  Codice da seguire: il

in un modulo del codice categoria ha chiamato il class= " lineNumbers " >

1 del >
'clsTextboxGroup
'-------------------------------------------------------------------
L'opzione confronta la base di dati
Opzione esplicita
WithEvents pubblico TextBoxGroup come Access.TextBox

TextboxGroup_DblClick secondario riservato (annullamento come numero intero)
    MsgBox “ciao da„ & TextBoxGroup.Name
    'Metterò negli eventi più sostanziali dopo che ottengo questo funzionamento
Sommergibile dell'estremità
'-------------------------------------------------class= >

In di 
1 del >

'il modulo della forma
L'opzione confronta la base di dati
Opzione esplicita
MyTextboxes fioco () come nuovo clsTextBoxGroup

Form_Load secondario riservato ()
Chiamata InitMyTextboxEvents
sommergibile dell'estremità
'---------------------------------------------------
InitMyTextboxEvents secondario pubblico ()
TextboxCount fioco come numero intero
Ctl fioco come controllo

'Generare gli oggetti della casella di testo
TextboxCount = 0
Per ogni ctl nelle forme (“frmWeek„). Detail.Controls
    Se ctl.ControlType = acTextBox allora
        Se ctl. Il nome gradice “il *booking*„ allora 'snag soltanto i comandi required della casella di testo
            TextboxCount = TextboxCount + 1
            Conserva MyTextboxes (1 di ReDim a TextboxCount)
           Regolare MyTextboxes (TextboxCount) .TextBoxGroup = ctl
        Concluder se
    Concluder se
Ctl seguente

concludere il class= >
 di sub

class= del 

Risposta : Il ms accede all'alimentatore di evento globale

Non ho lavorato con i codici categoria interamente che molto, ma io vede una coppia di cose.

1. Avete generato una variabile in vostro modulo del codice categoria, TextBoxGroup ma non indica qualche cosa.

Dovete aggiungere:

Proprietà pubblica TextBoxGroup stabilito (txt come casella di testo)

   Regolare TextBoxGroup = il txt

Concludere il sommergibile

al vostro codice categoria.

2. L'accesso ha un built-in di ottimizzazione che se non vede “[procedura di evento]„ per una proprietà di evento, esso non solleva un evento.  Così dovete regolare quello.  Potete fare questo nel codice categoria regolato:

Proprietà pubblica TextBoxGroup stabilito (txt come casella di testo)

    Regolare TextBoxGroup = il txt
    TextBoxGroup.OnDblClick = “[procedura di evento]„

Sommergibile dell'estremità

3. Durare, come Helen ha detto, io non pensano che possiate usare un allineamento come quello.  invece, dovete fare il vostro utilizzare codice categoria trattare una singola casella di testo ed allora una collezione nella forma per sviluppare un allineamento dei comandi.  Vederò se non posso scavare in su un certo codice o qualcuno che hanno lavorato con i codici categoria molto più.

JimD.