Access SQL
[VBA] Mesaj Kutusunda Tüm Verilerin Görülmesi - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: [VBA] Mesaj Kutusunda Tüm Verilerin Görülmesi (/Konu-Mesaj-Kutusunda-Tum-Verilerin-Gorulmesi)

Mesaj kutusunda tüm verilerin görülmesi - tamersyilmaz - 10-10-2022

Merhabalar Move next ile bir tablodan veya sorgudan veri çekiyorum ve bu veriyi msgbox da görüntülüyorum fakat her veri için ayrı bir msgbox açılıyor, tüm verileri tek bir msgbox da gör me şansım var mıdır ?

RE: Mesaj Kutusunda Tüm Verilerin Görülmesi - halily - 10-10-2022

eğer recordsetlee alıyorsanız rs.getsitring() benzeri bir kod ile tüm verileri alabilirsiniz

RE: Mesaj Kutusunda Tüm Verilerin Görülmesi - tamersyilmaz - 10-10-2022

Yardımlarınız için teşekkür ederim. Yabancı bir siteden çevirerek sorunumu çözdüm. 
Visual Basic
  1. Dim rstObj As DAO.Recordset, msgStr As String
  2.     Set rstObj = CurrentDb.OpenRecordset("Kullanacagımız sorgu adı")
  3.     Do While Not rstObj.EOF
  4.         msgStr = msgStr & rstObj.Fields("kullanacagımız sorgudaki alan adı") & vbCrLf
  5.         rstObj.MoveNext
  6.     Loop
  7.     Call MsgBox(msgStr)
  8.     Set rstObj = Nothing




RE: Mesaj Kutusunda Tüm Verilerin Görülmesi - halily - 10-10-2022

aşağıdaki kodu dener misiniz?
döngü olmadığından daha hızlı olabilir
SQL
  1. SET RS = CurrentProject.Connection.EXECUTE("select * from  tablo")
  2.     msgStr = RS.GetString
  3.      MsgBox msgStr
  4.     SET RS = Nothing




RE: Mesaj Kutusunda Tüm Verilerin Görülmesi - tamersyilmaz - 10-10-2022

Deneyip , geri dönüş yapacam.