Question : Traiteur d'événement global de MS Access

Ceci concerne le MS Access que 2003 VBA.
I ont 336 boîtes à textes sur une forme.  Je veux qu'elles toutes répondent à un événement de double-click de la même mode--et peut-être à l'avenir à d'autres événements.  Je préférerais ne pas créer 336 événements séparés dans le module de la forme, un pour chaque boîte à textes.  Prélever le code pour ce type de solution, pour Excel, peut être trouvé à : le rel= " nofollow " de " _blank " de target= de " http://j-walk.com/ss/excel/tips/tip44.htm " de href= du
le /tips/tip44.htm

I de http://j-walk.com/ss/excel ne peut pas obtenir mon code adapté au travail dans l'accès.  Il compile sans erreurs--mais l'événement de double-click n'obtient pas manipulé.  Quel suis-je faisant mal ?  Code à suivre : le

in un module de classe a appelé le class= les " lineNumbers " >

1 de >
'clsTextboxGroup
'-------------------------------------------------------------------
L'option comparent la base de données
Option explicite
WithEvents public TextBoxGroup comme Access.TextBox

TextboxGroup_DblClick secondaire privé (annulation comme nombre entier)
    MsgBox « bonjour de » et TextBoxGroup.Name
    'Je mettrai dans des événements plus substantifs après que j'obtienne ce fonctionnement
Sous-marin d'extrémité
'-------------------------------------------------class= >


In de 
1 de >

'le module de la forme
L'option comparent la base de données
Option explicite
Faible MyTextboxes () en tant que nouveau clsTextBoxGroup

Form_Load secondaire privé ()
Appel InitMyTextboxEvents
sous-marin d'extrémité
'---------------------------------------------------
InitMyTextboxEvents secondaire public ()
Faible TextboxCount comme nombre entier
Faible ctl comme commande

'Créer les objets de boîte à textes
TextboxCount = 0
Pour chaque ctl sous les formes (« frmWeek »). Detail.Controls
    Si ctl.ControlType = puis acTextBox
        Si ctl. Le nom aiment le « *booking* » alors 'snag seulement les commandes required de boîte à textes
            TextboxCount = TextboxCount + 1
            Conserve MyTextboxes (1 de ReDim à TextboxCount)
           Placer MyTextboxes (TextboxCount) .TextBoxGroup = ctl
        Finir si
    Finir si
Prochain ctl

finir le class= >

 de sub

class= de 

Réponse : Traiteur d'événement global de MS Access

Je n'ai pas travaillé avec les classes tout que beaucoup, mais moi voient deux ou trois choses.

1. Vous avez créé une variable dans votre module de classe, TextBoxGroup mais il n'indique pas n'importe quoi.

Vous devez ajouter :

Propriété publique TextBoxGroup réglé (txt comme boîte à textes)

   Placer TextBoxGroup = txt

Finir le sous-marin

à votre classe.

2. L'accès a une fonction intégrée d'optimisation qui si elle ne voit pas « [procédé d'événement] » pour une propriété d'événement, il ne soulève pas un événement.  Ainsi vous devez placer cela.  Vous pouvez faire ceci dans la classe réglée :

Propriété publique TextBoxGroup réglé (txt comme boîte à textes)

    Placer TextBoxGroup = txt
    TextBoxGroup.OnDblClick = « [procédé d'événement] »

Sous-marin d'extrémité

3. Durer, comme Helen a dit, je ne pensent pas que vous pouvez employer une rangée comme cela.  au lieu de cela, vous devez faire puis employer votre classe manipuler une boîte simple des textes et une collection sous la forme pour établir un choix de commandes.  Je verrai si je ne peux pas creuser vers le haut un certain code ou quelqu'un qui ont fonctionné avec des classes beaucoup plus.

JimD.