hocam 
bu kodda geciciform adları oduğu için sadece bir form ve metin kutusunda kullanabilirirm.benim amacım uygulamadaki tum form ve metin kutularında kullanmak.

If IsNull(Forms(GeciciFormAdi)(GeciciKontrolAdi)) Then Exit Sub
   infield = Forms(GeciciFormAdi)(GeciciKontrolAdi)
   If Len(infield) = 0 Then Exit Sub
   infield = Left(infield, Len(infield) - 1)
   Forms(GeciciFormAdi)(GeciciKontrolAdi) = infield


enter yerine backspace yazınca oluyor.ancak bir kare siliyor ve kapanıyor.  DoCmd.Close yu silince çalışmıyor.

SendKeys "{backspace}"


    Forms!frmKeyboard.SetFocus
DoCmd.Close