Sql İle Denetim Kaynağı Belirleme

Sql İle Denetim Kaynağı Belirleme - Baskı Önizleme

+- 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ığı: Sql İle Denetim Kaynağı Belirleme (/konu-sql-ile-denetim-kaynagi-belirleme.html)

Sayfalar: 1 2 3

Sql İle Denetim Kaynağı Belirleme - tanyeri - 25/02/2022

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

RE: Sql İle Denetim Kaynağı Belirleme - lemoncher2 - 25/02/2022

Örnek çalışma ekleyebilirmisiniz.

RE: Sql İle Denetim Kaynağı Belirleme - tanyeri - 25/02/2022

ö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ü.

RE: Sql İle Denetim Kaynağı Belirleme - lemoncher2 - 25/02/2022

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

RE: Sql İle Denetim Kaynağı Belirleme - tanyeri - 25/02/2022

(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?

RE: Sql İle Denetim Kaynağı Belirleme - lemoncher2 - 25/02/2022

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