[FONKSiYON] Acceste Mantıksal Formül
#1
Forma yeni üyeyim, uzun süredir kullanmadığım access programına ihtiyacım oldu.
Ekte kullandığım form, fuarlara giden üyeler ve onlara yapılacak ödemeler takibi.
Her üye için yapmak istediğim formül için koşul sıralaması aşağıdaki şekildedir:
"Ziyaret" form dosyasında yapmak istediğim 2 koşul var;
1- "Masraf" alanında yazan rakam"; eğer üyenin
Fuar Türü "Yurt Dışı" ise;
masraf>2000 olduğunda "Ödenecek Tutar" alanı 2000 yazacak,
masraf<2000 ise "Ödenecek Tutar" alnına "masraf" alnındaki rakamın tamamı
yazılacak
2- 1- "masraf" alanında yazan rakam" eğer üyenin Fuar Türü "Yurt İçi" ise;
masraf>601 olduğunda "Ödenecek Tutar" alanı 600 yazacak,
masraf<601 ise "Ödenecek Tutar" alanına "masraf" alanındaki rakamın tamamı
yazılacak.
Bu formülün "Ödenecek Tutar" alanına çalışmasını istiyorum.
Bu formülün özeti şu
1- yurt dışı fuarlara firmaların masraflarının maksimum 2000 TL'ye (masrafı 2000 TL den az ise tamamı 2000 TL'den fazla ise 2000 TL'si ödenir)
2- yurtiçi fuarlarda firmaların masraflarının maksimüm 600TL'ye (masrafı 600 TL den az ise tamamı, 600TL'den fazla ise 600 TL'si ödenir)
kadarı ödenmektedir.
Yardımcı olursanız sevinirim.



  Alıntı
Bu mesajı beğenenler:
#2
Ihtiyaca ait ornek VT'ni konuya eklemeniz halinde daha fazla yardim bulabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
Dosyayı ekledim sandım, dosya ekte yokmuş.
Yazdıklarım ile ilgili yardıma ihtiyaç duyduğum dosya ekte .
Teşekkür ederim. yardımınıza şimdiden.


Eklenti Dosyaları
.zip   Fuar Takip.zip (Boyut: 65,46 KB / İndirilme: 73)



  Alıntı
Bu mesajı beğenenler:
#4
sn ckades;
formun vba editörüne yapıştır..
yurt dışı ve yurt içi sabit rakamları değiştirebilirsin..

Visual Basic
  1. Const Ydisi As Currency = 2000
  2. Const Yici As Currency = 601
  3.  
  4. Function bul() As Currency
  5. Select Case Me.[Fuar Türü].Value
  6. Case "Yurt Dışı"
  7. If Me.Masraf < Ydisi Then bul = Me.Masraf Else bul = Ydisi
  8. Case "Yurt İçi"
  9. If Me.Masraf < Yici Then bul = Me.Masraf Else bul = Yici
  10. End Select
  11. End Function
  12.  
  13. Private Sub Açılan_Kutu38_AfterUpdate()
  14. Me.Ödenecek_Tutar = bul
  15. End Sub
  16.  
  17. Private Sub Masraf_AfterUpdate()
  18. Me.Ödenecek_Tutar = bul
  19. End Sub
  20.  
  21. Private Sub Ödenecek_Tutar_AfterUpdate()
  22. Me.Ödenecek_Tutar = bul
  23. End Sub



imza; jon206
www.access-sql.com



  Alıntı
Bu mesajı beğenenler:
#5
Çok teşekkür ederim yardımınız.
Elinize sağlık.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Acceste Liste Kutusundan Seçilen Veriyi Metin Kutusuna Gönderme Pasham 24 1.435 04-04-2024, 01:18
Son Mesaj: halily
  [SORGU] Acceste Kelimeyi Harf Harf Ayirma ŞabanTR 5 513 16-04-2023, 14:23
Son Mesaj: halily
  Acceste Listbox Seçimine Göre Grafik Gösterimi Hk YENIFENER 3 435 04-10-2022, 10:27
Son Mesaj: YENIFENER
  Kütüphane Veritabanı örneği Lazım Acceste Sorgu Form Tablo gokothemusician 1 701 10-05-2021, 13:37
Son Mesaj: onur_can
  Acceste Kullanıcıları Devre Dışı Bırakmak blumanx 2 594 02-03-2021, 16:48
Son Mesaj: blumanx
  Tablolarda Mantıksal Hata Var Yardım Eder Misiniz enes1233 1 597 19-05-2020, 13:50
Son Mesaj: dsezgin
  ürün Formül Tasarımı Yapabilmek mustafacevik 5 891 09-12-2019, 22:20
Son Mesaj: dsezgin
  Ev dekorasyonu veri tabani acceste Umutcantek 2 878 02-05-2019, 15:48
Son Mesaj: onur_can

Foruma Git:


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