RecordCount problemi hk.

[tamer42]

Merhabalar,

Form üzerindeki;

dim db As Database
dim MyRs As Recordset
dim myRsTemp As Recordset

Set db = CurrentDb()

St = Me.TxtStNo.Value

If Not IsNull(Me![TxtStNo]) Then

    Set MyRs = db.OpenRecordset("Select * from [PerTakip] where ([St_No]='" & St & "')")

Set myRsTemp = db.OpenRecordset("PerTakip")

MsgBox (myRsTemp.RecordCount)

end if

.........
.........

bu kodlarda;

(myRsTemp.RecordCount)

doğru sayım yaparken,

(MyRs.RecordCount)

kaç kayıt olursa (0' dan büyük) her zaman "1" değerini veriyor.
Yani sorgu sonucuna uyan 1 kayıt olsada "1" , 3 kayıt olsada "1" , 5 kayıt olsada hep "1" sonucunu veriyor.

Neden olabilir?
İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Kayıtların sayılamadığı veya curser ayarının izin vermediği durumlarda kayıt varsa -1 yoksa 0 değerini alır.

İyi çalışmalar

 

[tamer42]

Sn Modalı, Kayıtları saymak için Ne yapabilirim?

 

[Zeki Gürsoy]

Cursoru en sona taşıyıp gerçek kayıt sayısını değişkene atarsınız.

with myrs
  .movelast
say=myrs.recordcount
  .movefirst
end with

msgbox say

 

[tamer42]

Teşekkürler....