[VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma
#1
Saygı değer üstadlarım öncelikle saygı ve sevgiler sunarım.

Ekli Vt'de "KayıtYazdır" isimli bir forum var ve bu forum içerisinde kayıt kaynağı Yzd_Sorgu dan alan Liste var. Bu listeden istenen kaydın yazdırılması gerekmektedir. Ancak Listede hangi satıra çifttıklanır ise tıklansın  "Çifttıklandığı" olayında sürekli ilk satır Rapora gelmektedir. Ayrıca üstte iki adet buton mevcut "Çıkış Raporu" ve "Giriş Raporu" olmak üzere ancak bu butonlara kod yazamadım.

Siz saygı değer hocalarımdan isteğim şu dur;

Listeye "Çifttıklandığında" olayına listeden tıklanan satırı yazdırabilmek; bu mümkün değil ise
Listeden satır seçip işlem Çıkış ise "Çıkış Raporu" butonu ile; işlem Giriş ise "Giriş Raporu" butonu ile rapor alabilmek

Bu konuda yardım edebilir iseniz çok memnun olurum.

Şimdiden siz değerli hocalarıma teşekkürlerimi sunarım.

Kullanıcı  Ali Şifre 1 dir.

Shift tuşu ile doğrudan içeriğe girilmektedir.


.rar   EMANET KASASI DENEME.rar (Boyut: 373,29 KB / İndirilme: 114)



  Alıntı
Bu mesajı beğenenler:
#2
Eki inceleyiniz.


Eklenti Dosyaları
.rar   EMANET KASASI DENEME_can.rar (Boyut: 338,14 KB / İndirilme: 115)



  Alıntı
Bu mesajı beğenenler:
#3
(09-02-2020, 16:54)onur_can demiş ki: Eki inceleyiniz.


Onur hocam  öncelikle emeğinize sağlık teşekkür ederim.

Örneği inceledim ancak her halukarda Giriş Raporunu açmaktadır. Çıkış Raporunu açmıyor hocam.



  Alıntı
Bu mesajı beğenenler:
#4
Evet dediğiniz gibi, bu durum ilk kaydı referans alarak yapıyor. Aşağıdaki kodu Listenin DblClick Olayına yapıştırın sorun düzelecektir.

Visual Basic
  1. Private Sub Liste_DblClick(Cancel As Integer)
  2.  
  3. If Me.Liste.Column(3) = "Giriş" Then
  4. DoCmd.OpenReport "Giriş_Raporu", acViewPreview
  5. ElseIf Me.Liste.Column(3) = "Çıkış" Then
  6. DoCmd.OpenReport "Çıkış_Raporu", acViewPreview
  7. Else
  8. End If
  9.  
  10. End Sub


Bu arada şunu da belirteyim, form tasarımınız güzel olmuş.



  Alıntı
Bu mesajı beğenenler:
#5
Onur Hocam çok teşekkür ederim. Emağine sağlık

Onur hocam sistemde yapmış olduğum yansıma a tablosu işlevi yapmıyor. Yani yeni bir giriş çıkış işlemi yapınca kayıtlara yansımadı.

Tbl_Yansıma diye bir tablo oluşturdum. FrmAna Formuna Hesapla kodu yazdım. İşlem 10 numara oldu bakiye işlemi olayını bu şekilde hallettim.

Bu nedenle seneryoyu değiştirdim. FrmAna da kişiyi çağırıp Rapor Yazdır düğmesine basınca KayıtYazdır formu açılıyor ve FrmAna da çağrılan kişinin kayıtlarını getiriyor. Buraya kadar sorun yok. Sizin çifttıklama olayını bu vt ye uyguladım ancak yine aynı sorun devam ediyor. İlk kayıttaki giriş kaydını veriyor.

Hocam kusura bakmayın sizi de yordum bu konuda VT yi ekliyorum bir bakabilir iseniz çok sevinirim. Dahada olmuyor ise Listeden kaydı seçip buton ile yazdırma işlemi yapmaya çalışalım.


.rar   EMANET KASASI DENEME.rar (Boyut: 383,24 KB / İndirilme: 88)



  Alıntı
Bu mesajı beğenenler:
#6
Rapor satır kaynaklarını düzenlememişsiniz, eki inceleyiniz Ahmet Bey


Eklenti Dosyaları
.rar   EMANET KASASI DENEME_düzeltilen.rar (Boyut: 377,59 KB / İndirilme: 101)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Altformda Kayıt Tıklayınca Sürekli Ilk Kayda Gidiyor. M_Kemal_Askeri 6 150 11-04-2026, 02:28
Son Mesaj: M_Kemal_Askeri
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 467 23-11-2025, 11:33
Son Mesaj: dsezgin
  Liste kutusun kayıt seçili mi? Kamil 6 2.362 13-11-2025, 23:34
Son Mesaj: osman06
  Access Kayıt Yapma kertiller_55 1 217 29-09-2025, 21:15
Son Mesaj: dsezgin
  çoklu Seçinle Kayıt Girme? kesoka 1 319 02-07-2025, 23:31
Son Mesaj: dsezgin
  Kaydet Butonuna Basmadan Kayıt Yapmasın ! erimler 1 286 20-03-2025, 19:07
Son Mesaj: dsezgin
access-sql-20 [TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma mkoblayek 18 1.057 18-02-2025, 08:49
Son Mesaj: mkoblayek
  [SORGU] Row-number() Yada Satır Sayısı kahramanselim 2 381 15-10-2024, 16:26
Son Mesaj: kahramanselim

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi