Вопрос : MS достигает глобального укротителя случая

Это относится доступ MS 2003, котор VBA.
I имеют 336 textboxes на форме.  Я хочу их все ответить к случаю double-click в таком же способе--и возможно в будущем к другим случаям.  Я предпочитал бы не создать 336 отдельно случаев в модуле формы, одном для каждого textbox.  Попробуйте Кодего для этого типа разрешения, для Эксел, смогите быть о на: rel= " nofollow " " _blank " " target= " http://j-walk.com/ss/excel/tips/tip44.htm href=
/tips/tip44.htm

I http://j-walk.com/ss/excel не может получить мое приспособленное Кодего к работе в доступе.  Оно составляет без ошибок--но случай double-click не получает отрегулированным.  Будут мной делая неправильно?  Кодий, котор нужно последовать за:

in модуль типа назвало class= " lineNumbers " >

1 >
'clsTextboxGroup
'-------------------------------------------------------------------
Вариант сравнивает базу данных
Вариант точный
Общественное WithEvents TextBoxGroup как Access.TextBox

Приватное Sub TextboxGroup_DblClick (Cancel как интежер)
    MsgBox «здравствулте! от» & TextBoxGroup.Name
    'Я положу в более субстантивные случаи после того как я получу эту деятельность
Подводная лодка конца
'-------------------------------------------------class= " ясное " >

In 
1 >

'модуль формы
Вариант сравнивает базу данных
Вариант точный
Тусклое MyTextboxes () как новое clsTextBoxGroup

Приватное Sub Form_Load ()
Звонок InitMyTextboxEvents
подводная лодка конца
'---------------------------------------------------
Общественное Sub InitMyTextboxEvents ()
Тусклое TextboxCount как интежер
Тусклое ctl как управление

'Создайте предметы Textbox
TextboxCount = 0
Для каждого ctl в формах («frmWeek»). Detail.Controls
    Если ctl.ControlType = acTextBox после этого
        Если ctl. Имя любит «*booking*» после этого 'snag только необходимый управления textbox
            TextboxCount = TextboxCount + 1
            Заповедник MyTextboxes ReDim (1 к TextboxCount)
           Установите MyTextboxes (TextboxCount) .TextBoxGroup = ctl
        Закончитесь если
    Закончитесь если
Следующее ctl

закончите class= " ясное " >
 sub

class= 

Ответ : MS достигает глобального укротителя случая

Бедный человек iий работал с типами совсем много, но мне видит несколько вещи.

1. Вы создавали перемеююый в вашем модуле типа, TextBoxGroup но они не указывают к что-нибыдь.

Вам нужно добавить:

Общественное имущество установленное TextBoxGroup (txt как Textbox)

   Установите TextBoxGroup = txt

Закончите подводную лодку

к вашему типу.

2. Доступ имеет разъем оптимизирования если он не видит «[процедура по случая]» для свойства случая, то оно не поднимает случай.  Так вам нужно установить то.  Вы можете сделать это в установленном типе:

Общественное имущество установленное TextBoxGroup (txt как Textbox)

    Установите TextBoxGroup = txt
    TextBoxGroup.OnDblClick = «[процедура по случая]»

Подводная лодка конца

3. Продолжайте, по мере того как Хелен говорило, я не думайте вы может использовать блок как то.  вместо, вам нужно иметь ваш тип отрегулировать одиночную коробку текста и после этого использовать собрание в форме для того чтобы построить блок управления.  Я увижу если я не могу выкопать вверх некоторое Кодего или кто-то, то работали с типами намного больше.

JimD.