Forma iki tane geçerli olduğunda olayı eklemişsiniz. Üstteki
Private Sub Form_Current()
Me.cmb_kategorialt.RowSource = " SELECT kategorialt.id_kategorialt, kategorialt.idfk_kategori, kategorialt.kategorialt FROM kategorialt WHERE kategorialt.idfk_kategori =" & Me.cmb_kategori.Value
Me.cmb_kategorialt.Requery
End Sub
Kodunu kaldır. Ayrıca, diğer kodu da aşağıdaki ile değiştir.
Private Sub Form_Current()
mtn_gecici = ""
mtn_ara = ""
'Me.cmb_kategorialt.RowSource = " SELECT kategorialt.id_kategorialt, kategorialt.idfk_kategori, kategorialt.kategorialt FROM kategorialt WHERE kategorialt.idfk_kategori =" & Me.cmb_kategori.Value
Me.cmb_kategorialt.Requery
End Sub