AccessTr.neT

Tam Versiyon: Sorgu Veya Raporda Gruplama Ve Benzer Kayıtların Nolarını Bir Kayda Toplama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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