AccessTr.neT
Kayıtlarda otomatik hesaplama yaptırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıtlarda otomatik hesaplama yaptırma (/konu-kayitlarda-otomatik-hesaplama-yaptirma.html)

Sayfalar: 1 2


Kayıtlarda otomatik hesaplama yaptırma - arasson - 19/04/2016

.rar KAYITSON.rar (Dosya Boyutu: 764,84 KB | İndirme Sayısı: 5)


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.


Cvp: Kayıtlarda otomatik hesaplama yaptırma - atoz112 - 19/04/2016

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.


Cvp: Kayıtlarda otomatik hesaplama yaptırma - ozanakkaya - 19/04/2016

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.


Cvp: Kayıtlarda otomatik hesaplama yaptırma - ozanakkaya - 19/04/2016

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.


Cvp: Kayıtlarda otomatik hesaplama yaptırma - arasson - 19/04/2016

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.



Cvp: Kayıtlarda otomatik hesaplama yaptırma - ozanakkaya - 19/04/2016

Tamamı desem?

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