Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Çekilen Kredi Kartlarının Masraf Oranlarını otomatik yazdırma Hk.

Çekilen Kredi Kartlarının Masraf Oranlarını otomatik yazdırma Hk.
Dekdurmaz
Yeni Üye 15-40

*
Kayıt Tarihi: 28.06.2008
Toplam 5 konu açtı.
Toplam 17 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#1
access-sql-9  09-01-2012, 12:38
Bütün İşletmelerde olduğu gibi Firmamızda yapılan satışlarda kredi kartları kullanılmaktadır. Haliyle çekilen kredi kartlarının taksit seçeneklerine göre ilgili banka belirli bir masraf yüzdesi kesmektedir.

Benim yapmaya Çalıştığım: programda BANKA ADI ve 1'den 12'ye kadar olan taksit seçeneklerinden birini yazdığım zaman, yazılan banka ve taksit seçeneğine ait masraf yüzdesini otomatik olarak yazmasını istiyorum. Nasıl yapacağımıda bulamadım.

Aceba bu konuda yardımcı olabilecek bir arkadaş varmı?


Eklenti Dosyaları
.rar   Çalışma.rar (Boyut: 15,33 KB / İndirilme: 89)



  Bul
  Alıntı
Bu mesajı beğenenler:
serdar2020
Önemli Üye 200-300

*
Kayıt Tarihi: 27.11.2011
Toplam 37 konu açtı.
Toplam 236 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
#2
09-01-2012, 16:31
Sanırım yapmak istediğiniz böyle birşey. Eki inceleyiniz.


Eklenti Dosyaları
.rar   çalışma_serdar.rar (Boyut: 20,05 KB / İndirilme: 70)



  Bul
  Alıntı
Bu mesajı beğenenler:
onur_can
Kıdemli Üye >1000

*
Kayıt Tarihi: 01.01.2009
Toplam 150 konu açtı.
Toplam 5.511 yorum yaptı.
Toplam 261 puanı bulunmakta.
Beğeniler: 10 / 76
#3
09-01-2012, 16:40
Merhaba bunun için select case yapısını kullanabilirsiniz,
Örneğin;
Visual Basic
  1. Private Sub Taksit_Sayısı_Change()
  2. Select Case Banka_Adı.Value
  3. Case "Garanti Bankası"
  4. If Taksit_Sayısı = 1 Then
  5. Me.Masraf_Oranı = 0.87
  6. If Taksit_Sayısı = 2 Then
  7. Me.Masraf_Oranı = 0.94
  8. .........
  9. ..........
  10. End If
  11. Case "Akbank"
  12. If Taksit_Sayısı = 1 Then
  13. Me.Masraf_Oranı = 0.89
  14. If Taksit_Sayısı = 2 Then
  15. Me.Masraf_Oranı = 0.9
  16. .........
  17. ..........
  18. End If
  19. End Select
  20.  
  21. End Sub


bu şekilde..




  Bul
  Alıntı
Bu mesajı beğenenler:
Dekdurmaz
Yeni Üye 15-40

*
Kayıt Tarihi: 28.06.2008
Toplam 5 konu açtı.
Toplam 17 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#4
09-01-2012, 18:00 (En son düzenleme: 10-01-2012, 10:42 Dekdurmaz.)
Sayın onur_caN vermiş olduğunuz kodalar için çok teşekkür ederim. bir kaç değişiklik yapınca tam istediğim gibi oldu.

İlgilenen tüm arkadaşlara teşekkür ederim.



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 465 23-11-2025, 11:33
Son Mesaj: dsezgin
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 557 14-03-2024, 11:07
Son Mesaj: yahyamacit
  [VBA] Dosya Yolu Yazdırma benuva 2 502 26-11-2023, 19:06
Son Mesaj: benuva
  [TABLO] Tablodaki Aynı Isimlerin Sayısını Yazdırma omergenc7 13 1.175 26-03-2023, 13:11
Son Mesaj: dsezgin
  Raporda şablona Yazdırma ankaram 6 657 30-01-2023, 10:53
Son Mesaj: alperalper
  Aktif Formdaki Raporu Yazdırma ankaram 3 442 27-01-2023, 00:46
Son Mesaj: BeyTor
  Altformda Kayıt Bulma Ve Tüm Kayda Metinkutusundan Veri Yazdırma ŞabanTR 4 602 15-01-2023, 18:07
Son Mesaj: ŞabanTR
  Sütun Birleştirip Yan Yana Yazdırma. ŞabanTR 10 890 31-12-2022, 14:07
Son Mesaj: halily

Foruma Git:


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