"ak_inctar" a.ılır kutusuna değiştiğinde olayı ekleyip aşağıdaki kodla dener misiniz

Private Sub ak_inctar_Change()

Dim sqlkaynak As String

sqlkaynak = " SELECT * FROM kararlar " & _

            " WHERE (((kararlar.Kimlik)=[Formlar]![incelemekayitlari]![mk_inctarihi]));"

[kararlar_alt_form].Form.RecordSource = sqlkaynak

Me.kararlar_alt_form.Requery

End Sub

misiniz