AccessTr.neT
Sorgu Yardımı - Baskı Önizleme

+- 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ığı: Sorgu Yardımı (/konu-sorgu-yardimi--89818.html)

Sorgu Yardımı - husem - 27/06/2022

Merhabalar,

aşağıdaki sorguda Konik sonucunu almak istiyorum,
hata veriyor,
yanlışım nedir acaba?


 RsKonik.Open "SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik FROM (PARTILENENLER LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO HAVING (PARTILENENLER_DURUM.DURUMU<>'sevk edildi' And (PARTILENENLER_DURUM.DURUMU<>'paket')", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        For k = 1 To RsKonik.RecordCount

            

            MsgBox RsKonik("Konik")

        

        RsKonik.MoveNext

        Next k

        RsKonik.Close


RE: Sorgu Yardımı - berduş - 27/06/2022 

"SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik

FROM (PARTILENENLER_DURUM right JOIN PARTILENENLER ON PARTILENENLER_DURUM.PARTI_NO = PARTILENENLER.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO

WHERE (((PARTILENENLER_DURUM.DURUMU)<>'sevk edildi' And (PARTILENENLER_DURUM.DURUMU)<>'paket'))";
şeklinde dener misiniz?
bir de sorguyu önce accesse yaptırmaya çalışın, orada sonuç doğru çıkarsa VBA'da yapmaya çalışın

RE: Sorgu Yardımı - husem - 27/06/2022

sorgu sonucu zaten doğru çıkıyordu,
benim amacım sorgu sonucunu Vba dan metin kutusuna aktarmak

RE: Sorgu Yardımı - husem - 27/06/2022

aşağıdaki şekilde çözdüm,

Dim rs As New ADODB.Recordset
rs.Open "SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik FROM (PARTILENENLER LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO HAVING (((PARTILENENLER_DURUM.DURUMU)<>'sevk edildi') And ((PARTILENENLER_DURUM.DURUMU)<>'paket'))", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then

MsgBox rs("Konik")


Else
End If
rs.Close