AccessTr.neT

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

ornek.rar(33.72 KB)

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.

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

ornek.rar(34.56 KB)

Yapılmaması gereken ölümcül hatalar

 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

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

ornek.rar(33.56 KB)

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.