Konu: ERROR 1940 hatası alıyorum.
SET FILTER TO kno=.txtKno.Value
komutunu kullanıdığım zaman
ERROR 1940 hatası alıyorum.
kno C 15
txtKno.Value C15
kno dosya icindeki bi kayıt adı.
Bu hatayı neden veriyor olabiir ?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
SET FILTER TO kno=.txtKno.Value
komutunu kullanıdığım zaman
ERROR 1940 hatası alıyorum.
kno C 15
txtKno.Value C15
kno dosya icindeki bi kayıt adı.
Bu hatayı neden veriyor olabiir ?
bu hatayı butona bastıktan sonra alıyorsan (click, dblclick veya valid ) için bu farklı
veya bir combobox, checkbox ın valid inde veya interractivechange inde alıyorsan farklı
sanki burda combobox a tıklıyorsun gibi geldi bana
http://technet.microsoft.com/en-us/query/aa976449
sanki hata filter dan değil
hata butn basıldığında geliyor...
1940 hatasi With...Endwith hatasidir (Expression is not valid outside of WITH/ENDWITH (Error 1940))
SET FILTER TO kno=.txtKno.Value && thisform.txtKno.value olmali
yada
with thisform
SET FILTER TO kno=.txtKno.Value
endwith
******************************************************************
Procedure ppSorgula
******************************************************************
With oForm
IF .txtKno.Value <> SPACE(15)
SET FILTER TO kno=oForm.txtKno.value
* SET FILTER TO ALLTRIM(kno)=ALLTRIM(.txtKno.Value) .AND. cikisfisno=0
GO TOP
.grdListe.Refresh()
.grdListe.SetFocus()
ENDIF
EndWith
EndProc
Şekinde kullanınca düzeldi
Teşekkürler
Hatayi soyluyor zaten:) Isin ozu sana neden set filter kullaniyorsun diyor. Set key to ne gune duruyor. Grid olan yerde Sel Filter kullanmak dert aramak demek. Isin dogrusu kno icin indexinin olmasi:
set order to tag kno
set key to thisform.txtKno.Value
locate
set filter ile yapacaksan yine de, biraz ugrasman lazim ve grid davranisi garip olur:
kno = thisform.txtKno.Value
set filter to kno = "&kno"
locate
Çetin,
Her zaman olduğu gibi haklısın .
Grid,
"kno" ör. "11" varken görmüyor. "KKKA111" şeklinde bir kayıtta sorun yaratmıyor.
Tşekkürler.