Açılır Kutu

Slm iyi akşamlar açılır kutuda 1- Rapor 2- Rapor diye 5 tane raporum var açılır kutuda seçtiğim raporu bir buton yardımı ile ön izleme ve başka bir buton yardımı ile yazdırmak istiyorum

Önizleme butonuna yazacağınız kod

Dim StrRptName as String

StrRptName = combobox.value

DoCmd.OpenReport StrRptName, acViewPreview

şeklinde olmalı. Combobox ifadesini denetim adınızla değiştirmeli, birden fazla sütun var ise olna göre hangi sütundaki değeri alacağını belirtmelisiniz.

Yazdırma butonuna yazacağınız kod ise

Dim StrRptName as String

StrRptName = combobox.value

DoCmd.PrintOut acPrintAll, , , , , StrRptName

şeklinde olmalı.

hata verdi hocam

1 - rapor'un sorgu kaynağında tbl_kontrol.personeladi alanı yok ama rapor oradan veri çekmeye çalışıyor. yani ya sorgu kaynağınız eksik/hatalı ya raporda yanlış alan tanımlanmış

---

Not 1 : lütfen çalışmanızı eklediğinizde çalışmanızdaki hangi form, düğme metin kutusu gibi ayrıntılı bilgiler verin ki boş yere formlar, düğmeler raporlar arasında dolaşıp durmayalım
Not 2 : Hata veriyor cümlesi son derece yetersiz bir cümle; ne yaptığınızda nerede ne hatası veriyor bunları da belirtmelisiniz ki doğrudan soruna odaklanabilelim.
iyi çalışmalar

frm_hakedişteki Ac001 adındaki açılır kutuda seçim yaptığım raporu komut90 butonuyla ön izlemek için verdiği kod hata vermişti ondan yardım istemiştim ustam

açılır kutuda 2 sütun var siz Ac0001.value derseniz, ilişkili sütunu hangisi ise oradaki değeri alır. sizin açılır kutunuzun ilişkili sütunu=1 ama rapor adı 2. sütunda
kodu aşağıdaki gibi düzenleip dener misiniz

StrRptName = Ac0001.Column(1)