Çarpraz Sorgudan Rapor oluşturma - Baskı Önizleme +- 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. |