Liste18 e aktarılan veriler içinden toplam sayısı alanını metin1 alanına yazdırmak istiyorum. Nasıl bir kod gerekiyor.

Dim Aranan As String
Dim STRSQL As String
Dim toplamSayisi As Long
Dim rs As DAO.Recordset

' Arama kriteri oluştur
Aranan = Me.MKArama.Text
Me.MKArama2.Value = Aranan

' Sql sorgusunu oluştur
STRSQL = "SELECT kitaplar.demirbaşno, kitaplar.sayısı FROM kitaplar " _
& " WHERE (kitaplar.kitapadı LIKE '*' & [Formlar]![KİTAP ARAMA]![MKArama2] & '*') ;"

' Liste18 kontrolüne verileri ata
Me.Liste18.RowSource = STRSQL
Me.Liste18.Requery

' Veritabanı kaydını aç ve toplam sayısı hesapla
Set rs = CurrentDb.OpenRecordset(STRSQL)
toplamSayisi = 0

If Not rs.EOF Then
rs.MoveFirst
Do While Not rs.EOF
toplamSayisi = toplamSayisi + rs!sayısı
rs.MoveNext
Loop
End If

' Toplam sayısı değerini metin1 alanına yazdır
Me.metin1.Value = toplamSayisi

' Recordset'i kapat
rs.Close
Set rs = Nothing

Cevabınız için çok teşekkür ediyorum. Bu forum bana Access ile ilgili çok şeyler öğretti. DAO kütüphanesini eklemek istediğimde "name conflicts with existing module project or object library hatası" hatası alıyorum. bunun sebebi nedir.

name conflicts ad çakışması demektir. Kullandığınız prosedür, yordam, fonksiyon, değişken, denetim, referans vb. adları zaten mevcutken yeniden kullanmak istediğinizde karşılaşırsınız. Örneğin Sub Derleme adıyla bir yordam kaydettiyseniz yeniden Sub Derleme adı ile başka bir yordam kaydetmek istediğinizde bu hatayı alırsınız. Aynı anda DOA ve ADO kullanmak istediğiniz durumlarda da DAO ve ADO nesnelerini tam tanımlamadığınızda benzer hatayı alırsınız.

çalışma dosyasındaki tüm tabloları, sorguları, formları, raporları, makrolar ve modülleri sildim fakat yine aynı hatayı alıyorum. Yeni bir veritabanı oluşturduğumda hata vermiyor. Bu dosya ile ilgili bir sorun var galiba.

---

Ykarıdaki kodu ADO ile yazsak sorun çözülür mü?

Sıkıştır / Onar seçeneği ile düzeltmeyi deneyin aksi halinde yeniden oluşturun, db zarar görmüş gibi duruyor anlattıklarınızdan.