Slm,
Makine Üretim Raporu formunda seçmiş olduğum tarihlerdeki makine üretimlerini önizleme yapabilmek istiyorum,

yapmış olduğum çapraz sorguda,
örneğin 01.07.2014 ile 31.07.2014 de tüm veriler geliyor
05.07.2014 ile 31.07.2014 tarihinde daha az veri geliyor ve sütun başlıkları değişiyor.

seçim yapılan tarihlere göre rapordaki başlıkların değişmesi lazım.

Yardımcı olabilecek arkadaşlardan yardım istiyorum.
İyi akşamlar

Sn husem; Rapor da capraz soru basliklarin degismesi konusunuda ki VT inceleyebilirsiniz.

sn dsezgin,
belirttiğiniz raporun kayıt kaynağı bir sorgu içeriyor, ve sorgu zaten yok. önizlemede hata veriyor.

ayrıca sorguyu eklediğim ekteki dosyadaki rapora bende ekledim.
benim raporumda rapordaki alanlar değişmiyor, hepsi sabit
sorgunun tarih kısmına koşul girdiğimde between ....... hata veriyor,

yapamadım.
kolay gelsin.

sn husem; raporun kayit kaynaginda ki capraz soruyu formda raporu ac butonu VBA bolumunde, tarih kriterine gore capraz soru olusturmakta ve rapor olusan capraz soru ile acilip sutun sayisi kadar raporun sayfanin sagina dogru veri sutunlarini doldurmakta.
Raporu formsuz acmak, capraz soru olusturulmadan VBA bolumunde sorunun kac sutundan olsutugu satirin calismamasi anlamina gelmekte ve hata verir. Sizin sorunuzda da status bolumu tarih araligina gore, verinin olmasi-olmamasi saga dogru kucukmekte-buyumekte, oldugu icin bu konuyu onerdim.

---

Sutunlarin sabit ve verinin bos olmasina ragmen, raporda gorunebilir dersen
Private Sub Report_Open(Cancel As Integer)
Dim Kmt As String
If Not IsNull([Forms]![MAKINA_URETIM_RAPORU]![ILKTARIH]) And Not IsNull([Forms]![MAKINA_URETIM_RAPORU]![SONTARIH]) Then
Kmt = "WHERE Format(MAKINA_GIRIS_CIKIS_Çapraz.CIKIS_TARIHI,'yyyymmdd') Between " & Format([Forms]![MAKINA_URETIM_RAPORU]![ILKTARIH], "yyyymmdd") & " And " & Format([Forms]![MAKINA_URETIM_RAPORU]![SONTARIH], "yyyymmdd")
ElseIf Not IsNull([Forms]![MAKINA_URETIM_RAPORU]![ILKTARIH]) And Not IsNull([Forms]![MAKINA_URETIM_RAPORU]![SONTARIH]) Then
Kmt = "WHERE Format(MAKINA_GIRIS_CIKIS_Çapraz.CIKIS_TARIHI,'yyyymmdd') = " & Format([Forms]![MAKINA_URETIM_RAPORU]![ILKTARIH], "yyyymmdd")
Else
Kmt = ""
End If
Me.RecordSource = "SELECT MAKINA_GIRIS_CIKIS_Çapraz.* FROM MAKINA_GIRIS_CIKIS_Çapraz " & Kmt
End Sub
kodu rapor acilis olay yordamina yazabilirsin.

Sn dsezgin83260,
Elinize, emeğinize sağlık,

Çok teşekkür ederim,
Kolay gelsin.