+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba Sql Sorgu İçinden Veri Çekme (/konu-vba-sql-sorgu-icinden-veri-cekme.html)
Sayfalar:
1
2
Vba Sql Sorgu İçinden Veri Çekme - yahyamacit - 02/01/2025
Dim Aranan As String
Dim STRSQL As String
STRSQL = "SELECT kitaplar.demirbaşno, kitaplar.sayısı FROM kitaplar " _
& " WHERE (kitaplar.kitapadı LIKE '*' & [Formlar]![KİTAP ARAMA]![MKArama2] & '*') ;"
Aranan = Me.MKArama.Text
Me.MKArama2.Value = Aranan
Me.Liste18.RowSource = STRSQL
Me.Liste18.Requery
metin1=......................Liste18 e aktarılan veriler içinden toplam sayısı alanını metin1 alanına yazdırmak istiyorum. Nasıl bir kod gerekiyor.
RE: Vba Sql Sorgu İçinden Veri Çekme - C*e*l*o*y*c*e - 02/01/2025
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
RE: Vba Sql Sorgu İçinden Veri Çekme - yahyamacit - 02/01/2025
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.
RE: Vba Sql Sorgu İçinden Veri Çekme - atoykan - 02/01/2025
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.
RE: Vba Sql Sorgu İçinden Veri Çekme - yahyamacit - 02/01/2025
ç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ü?
RE: Vba Sql Sorgu İçinden Veri Çekme - atoykan - 02/01/2025
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.