Skip to main content

AccessTr.neT


Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma

Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma

Çözüldü #1
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.
.rar DENEME_24.10.2017.rar (Dosya Boyutu: 23,88 KB | İndirme Sayısı: 5)
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Merhaba,

Gelir_toplam metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.

Visual Basic Code
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 If
Cevapla
#3
Ç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.
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(24/10/2017 11:28)53rize Adlı Kullanıcıdan Alıntı: Ç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.

Visual Basic Code
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 If
Cevapla
#5
sayın ozanakkaya; tamamdır teşekkür ederim
53rize, 08-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task