+- 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ığı: Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma (/konu-formda-acilan-kutudan-veri-sectigimde-tablodan-veri-bulma.html)
Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma - 53rize - 24/10/2017
Formda, Gelir_adı Açılan Kutudan Veri Seçtiğimde ve metin kutusuna da değer girdiğimde, Açılan kutuda girdiğim veri Gelir tablosundan o verinin yanında bulunan sutunun (Glr_yüzde) yüzde oranını kadar, Ana tablodaki GM_kln_brc sütününa ve sube_bky aktarsın.
Örneğin; Gelir adı B, Gelir miktarı 3000 tl. olsun, Gelirler tablosunda bu verinin karşısındaki oran %40 olduğundan, 3000 tl % 40 ı GM_kln_brc sütununa ve geriye kalan %60 da sube_bky sütununa nasıl yazdırabiliriz. Teşekkür ederim.
Cvp: Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma - ozanakkaya - 24/10/2017
Merhaba,
Gelir_toplam metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.
Dim GVerim, GKalan As Integer
If IsNull(Me.Açılan_Kutu31) Then
MsgBox ("Gelir Adını Seçiniz")
Me.Açılan_Kutu31.SetFocus
Else
GVerim = Dlookup ("[Glr_Yüzde]", "Gelirler", "[Gelir_adı]='" & [Açılan_Kutu31] & "'")
GKalan = 100 - GVerim
GM_kln_brc = (Me.Gelir_toplam * GVerim) / 100
Sube_bky = (Me.Gelir_toplam * GKalan) / 100
End IfCvp: Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma - 53rize - 24/10/2017
Çok teşekkür ederim istediğim gibi oldu fakat Rakam girdiğimde yüzdelik dağıtımları yapıyor. diyelimki rakam aynı olup gelir cinsini değiştiğimdede güncellesin. Burada ise rakama tekrar müdahale ediyorum güncellemeyi yapıyor.
Cvp: Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma - ozanakkaya - 24/10/2017
(24/10/2017, 11:28)53rize yazdı: Çok teşekkür ederim istediğim gibi oldu fakat Rakam girdiğimde yüzdelik dağıtımları yapıyor. diyelimki rakam aynı olup gelir cinsini değiştiğimdede güncellesin. Burada ise rakama tekrar müdahale ediyorum güncellemeyi yapıyor.
Dim GVerim, GKalan As Integer
If IsNull(Me.Açılan_Kutu31) Then
MsgBox ("Gelir Adını Seçiniz")
Me.Açılan_Kutu31.SetFocus
Else
GVerim = Dlookup ("[Glr_Yüzde]", "Gelirler", "[Gelir_adı]='" & [Açılan_Kutu31] & "'")
GKalan = 100 - GVerim
GM_kln_brc = (Me.Gelir_toplam * GVerim) / 100
Sube_bky = (Me.Gelir_toplam * GKalan) / 100
End IfCvp: Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma - 53rize - 25/10/2017
sayın ozanakkaya; tamamdır teşekkür ederim