AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Rapor Açma Problemi

1 2
15/02/2012, 16:13

komutan63

Selamlar
Hocam sizin güncelleyip gönderdiğiniz dosyayı örnek alarak ben bir dosya hazırladım ama düzgün çalıştıramadım. Sizden ricam acaba nerelerde hata yapmışım bakabilirmisiniz.

Saygılar


Dosya ekte


Ek Dosyalar

15/02/2012, 17:02

ozanakkaya

liste kutusunun satır kaynağındaki
Like IIf([Forms]![LİSTE_FORMU]![Kutu10];[Forms]![LİSTE_FORMU]![Kutu10];'*')
ölçütünü
Like IIf([Forms]![LİSTE]![Kutu10];[Forms]![LİSTE]![Kutu10];'*')
olarak değiştir. Çünkü formun adı LİSTE, önceki örnekte form adı LİSTE FORMU olduğu için bu şekilde yazılmış
Önizle butonunun tıklandığında olayına yazılan
 stDocName = ChrW(75) & ChrW(304) & ChrW(350) & ChrW(304) & ChrW(32) & ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69) & ChrW(83) & ChrW(304)
kodunu
     stDocName = ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69)
olarak değiştir. Raporun adı LİSTE


Raporun kayıt kaynağını da 
SELECT LİSTE.SIRA, LİSTE.[ADI SOYADI], LİSTE.SINIFI FROM LİSTE WHERE (((LİSTE.SINIFI)=[Formlar]![LİSTE]![Kutu10]));
olarak değiştir.
15/02/2012, 17:50

komutan63

Selamlar
Hocam dediklerinizi yaptım sadece Rapor kısmında problem kaldı.
Saygılar

Neden
stDocName = ChrW(75) & ChrW(304) & ChrW(350) & ChrW(304) & ChrW(32) & ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69) & ChrW(83) & ChrW(304)
Bu kodları;

Bunlarla
stDocName = ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69)
değiştiriyoruz.




Ek Dosyalar

15/02/2012, 18:06

ozanakkaya

Yapılmaması gereken ölümcül hatalar
Kod:
1. Hiç bir raporun adında türkçe karakter geçmemeli.
2. Rapor isimleri büyük harf olarak yazılmalı
3. Rapor isimlerinde bir standart belirlenmeli. Örneğin rapor ismi R_ ile başlar...


 stDocName =ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69)

yerine
 stDocName ="LİSTE"
yazabilirsiniz.

Rapor isminde türkçe karakter kullanırsanız buton oluşturduğunuzda ChrW olarak kodlanır. Yani;

ChrW(75) & ChrW(304) & ChrW(350) & ChrW(304) & ChrW(32) & ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69) & ChrW(83) & ChrW(304)
KİŞİ LİSTESİ


ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69)
LİSTE.

Sizin raporunuzun ismi LİSTE olduğu için kodun değiştirilmesi gerekli, ayrıca butonun tıklandğında olayındaki kodu bozmuşsunuz. Kodun tamamı aşağıdaki gibi olacak,


Private Sub Doktur_Click()

On Error GoTo Err_Doktur_Click



 Dim stDocName As String



 stDocName =ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69) 

 DoCmd.OpenReport stDocName, acPreview



Exit_Doktur_Click:

 Exit Sub



Err_Doktur_Click:

 MsgBox Err.Description

 Resume Exit_Doktur_Click

 

End Sub


15/02/2012, 18:19

komutan63

Selamlar

hocam verdiğiniz kodları düzelttim. Rapor alıyor. Ancak açılan kutudan sınıf seçip ön izle dediğimde sadece o sınıfı listelemiyor.

Saygılar


Ek Dosyalar

15/02/2012, 18:35

ozanakkaya

sizce #2. mesajdaki

Alıntı:Raporun kayıt kaynağını da 
SELECT LİSTE.SIRA, LİSTE.[ADI SOYADI], LİSTE.SINIFI FROM LİSTE WHERE (((LİSTE.SINIFI)=[Formlar]![LİSTE]![Kutu10]));
olarak değiştir.

Şeklindeki yazdığım kodu raporunuza uygulayınız.
1 2