suite au post précédent : les 3 lignes de codes ne sont à exécuter qu'une seule fois, en fait il est aussi simple d'aller dans outlis/démarrage et de cocher/décocher la case  ;)

on peut également remplacer
hwndApplication = GetParent(GetParent(GetWindow(FormId.hwnd, GW_HWNDFIRST)))
par
hwndApplication =application.hWndAccessApp

ce qui permet de s'affranchir de l'api getparent

Je rajouterais juste un truc, pour la ligne :
If CurrentDb.Properties("StartUpShowStatusBar") = False Then

si la propriété "afficher barre d'état" n'a jamais été définie dans outils/démarrage, ça plante. il faut rajouter les 3 lignes de codes ci dessous juste avant le if :

Set Prp = CurrentDb.CreateProperty("StartUpShowStatusBar", dbBoolean, False)
CurrentDb.Properties.Append Prp
CurrentDb.Properties("StartUpShowStatusBar") = False

(source http://www.info-3000.com/access/daosaufrecordsets.htm)

sinon ça tourne nickel :)

Pas grave il suffit d'autoriser les touches backspace et ret. arr. comme suit :
Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not Chr(KeyAscii) Like "[0123456789.]" Or Keyascii<>toto Then KeyAscii = 0

où toto est le code du backspace par ex. , euh je me souviens plus le code :) (46 peut être)