• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çapraz Sorgu (Metin Olarak Sonuç Versin)

Katılım
19 Şubat 2006
Mesajlar
73
Excel Vers. ve Dili
exel
Slm Arkadaşlar

Ekte bir örnek hazırladım örnekte 2 Adet tablo ve 1 adet çapraz sorgu bulunmakta birde istenilen çapraz sorgu sonucunun nasıl olacağını görmek adına bir adet daha tablo ekledim.

yapacağım bir çapraz sorgu sonucunda normal sonuç olarak aldığım alanların sutunlar halinde değilde bir alan içinde ve metin olarak yazılmasını istiyorum

Örneğin
Adı Soyadı Cari Fatura Çek Toplam

Ahmet 10 25 10 45

Bu Şekilde Olan Çapraz Sorgunun Aşağıdaki şekilde sonuç vermesini istiyorum

Adı Soyadı Sonuc(Metin Olarak)
Ahmet Cari 10, Fatura 25, Çek 10, Toplam 45


Yardım edecek arkadaşlara şimdiden teşekkür ediyorum

bunu istememin sebebi ise SMS olarak gönderme yapacağım için SMS programı bu şekilde bir veriyi kabul etdiğindendir.
 
Eğer Cari Hesap,Fatura ve Çek gibi işlem türleriniz sabitse
ekteki gibi ikili sorgu işinizi çözer.

Yok sabit değil yeni veya farklı işlem türleri olabilir, onları otomatik olarak
görmesini istiyorum derseniz, kod yazıp geçici tablo oluşturarak farklı çözümler bulunabilir.
 
Sayın seruz

öncelikle ilginiz için teşekkür ediyorum

çapraz sorgu olmasının sebebi zaten bu değerlerin değişken olmasından kaynaklanıyor yani çok sık değişmesede ilaveler oluyor onun için sorguyu otomatik hale getirmem gerekiyorki kullanıcı istediğini yazabilsin ve bu yazdığına görede SMS raporu alabilsin istiyorum

mümkünse bahsettiğiniz farklı çözümleri yapabilirmisiniz.
 
Sayın smmmustafa,

Kusura bakmayın örnekleri karıştırdım.
 
sayın smmustafa
tabildot.rar formda mevcut. İncelediğinde problemini kolaylıkla çözeceksin.
alanları birleştirmek ve metin gibi göstermek için aşğıdaki kod benzerini kullanabilirsin
ilk alan=rs(0)&" "&rs(1)&" "&rs(2)&" "&rs(3)
 
Madem ki SMS göndereceksiniz neden rapor kullanmıyorsunuz?
 
Sayın Modalı

Benim için hiç farketmiyor rapor veya sorgu şeklinde çıkması

sonuçta ben çıkan veriyi excel atıp ordanda SMS programı tarafından okutturuyorum ve çoğu SMS programıda excel göre ayarlamış kendini ama istediği şartlar var tabi onun için o şartlara uygun bir şekilde aktarım yapmak istiyorum

Verilerimin Şekli
ahmet KDV 15
ahmet Stopaj 20
ahmet SSK 25


istenilen format ise
adısoyadı * cepno * Mesaj Metni
ahmet * 532000000 * KDV 15,00 Stopaj 20,00 SSK 25, Toplam 60,00

şimdi bu metini yukarıdaki tablodan (tabloyu değiştirme şansım yok başka hesaplarada bağlı çünkü) alacak ve aşağıdaki şekile çevirecek

rapor veya sorgu farketmiyor önemli olan tablodaki veriyi istediğim şekle çevirmesidir.


Sayın Modalı Sizin çözeceğinizi düşünüyorum. yardımlarınız için şimdiden teşekkür ederim.
 
Sayın Modalı

Yardımlarınızı bekliyorum. :(
 
Sayın smmmustafa,

Bir de excele aktarım çıktı. O zaman hiç sorgularla falan uğraşmamak gerekir. Tablodan al veriyi ilgili excel hücresine ata.

İyi çalışmalar
 
Merhabalar;

Bunun için basit bir kod yeterli gibi.. Bir module kaydedin ve kod üzerinde F5 e basınız immediate penceresinde görebilirsiniz. Pencere yoksa CTRL+G ye basınız.
İstediğinize uyuyor mu? Çıkan sonucu istediğiniz alana da alabilirsiniz. Ayrıca sorgu üzerinde de belirli şartlar oluşturarak daha iyi sonuçlar alabilirsiniz.

Kod:
Sub BB_alan_ve_veri()
    Dim rs As Recordset
    Dim f As Field
    Dim bb As String
    Set rs = CurrentDb.OpenRecordset("qry_cpr")
    rs.MoveLast
    For Each f In rs.Fields
    bb = bb & f.Name & " " & f.Value & ","
        Debug.Print bb
    Next
  rs.Close
End Sub

"qry_cpr" yani çapraz query ismi olarak kendi uygulamanızdakini yerleştiriniz..
 
Son düzenleme:
Arkadaşlar ilginize teşekkür ediyorum

ben bir şekilde çözdüm sayılır olayı biraz külfetli oldu ama sayın seruz'a teşekkür ediyorum verdiği örnekten yola çıkarak biraz uzun yoldan da olsa işi çözdüm


Fakat sayın modalı beni veya bu foruma giren insanları bu işi kendisi gibi bildiğini sanıyor galiba onun için cevaplarında hep bir stemkarlık var işin doğrusu verdiği cevaplar biraz zoruma gitti :(

örnek olsun diye yapmak istediğim şeyin minik bir kısmını hazırladım ve burdan çözüm istedim exel atma işi yapılabilirde yapılmayabilirde neticede kullanıcı istediği şekilde kullanabilmeli

Sonuç olarak çözüm alternatifleri sunulması gerekiyor veya sayın seruz gibi örnek koyup bu şekilde yapabilirsin denilmeli

yok efendim senin amacın buysa ne işin var bu sorguyla sen şöyle birşey yap demek ve işi kendi istediğin şekle çevirmek yapılan projeye uymayabilir bunu gözardı etmemek lazım.

sorulan her soru ya kafama takıldı şöyle birşey yapabilirmiyim deyip meraktan sorulmuyor mutlaka bir işi yaparken takılan bir yerde soruluyor.

ilginileze ve alakanıza tekar teşekkür eder iyi günler dilerim.
 
Arkadaşlar ilginize teşekkür ediyorum

ben bir şekilde çözdüm sayılır olayı biraz külfetli oldu ama sayın seruz'a teşekkür ediyorum verdiği örnekten yola çıkarak biraz uzun yoldan da olsa işi çözdüm


Fakat sayın modalı beni veya bu foruma giren insanları bu işi kendisi gibi bildiğini sanıyor galiba onun için cevaplarında hep bir stemkarlık var işin doğrusu verdiği cevaplar biraz zoruma gitti :(

örnek olsun diye yapmak istediğim şeyin minik bir kısmını hazırladım ve burdan çözüm istedim exel atma işi yapılabilirde yapılmayabilirde neticede kullanıcı istediği şekilde kullanabilmeli

Sonuç olarak çözüm alternatifleri sunulması gerekiyor veya sayın seruz gibi örnek koyup bu şekilde yapabilirsin denilmeli

yok efendim senin amacın buysa ne işin var bu sorguyla sen şöyle birşey yap demek ve işi kendi istediğin şekle çevirmek yapılan projeye uymayabilir bunu gözardı etmemek lazım.

sorulan her soru ya kafama takıldı şöyle birşey yapabilirmiyim deyip meraktan sorulmuyor mutlaka bir işi yaparken takılan bir yerde soruluyor.

ilginileze ve alakanıza tekar teşekkür eder iyi günler dilerim.

Sayın smmustafa,

Sizi tanımayan ve hiçbir karşılık beklemeden size yardım etmeye çalışan insanlara haksızlık ediyorsunuz.

Para vererek profesyonel yardım aldığınız kişilere bile bu ifadeleri kullanamazsınız.

Hayatınızda başarılar dilerim.
 
Sayın Modalı;

Sabırlar diliyorum...
 
Geri
Üst