Skip to main content

AccessTr.neT


Kayıtlarda otomatik hesaplama yaptırma

Kayıtlarda otomatik hesaplama yaptırma

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


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.
Son Düzenleme: 19/04/2016, 11:44, Düzenleyen: arasson.
Cevapla
#2
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.
Herkes,kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#4
Forma buton ekleyip tıklandığında olayına aşağıdaki kodu yazınız.

Visual Basic Code
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
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 Adlı Kullanıcıdan Alıntı: Forma buton ekleyip tıklandığında olayına aşağıdaki kodu yazınız.

Visual Basic Code
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.

Cevapla
#6
Tamamı desem?

Yapılmaması gereken ölümcül hatalar konusunu inceleyiniz.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da