Formu Pdf Olarak Kaydetme

snapper · 01-11-2023, 14:30

(01-11-2023, 11:23)dsezgin demiş ki:
(01-11-2023, 11:08)snapper demiş ki: hocam, denedim yine olmadı. kaydedilen rapordaki veriler boş görünüyor.

Ayrıca sizin dediğiniz gibi yaparsam, rapora toplam 5 adet alt form eklemem lazım. Hepsinde aynı işlemi yaparsam, tüm metin adlarını ve sql kodlarında ki adları değiştirmem gerekiyor

Taşımanız gereken nesneler, ilişkisiz veri işlediğiniz kutular.
A2 alanı güncellediğinde formdaki veriler nasıl değişiyorsa tek raporda da değişir.
Önceki mesajıma örneğinizi ekledim.

Hocam,

Normalde 5 farklı tablo için ayrı ayrı userform oluşturdum. Hepsinin içerisine sql kod ile veri çekiyorum.
Onları da alt form olarak anasayfaya ekledim.
Bir tane yenile butonuna "altformadı.requery" altformların yenilenmesini bu şekilde ekledim. Yıl,ay vs değiştirdikten sonra yenile dediğimde altformlar da değişiyor. Ama aynı mantık rapor sayfasında işlemedi nedense.

Bu şekilde de yaparım ama alt formların metin isimleri çakıştığı için hepsinde tek tek düzenleme yapmam gerekiyor.

Teşekkür ederim yine de . Saygılar,

snapper · 01-11-2023, 15:57

Hocam,

O mantıkla 2 formun kodunu ayrıntıya eklediğimde 2.tablonun verileri çalışmadı malesef.

Aşağıdaki kodda select'i ikinci satıra kaydıramadım. Bu konuda yardımcı olabilirseniz en azından tüm verileri tek sql ile toplayabilirim. İkinci satıra kaydıramayınca sütn sayısı doluyor.

Visual Basic
xSQL = xSQL & " SELECT Month([tarih]) AS Ay, Sum(IIf([durum]=""Geçersiz"",1,0)) AS txtGz, Count(Sheet1.veri) AS txtTp"
xSQL = xSQL & vbNewLine & " FROM Sheet1"
xSQL = xSQL & vbNewLine & IIf(Len(trh() & "") > 0, " WHERE (((Year([tarih])) = trh()", "")
xSQL = xSQL & vbNewLine & " GROUP BY Month([tarih]);"

Aşağıdaki şekilde olmalısını istiyorum.

Visual Basic
xSQL = xSQL & " SELECT Month([tarih]) AS Ay, Sum(IIf([durum]=""Geçersiz"",1,0)) AS txtGz, Count(Sheet1.veri) AS txtTp"
xSQL = xSQL & " 'and SELECT' .................................................."
xSQL = xSQL & vbNewLine & " FROM Sheet1"
xSQL = xSQL & vbNewLine & IIf(Len(trh() & "") > 0, " WHERE (((Year([tarih])) = trh()", "")
xSQL = xSQL & vbNewLine & " GROUP BY Month([tarih]);"

dsezgin · 01-11-2023, 22:59

Visual Basic
xSQL = "SELECT Month([tarih]) AS Ay, Sum(IIf([durum]='Geçersiz',1,0)) AS txtGz, Count(Sheet1.veri) AS txtTp  FROM Sheet1 " & IIf(IsNull(trh()), vbNullString, " WHERE Year([tarih]) = " & trh()) & " GROUP BY Month([tarih])"

vbnewline iif(... koşulu SQL satirini olumsuz etkiliyor. Yukarıdaki gibi düzenlenebilir.

UNION ile farklı tabloları birleştirip soruda tablo adlarını gruplama yaparak, raporda kullanılabilir.

.rar

Örnek_.rar (Boyut: 177,36 KB / İndirilme: 26) Farklı yöntem

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi	Samih KARSLI	2	132	06-04-2024, 18:49 Son Mesaj: Samih KARSLI
	[TABLO] Formu Tabloda Filtreleme	soss	2	141	27-03-2024, 20:04 Son Mesaj: soss
	Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme	adnnfrm	5	168	28-11-2023, 01:37 Son Mesaj: dsezgin
	12 Saatlik (am-pm) Metin Olarak Girilmiş Saat Verisini 24 Saatlik Olarak Gösterme Hk.	adnnfrm	2	152	05-10-2023, 03:16 Son Mesaj: adnnfrm
	Raporları Gezinme Araçlı Pdf Olarak Dışarı Aktarmak Hk.	adnnfrm	4	178	04-10-2023, 10:34 Son Mesaj: dsezgin
	[FORM] Gezinti Formu Ile Alt Form Oluşturmak	abahceci	2	186	09-08-2023, 15:09 Son Mesaj: abahceci
	Tabloda 0'ın Altındaki Negatif Değerleri 0 Olarak Yazmak Yada Boş Bos Göstermek	ofbayoglu61	4	190	15-07-2023, 13:16 Son Mesaj: ofbayoglu61
	[FORM] İLİŞKİSİZ FORMDAN TABLOYA VERI KAYDETME	moskovic	24	20.292	06-07-2023, 12:11 Son Mesaj: dsezgin

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL