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
![Çözüldü](images/icons/cozuldu.png)
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ış 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İSTESELECT 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.
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)
stDocName ="LİSTE"
yazabilirsiniz.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.
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
Alıntı:Raporun kayıt kaynağını da
olarak değiştir.SELECT LİSTE.SIRA, LİSTE.[ADI SOYADI], LİSTE.SINIFI FROM LİSTE WHERE (((LİSTE.SINIFI)=[Formlar]![LİSTE]![Kutu10]));