form üzerindeki kt_id açılan kutusunun kodlarını şu şekilde düzenleyin.

Private Sub kt_ismi_AfterUpdate()



Me.ilac_2 = kt_ismi.Column(2)

Me.ilac_3 = kt_ismi.Column(3)

Me.ilac_4 = kt_ismi.Column(4)

Me.ilac_5 = kt_ismi.Column(5)

Me.ilac_1 = kt_ismi.Column(6)

Me.siklus = kt_ismi.Column(17)

Me.aciklama = Dlookup ("[aciklama]", "[KT]", "[kt_id]=" & Me.kt_id)

Me.ilac_dozu_2 = kt_ismi.Column(7)

Me.ilac_dozu_3 = kt_ismi.Column(8)

Me.ilac_dozu_4 = kt_ismi.Column(9)

Me.ilac_dozu_5 = kt_ismi.Column(10)

Me.ilac_dozu_1 = kt_ismi.Column(11)



Me.uygulama_sekli_2 = kt_ismi.Column(12)

Me.uygulama_sekli_3 = kt_ismi.Column(13)

Me.uygulama_sekli_4 = kt_ismi.Column(14)

Me.uygulama_sekli_5 = kt_ismi.Column(15)

Me.uygulama_sekli_1 = kt_ismi.Column(16)

End Sub