Eklediğiniz dosyayı elimden geldiği kadar düzenledim. Şu an bende çalışıyor ama oluşturduğu word belgesindeki tabloya listeyi yazdırmıyor. O kısım hakkında bilgim olmadığı için dosyayı bu haliyle ekliyorum.
Öncelikle Vba kodlarında düzenlediğim ya da eklediğim her satıra
'accesstr.net
açıklamasını ekledim. Yani bu açıklamayı kodlarınızın içinde arattığınızda ilgili satırlara hızlıca gidebilirsiniz.
1) Bir altformdaki textbox'a başvurmak sıkıntılı olabiliyor Access'te ve her sürüm değişik yazım isteyebiliyor. Bu yüzden bununla uğraşmamak için Vba içerisinde sizin textbox'ınızın içeriğini değişkene aktarma yolunda bir değişiklik yaptım.
2) "Tevdi_Listesi_Sorgu" isimli sorgunuzdaki WHERE satırını
WHERE (((Tevdi_Listesi.Adliye)=[ParamAdliye]));
şeklinde değiştirdim.
3) "Word'e Gönder" butonunun altındaki kodlarda yaptığım diğer değişikliklerin yanında
'-----Kayıtların gelip gelmediği test ediliyor--accesstr.net-----------
MsgBox rs("Tevdi_Dosya_No") & "--" & rs("Tevdi_adı_Soyadı") & "--" & rs("Tevdi_Gidecek_yer") & "--" & rs("Adliye")
'--------------accesstr.net--------------------------------------------------
şeklinde bir bölüm ekledim. Burası size kayıtların sıkıntısız recodsete alınıp alınmadığını göstermesi içindir. Yalnız her satırda mesaj verir. Yani 10 kayıt varsa peş peşe 10 kez mesaj kutusu görürsünüz. Ben açık bıraktım. Burayı kapatabilir ya da silebilirsiniz.
Umarım sizde de problemsiz çalışır.
Saygılarımla...