Sais pas. J'ai pas de douchette pour tester :
Mais je pense que change n'est pas le meilleur évènement. Je suppose que ta douchette envoie un caractère de validation...
Moi je tenterai l'évènement AfterUpdate, mébon... après comment tu fais l'enchaînement il faut pouvoir tester...
Private Sub TextBox1_AfterUpdate()
If Len(TextBox1) >= 7 Then
WriteRecord
TextBox1 = ""
End If
End Sub
Après il faut créer un contrôle masqué (un command.Button p.e.) qui va renvoyer le focus sur TextBox1 avec l'évènement Enter
Private Sub CommandButton1_Enter()
TextBox1.SetFocus
End Sub
A+