Ekteki örneğimde ortak iş için bir sonuç yaptırmaya çalışıyorum. Arac_Bilgisi formunda Ortak mı alanı "Evet" seçilirse alt formun aktif olması ve seçilen ortakların sayısına göre Kazancı "Kazanc" kısmına yazmasını istiyorum. Bunu da [Araba_Sat]-([Araba_Bedeli]+[Metin4]) hesabı yaptıktan sonra kalan kısmı ortaklara eşit şekilde yazmasını istiyorum.Not [Metin4]=Toplam Maliyet.
Eğer "Hayır" seçilirse yine aktif olsun ama yalnız bir kişi seçme hakkı versin ve kazancın tamamını ona yazsın.
Kod:
Private Sub Ortak_mi_AfterUpdate()
If Me.Ortak_mi.Value = "Evet" Then Me.ODEME_TBL.Visible = True
If Me.Ortak_mi.Value = "Hayır" Then Me.ODEME_TBL.Visible = False
End Sub
Bu kodla alt forumu gizleyebilirsin diye düşünüyorum
Gizleme yordamı doğru. Gizlemenin önemi kalmadı. Çünkü tek kişiye aitse de mecbur isim girilecek. Bu nedenle daha çok hesap işleminin nasıl yapılabileceğini öğrenmek isterim. Bilgi için Teşekkür ederim.
Aslında şöyle bir mantık kurdum. Fakat bunu bir türlü yapamadım. ODEME_TBL ye say diye bir alan ekledim. Kaç kişi yazılırsa o kadar 1 sayısını yazacak. Buna göre de bölme işlemi yapılabilir diye düşünüyorum. Fakat bunu beceremedim.
Bu işlem Evet ise: [Araba_Sat]-([Araba_Bedeli]+(Topla[Maliyet]))/Topla([Say])
Hayır ise :[Araba_Sat]-([Araba_Bedeli]+(Topla[Maliyet]))
Bunu icraata geçiremiyorum maalesef.
ana form üzerine iki adet metin kutu ekleyip denetim kaynaklarına
Kod:
=[ORTALT_TBL].[Form]![Metin4] birine bu diğerine de
=[Araba_Sat]-[Araba_Bedeli]
kodlarını yazarak ana forma alabilir, toplam kazanç bölümüne de
Kod:
=[Formlar]![Arac_Bilgisi]![EKLEDİĞİNİZ METİN KUTUSU]-[Formlar]![Arac_Bilgisi]![EKLEDİĞİNİZ METİN KUTUSU]
kodları ile kazancı hesapladıktan sonrası zaten kaç kişi ise toplam kazancı bölmenize kalacak
Sayın angelos tam sendeki mantığı kurdum ve Metin52 diye metin kutusu ekledim ve formül olarak;
=([Araba_Sat]-([Araba_Bedeli]+[ORTALT_TBL].[Form]![Metin4]))/[ODEME_TBL].[Form]![Metin19]
bunu yazınca işlem yaptı. Şimdi bu metin52 değerini kazanc kısmına nasıl yazdırabilirim. Bu konuda yardımcı olurmusunuz. Teşekkür ederim.