Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Sorgu Yardımı

husem
husem
Access Cevaplanmış Soruları
3
276

Sorgu Yardımı

Çözüldü #1
husem
Aktif Üye
husem
Bul
Aktif Üye
Adı Soyadı: Hü.... Do....
Yaşı: 44
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 25/02/2025,22:53
Yorumları: 515
Konuları: 122
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 54
Mesleğiniz: ....
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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Son Düzenleme: 27/06/2022, 22:17, Düzenleyen: husem.
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:54
Yorumları: 8.548
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051 
"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
Cevapla
#3
husem
Aktif Üye
husem
Bul
Aktif Üye
Adı Soyadı: Hü.... Do....
Yaşı: 44
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 25/02/2025,22:53
Yorumları: 515
Konuları: 122
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 54
Mesleğiniz: ....
sorgu sonucu zaten doğru çıkıyordu,
benim amacım sorgu sonucunu Vba dan metin kutusuna aktarmak
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#4
husem
Aktif Üye
husem
Bul
Aktif Üye
Adı Soyadı: Hü.... Do....
Yaşı: 44
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 25/02/2025,22:53
Yorumları: 515
Konuları: 122
Kayıt Tarihi: 08/03/2009
Teşekkür Puanı: 54
Mesleğiniz: ....
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
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task