AccessTr.neT

Merhaba arkadaşlar aşağıda gösterilen resimde 1 numaralı metin kutusuna 2000 ile 2022 arasında bir yıl değeri giriliyor bu yıllara karşılık formun kayıt kaynağında her yıla karşılık bir sütun bulunmaktadır. Sorun şu 1 numaralı metin kutusuna hangi değer girilmişse 2 numaralı metin kutusundaki değer ilgili sütuna kayıt edilecek. Metin kutusunun denetim kaynağını belirlemek için 1 numaralı metin kutusu güncellendiğinde;

Private Sub Yil_AfterUpdate()



    If Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2000 Then

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2001

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2002

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2003

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2004

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2005

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2006

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2007

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    Else: Form_FYeni_Birim_Fiyat_Ekle.Yil.Text = 2008

        Form_FYeni_Birim_Fiyat_Ekle.textbox_birimfiyat.ControlSource = "SELECT TBirimFiyatlar.sirano, TBirimFiyatlar.kurum, TBirimFiyatlar.bolumu, TBirimFiyatlar.yenipozno, TBirimFiyatlar.eskipozno, TBirimFiyatlar.tanimi, TBirimFiyatlar." & Me.Yil & " As " & Me.Yil & " FROM TBirimFiyatlar "

    End If

  

End Sub

Örnek çalışma ekleyebilirmisiniz.

örnek dosya ekte sunulmuştur hocam yılı liste kutusu ile de denedim metin kutusu ilede denedim ancak denetim kaynağına müdehale edemedim bir türlü.

Sayın @tanyeri projeniz iyice çıkmaza giriyor hatırlatmak isterim tekrardan.

(25/02/2022, 21:06)lemoncher2 yazdı: [ -> ]Sayın @tanyeri projeniz iyice çıkmaza giriyor hatırlatmak isterim tekrardan.

hocam tavsiyeniz nedir? Tabloları parçalamalı mıyım?

Yıl sütunları ayrı bir tabloda tutmalısınız bu tablonuzdaki alanlar ise

Yillar_ID, sirano, Yıl şeklinde olmalı bu şekilde her yeni yılda yeni sütun eklemek ve tüm formüllerinizi güncellemek zorunda kalmazsınız