Raporda belirli sayıda satır oluşturma ve sabit değerleri gösterme

[abkbek]

Arkadaşlar merhaba,
geçmişte yapılan örnekleri ve benzer soruları inceledim ancak sorunumu çözemedim. sorum şu; personelin eğitim kayıtlarını raporlayacağım. Ekte bulunan örnek raporda personelin mevcut eğitim kayıtlarını görebiliyorum. ancak ben her bir personel için ;

ilköğretim
lise
Ünv.
Y.Lisans
Doktora

satılarının sabit olarak bulunmasını ve her bir personele ait eğitim durumun ilgili satırlarında görünmesini istiyorum. boş eğitim satırlarının ise boş kalmasını istiyorum.
yardımlarınızı bekliyorum.

 

[abkbek]

sayın üstadlarımız sorumla ilgilenebilir misiniz

 

[abkbek]

arkadaşlar yardım lütfen

 

[Bilgisayarcı09]

Soruyu başka bir foruma da sormuşsun. orada çözülmüş. iki taraftan birine büyük bir haksızlık yapılıyor gibi ama neyse. Bana düşmez

 

[gulsum1]

cevap

gerçi bilgisayarcı arkadaş bu soruya verilebilecek en iyi cevabı vermişti ama ben onun yanına çeşni olsun diye veriyorum yoksa onun eline su dökmek haddimize değil


Option Compare Database


Dim db As DAO.Database, rst As DAO.Recordset

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Me.t1.Value = ""
Me.o1.Value = ""
Me.y1.Value = ""
Me.b1.Value = ""
Me.t2.Value = ""
Me.o2.Value = ""
Me.y2.Value = ""
Me.b2.Value = ""
Me.t3.Value = ""
Me.o3.Value = ""
Me.y3.Value = ""
Me.b3.Value = ""
Me.t4.Value = ""
Me.o4.Value = ""
Me.y4.Value = ""
Me.b4.Value = ""
Me.t5.Value = ""
Me.o5.Value = ""
Me.y5.Value = ""
Me.b5.Value = ""
If IsNull(Me.personelID) Then
Exit Sub
End If
Set db = CurrentDb
strSQL = "SELECT * From tblegitim "
strSQL = strSQL & "WHERE personelID=" & Me.personelID

Set rst = db.OpenRecordset(strSQL)
Do Until rst.EOF
Select Case rst!turu
Case "ilköğretim"
Me.t1.Value = rst!turu
Me.o1.Value = rst!okuladı
Me.y1.Value = rst!yeri
Me.b1.Value = rst!bittarihi
Case "lise"
Me.t2.Value = rst!turu
Me.o2.Value = rst!okuladı
Me.y2.Value = rst!yeri
Me.b2.Value = rst!bittarihi
Case "Ünv."
Me.t3.Value = rst!turu
Me.o3.Value = rst!okuladı
Me.y3.Value = rst!yeri
Me.b3.Value = rst!bittarihi
Case "Y.Lisans"
Me.t4.Value = rst!turu
Me.o4.Value = rst!okuladı
Me.y4.Value = rst!yeri
Me.b4.Value = rst!bittarihi
Case "Doktora"
Me.t5.Value = rst!turu
Me.o5.Value = rst!okuladı
Me.y5.Value = rst!yeri
Me.b5.Value = rst!bittarihi
End Select


rst.MoveNext
Loop

End Sub

 

[abkbek]

Cevabınız için çok teşekkür ederim. siz nasıl yorumladınız bilmiyorum ama herhangi kötü bir maksadım yoktu, sadece soruma biran evvel cevap bulmayı istediğim için ve zaman tahdidim olduğundan başka kaynaklardan da cevap bulmaya çalıştım. haksızlıktan kastın ne olduğunu da anlayamadım ayrıca anlamsız bir polemiğe de girmek istemem, umarım açıklamam sui zanna kapılan arkadaşları ikna eder. cevap verme nezaketinizden dolayı da tekrar çok teşekkür eder, çalışmalarınızda başarılar dilerim.