Merhaba,

Kendimi Access programında geliştirmek için Ekteki öğrenci kayıt için kullanılacak bir program oluşturmaya çalışıyorum. Yalnız bir yerden sonra takıldım. okulda kademeye ve sınıfa göre değişen ücretlerimiz var. Ben oluşturduğum formda

1.  seçtiğim
   - yeni kademesine,
   - Kayıt durumuna,
   - Kayıt Türüne bakarak
ÜCRET tablosundaki verilerden kriterlere uyan ücrete göre KAYIT ÜCRETİ alanına otomatik ücreti yansıtmak istiyorum.

2. KAYIT ÜCRETİ ni bulduktan sonra İSKONTOlara göre ücrette indirim yaptırmak istiyorum. Örneğin %5 Peşin ödeme yaptıysa Kayıt ücretine %5 indirim yaparak sağ taraftaki kırmızı alandaki T_EĞİTİM_ÜCRETİ alanına yazdıracak. Yalnız birden fazla iskonto varsa örneğin %5 Peşin ödeme indirimi ve kardeşi de varsa % 5 de Kardeş indirimi yapılacak. bunu yaparkende önce KAYIT ÜCRETİNE %5 indirim yapacak sonra kalana %5 daha indirim yaparak ücreti bulacak.

bu konuda yardımcı olabilirseniz çok minnettar olurum.

şimdiden herşey için teşekkürler.

sayın arasson,

öncelikle;
kendi adıma eklediğiniz uygulama üst sürüm olması nedeni ile inceleme durumu söz konusu olmamaktadır.bundan dolayı da bilgilendirme veya yönlendirme yapamayacağım (önceki sürüme göre de eklemeniz halinde inceleme imkanı da olabilir,bu sürümleri kullananlar adına) fakat sadece şu tavsiyede bulunmayı da uygun görmekteyim.

Alıntı:Kendimi Access programında geliştirmek için Ekteki öğrenci kayıt için kullanılacak bir program oluşturmaya çalışıyorum. 

ifadenize yönelik olarak;

gerek T_EĞİTİM_ÜCRETİ ve gerekse de KAYIT ÜCRETİ tanımlama ifadelerinize dair,aşağıda bağlantısı yazılı konuyu incelemenizi ve madem ki henüz daha yeni bir çalışma aşamasındasınız öyleyse,bu hususların size faydalı olacağı kanısındayım.

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler

son olarak;
eklediğiniz uygulamada (inceleyemediğimden dolayı tahmini belirtiyorum),lütfen eğer varsa gerçek kişi bilgileri yerine bunu değiştirerek içeriğinde farazi gerçek dışı uydurma kişi bilgileri olacak şekilde ve sonuçları da görebilmek adına birkaç veri barındıracak halde ekleyiniz.

bilginize...iyi çalışmalar,saygılar.

Atom hocanın açıklamalarına ek olarak.

Ücret tablosunda kayıt durumu ile ilgili veri yok. Kayıt durumundan yaptı veya yapmadı seçilirse ne değişecek.

Ayrıca kriter olarak iskontoları da eklemek lazım. Tabloda +%5 +%5 mevzusu var.

Forma buton ekleyip tıklandığında olayına aşağıdaki kodu yazınız.

Dim GKriter As String

Dim GKademe As String



If IsNull([YENİ KADEME]) Or Me.YENİ_KADEME = "" Then

MsgBox ("Yeni Kademeyi Seçiniz")

Exit Sub

ElseIf IsNull([KAYIT TÜRÜ]) Or [KAYIT TÜRÜ] = "" Then

MsgBox ("Kayıt türünü seçiniz")

End If

GKriter = [KAYIT TÜRÜ].Column(1) & IIf([% 5 - PEŞİN ÖDEME İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - ÖĞRETMEN İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - KARDEŞ İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - MEV MEZUNU İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - TOPLU KAYIT İSKONTOSU] = "-1", " + %5", "")

GKademe = Me.[YENİ KADEME].Column(1)



Me.TOPLAM_ÜCRET = Dlookup ("[ÜCRET]", "ÜCRET", "[KAYIT TÜRÜ]='" & GKriter & "' And [KADEME]='" & GKademe & "'")

Bu kayıt durumu olmadan yapılan hesaplama. Seçilecek iskontoya göre hesaplama yenilenir.

Ayrıca ugulamadaki hataları mutlaka düzeltiniz.
Yapılmaması gereken ölümcül hatalar.

Hocam çok teşekkürler,

Bir inceleyip dönüş yapacağım.
Sizin gözünüze çarpan ölümcül hatalar neler acaba?

(19/04/2016, 13:39)ozanakkaya yazdı: Forma buton ekleyip tıklandığında olayına aşağıdaki kodu yazınız.

Dim GKriter As String

Dim GKademe As String



If IsNull([YENİ KADEME]) Or Me.YENİ_KADEME = "" Then

MsgBox ("Yeni Kademeyi Seçiniz")

Exit Sub

ElseIf IsNull([KAYIT TÜRÜ]) Or [KAYIT TÜRÜ] = "" Then

MsgBox ("Kayıt türünü seçiniz")

End If

GKriter = [KAYIT TÜRÜ].Column(1) & IIf([% 5 - PEŞİN ÖDEME İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - ÖĞRETMEN İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - KARDEŞ İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - MEV MEZUNU İSKONTOSU] = "-1", " + %5", "") & IIf([% 5 - TOPLU KAYIT İSKONTOSU] = "-1", " + %5", "")

GKademe = Me.[YENİ KADEME].Column(1)



Me.TOPLAM_ÜCRET = Dlookup ("[ÜCRET]", "ÜCRET", "[KAYIT TÜRÜ]='" & GKriter & "' And [KADEME]='" & GKademe & "'")

Bu kayıt durumu olmadan yapılan hesaplama. Seçilecek iskontoya göre hesaplama yenilenir.

Ayrıca ugulamadaki hataları mutlaka düzeltiniz.
Yapılmaması gereken ölümcül hatalar.

Tamamı desem?

Yapılmaması gereken ölümcül hatalar konusunu inceleyiniz.