Discussion :

[ecarbill]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ecarbill]

J'ai oublié de joindre mon fichier

BaseBudget.rar

Merci

[ecarbill]

Bonjour à tous, donnez moi un coup de main SVP

excellente journée à vous