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