Vba Sql Sorgu İçinden Veri Çekme

yahyamacit

Access Cevaplanmış Soruları

863

02/01/2025, 21:00 #2

Uzman

C*e*l*o*y*c*e

Bul

Uzman

Adı Soyadı: Ce.... Ya....

Konum: Ankara

Ofis Versiyonu: Ofis 2010 32 Bit

Son Oturumu: Bugün,14:49

Yorumları: 3.599

Konuları: 78

Kayıt Tarihi: 29/10/2008

Teşekkür Puanı: 1.050

Mesleğiniz: Yazılım

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

Cevapla