sayın dsezgin83260'ın komutlarını biraz düzenlediğimde istediğim sonuç oldu.sorumla ilgilenen herkese çok teşekkür ederim.
Dim Db As Recordset
Set Db = Me.[tbl_konu Alt Form].Form.RecordsetClone
Db.MoveLast: Db.MoveFirst
soru = InputBox("kaç satır işaretlemek istiyorsun?")
Db.MoveFirst
For i = 1 To soru
Db.Edit
Db!k.Value = True
Db!d.Value = True
Db.Update
Db.MoveNext
Next i
Dim Db As Recordset
Set Db = Me.[tbl_konu Alt Form].Form.RecordsetClone
Db.MoveLast: Db.MoveFirst
soru = InputBox("kaç satır işaretlemek istiyorsun?")
Db.MoveFirst
For i = 1 To soru
Db.Edit
Db!k.Value = True
Db!d.Value = True
Db.Update
Db.MoveNext
Next i
