fonksiyon sorunu

[ali çetin]

benim 6 adet fonksiyonum var bunlar kat sat yat hat bat ve tat şimdi ben istiyorum ki adodc min yani benim projemdeki adı ana competentinin süzüldükten sonra bana kalan kayıt sayısına göre bunlardan sadece bitanesini çalıştırmasını istiyorum çünki her fonksiyon sonunda başka bi formu açıyo benim sorunum ise command 4 tıklandığı zaman benim bütün fonksiyonlarım çalışıyo ve bütün formlarım ekrana doluşuyo kodlarım aşağıda acaba hata nerdedir biraz karışık oldu heralde ama kusura bakmayın


If ana.Recordset.RecordCount <= 10 Then kat
If 11 < ana.Recordset.RecordCount <= 20 Then sat
If 21 < ana.Recordset.RecordCount <= 30 Then yat
If 31 < ana.Recordset.RecordCount <= 40 Then hat
If 41 < ana.Recordset.RecordCount < 50 Then bat
If 51 <= ana.Recordset.RecordCount Then tat

[Revlis]

If ana.Recordset.RecordCount <= 10 Then kat
If 11 < ana.Recordset.RecordCount <= 20 Then sat
If 21 < ana.Recordset.RecordCount <= 30 Then yat
If 31 < ana.Recordset.RecordCount <= 40 Then hat
If 41 < ana.Recordset.RecordCount < 50 Then bat
If 51 <= ana.Recordset.RecordCount Then tat

Bu şekilde karşılaştırma yaparsan ve sayı 3 olursa 2.satırın yorumu şöyle olur :

(11<3) = FALSE(0)
(FALSE(0)<=20) = TRUE(1) 

doğru hali :

If 11 < ana.Recordset.RecordCount  AND  ana.Recordset.RecordCount <= 20 Then sat

olmalı; bu kodun 3 için yorumu :

(11<3) = FALSE
AND
(3<=20) = TRUE
FALSE AND TRUE = FALSE 

Bu gibi durumlarda SELECT CASE kullanman daha doğru olacaktır.

[ali çetin]

sağolun select case ile sorunum çözüldü kusura bakmayın biraz acemiyim bazen boş sorular soruyo olabilirim