+- 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ığı: Çarpraz Sorgudan Rapor oluşturma (/konu-carpraz-sorgudan-rapor-olusturma.html)
Cvp: Çarpraz Sorgudan Rapor oluşturma - Seruz - 30/01/2009
Dediğim gibi önce kriterle yeni tablo yaratıp,
sonra bu tablodan yapılan çaprazı kullanınca sorun çıkarmadı.
sn. osman06 ekteki örneği kullanabilirsiniz.
Cvp: Çarpraz Sorgudan Rapor oluşturma - osman06 - 30/01/2009
sn:seruz hocam eline emeğine sağlık çok tşkler
uğraştırdım sizide
hocam aşağıda soru işaretli yere sabit bi metin yazacam nasıl yazmam lazım
With ExcelDosyasi
.Sheets(1).Select
.ActiveWindow.DisplayGridlines = False
.Cells(1, 2) ????????????? = Me.Secilen_MAHALLE & " BELDESİ HAFTALIK ÇALIŞMA PROGRAMI"
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 12
'Kayıt yoksa çıkılıyor
If Rs.RecordCount = 0 Then
.Cells(2, 2) = "Kayıt bulunamadı"
Rs.Close
Exit Sub
End If
birde sayfanın altına sabit bi metin ekeyecem yardımcı olurmusunuz
Cvp: Çarpraz Sorgudan Rapor oluşturma - assenucler - 30/01/2009
Sayın Seruz;
Hocam bu konuyu ilgiyle izledim. Karşılaşmadığım bir konuyla ilgili örneğinizi arşivime ekliyorum.
Emeğiniz için teşekkürler.
Cvp: Çarpraz Sorgudan Rapor oluşturma - Seruz - 30/01/2009
Sn. Taruz'un katkısıyla,
Form kriterlerini fonksiyon ile modülden alarak
boşuna tablo yaratmadan olayı çözdük.
Sn. Osman06, ekteki dosyayı kullanın.
Gösterdiğiniz yere yazıyı nasıl yazacağınızı belirttim
ve alt tarafa Sabit yazı da ekledim.
Kodun sonlarına doğru bakarsanız görebilirsiniz.
Onu da istediğiniz gibi değiştirebilirsiniz.
Noy:Sn. Taruz'a tekrar teşekkürler.
Cvp: Çarpraz Sorgudan Rapor oluşturma - osman06 - 30/01/2009
With ExcelDosyasi
.Sheets(1).Select
.ActiveWindow.DisplayGridlines = False
.Cells(1, 2) ="hocam burda mahalle otomatik kendi gelecek bi önceki gibi mahallenin önüne ve arkasına sabit yazı eklemek istiyorum"[color][/color]
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 20
'Kayıt yoksa çıkılıyor
If Rs.RecordCount = 0 Then
.Cells(2, 2) = "Kayıt bulunamadı"
Rs.Close
Exit Sub
End If
Cvp: Çarpraz Sorgudan Rapor oluşturma - Seruz - 30/01/2009
Pardon, yanlış anlamışım.
Şu şekilde yapabilirsiniz.
.Cells(1, 2) = "Mahalle adından önce yazılacak Kısım " & Me.Secilen_MAHALLE & " Mahalle adından sonra yazılacak Kısım"
Çift tırnak içinde yazılan kısımlar sabit kısımlardır.
Buraları istediğiniz gibi değiştirebilirsiniz.