Form "plan" - Geçerli Olduğunda - Olay Yordamınındaki yazılanları alttaki ile değiştirin..

mtn_gecici = ""

mtn_ara = ""

If IsNull(id_plan) Then

Me.cmb_kategori.RowSource = " SELECT kategori.id_kategori, kategori.kategori FROM kategori"

Me.cmb_kategori.Requery

Else

Me.cmb_kategori.RowSource = " SELECT kategori.id_kategori, kategori.kategori FROM kategori WHERE kategori.id_kategori =" & Me.cmb_kategori.Value

Me.cmb_kategori.Requery

End If