AccessTr.neT

Merhabalar
Ekli veri tabanında posta listesi oluşturmaktayız.
(çıkış posta yinelemeleri bul) sorgusu ile listedeki işlerin hangi zarfa konulacağı ;
(çıkış posta gruplanmış) raporu ile posta zimmet oluşturulmaktadır
Ayrıca (çıkış posta yinelemeleri bul) sorgusu ile oluşturulan etiket tablosu ilede etiket basmaktayız

Yeni oluşturmak istediğim Gruplanmış gideceği yer bilgilerinin yanına (etiket tablosuna) gideceği yer aynı olan A.T. nolarını grup listesinin yanına aynı satıra birleştirerek yazmak yazdırmak istiyorum.
Bu mümkün mü ? nasıl yapabilirim
(ofis 2003)
etiket
BİRİMİ MAHKEME SAVCILIKAlan YinelemeSayısı AT NO
BURSA 1. AĞC 1 12422
BURSA 12. AĞC 1 12512
BURSA 16. AĞC 1 11877
BURSA CBS 5 12511 -327-11727-12303-11509
EDREMİT CBS 1 12546
GEMLİK 2. ASC 1 11071
GÖNEN ASC 2 12304-12614
İNEGÖL CBS 1 10926
ORHANGAZİ 1. ASC 1 11877
ORHANGAZİ 3. ASC 1 11934
YENİŞEHİR ASC 1 11742



Özet olarak birimi sutunu gideceği adresi AT no gönderinin sayılarını etiketlemek için kullanılacak. İlgili sorgu gideceği yeri ve aynı yere gidecek dosyaların AT no larını aynı satıra toplayacak

öncelikle bir modül oluşturup aşağıdaki fonksiyonu tanımlayın

Function xBirles(ByVal xBrm As String) As String

Set AtNoRs = CurrentDb.OpenRecordset("select [AT NO] from posta where [BİRİMİ MAHKEME SAVCILIK]='" & xBrm & "'")

xBirles = ""

If AtNoRs.RecordCount = 0 Then Exit Function

Do Until AtNoRs.EOF

    xBirles = xBirles & "-" & AtNoRs(0)

AtNoRs.MoveNext

Loop

xBirles = Mid(xBirles, 2)

End Function

sonrada aşağıdaki sorgu kodunu kullanarak bir sorgu oluşturun

SELECT POSTA.[BİRİMİ MAHKEME SAVCILIK], Count(POSTA.[AT NO]) AS YinelemeSayısı, xBirles([BİRİMİ MAHKEME SAVCILIK]) AS [AT No]

FROM POSTA

GROUP BY POSTA.[BİRİMİ MAHKEME SAVCILIK];

Merhaba Sayın "berduş" Elinize Emeğinize sağlık modül ve sorguyu ekledim sistem çalıştı
Çok Teşekkür ederim hayırlı günler dilerim. ayrıca bu tabloyu kullanacak birimdeki arkadaşlarda Teşekkürlerini iletmemi istediler
selamlar iyi çalışmalar

Rica ederim )
İyi çalışmalar