Skip to main content

AccessTr.neT


Set Qdf=currentdb.querydefs Sorguda Oluşturulan Değerleri Çağıramıyorum Hata Alıyorum

Set Qdf=currentdb.querydefs Sorguda Oluşturulan Değerleri Çağıramıyorum Hata Alıyorum

#2
Merhaba,
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...
.rar Örnek_dosya_accesstr.rar (Dosya Boyutu: 3,27 MB | İndirme Sayısı: 3)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Set Qdf=currentdb.querydefs Sorguda Oluşturulan Değerleri Çağıramıyorum Hata Alıyorum - Yazar: WiniFred - 01/10/2020, 14:52
Task