Set Sorgum = CurrentDb.QueryDefs("kbsorgu")
Set Kayit = Sorgum.OpenRecordset()
kodu yerine
Set Kayit = CurrentDb.OpenRecordset("SELECT * FROM kimlikbilgileri WHERE (((sira)=" & Me.mtn_sira & "))")
kodu ekle.
Dim Sorgum As QueryDef
yerine deDim Kayit As DAO.Recordset
kodu ekle.