Module de classe pour gérer les textbox dans VBA ACCESS
Bonjour,
J'ai un formulaire ACCESS ou jai plusieurs textbox et je souhaite gérer la saisie de l'utilisateur.
J'ai lu les différents forum et j'ai essayer ceci:
Module de classe : clTextBox
Code:
1
2
3
4
5
6
7
8
| Public WithEvents GrpTB As Access.TextBox
'a As Msforms.TextBox
Private Sub GrpTB_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 47 And Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
MsgBox 1
End Sub |
Et dans mon formulaire j'ai ajouté au chargement ceci:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Dim TBox() As New clTextBox
Private Sub Form_Load()
Dim i As Long
Dim Ctrl As Control
i = 0
For Each Ctrl In Me.Controls
If Ctrl.ControlType = acTextBox Then
i = i + 1
ReDim Preserve TBox(1 To i)
Set TBox(i).GrpTB = Ctrl
End If
Next Ctrl
End Sub |
Malheureusement rien ne se passe quand je fait les saisies.
Aidez moi a comprendre ce qui ne marche pas
Merci d'avance
