PROCEDURE txtBarkod.InteractiveChange yerine ne kullanılmalı ?

Amacım, Barkod okuyucu ile
      Add Object txtBarkod As myTextBox With ;
de barkodu okutmak ve
     PROCEDURE txtBarkod.InteractiveChange
ile dosya içinde barkodun olup olmadığını bulmak.

Ama daha ilk numra girdiğinde 1 sıradaki kayda konumlanıyor.

***   "8 hane girildikten sonra" otomatik olarak kaydın olup olmadığını nasıl kontrol edebilirim ?

Teşekkürler.

--------------------------------------------------------
Add Object txtBarkod As myTextBox With ;
      Top = 2, ;
      left = 60, ;
      Width = 70, ;
      BackColor = 65535, ;
      InputMask = "XXXXXXXX", ;
      Enabled = .t.

   PROCEDURE txtBarkod.InteractiveChange
         with this.parent

           SEEK .txtBarkod.Value
              IF FOUND()
                 .grdListe.Refresh()
                .grdListe.SetFocus()
     .txtBarkod.SetFocus()
               ELSE
               .txtBarkod.Value = SPACE(8)
      .grdListe.Refresh()
               .grdListe.SetFocus()
       .txtBarkod.SetFocus()
               ENDIF    
       endwith
   ENDPROC