Formun kayıt kaynağını Tbl_personel tablosu olarak değiştir. İzin bilgilerini altform olarak ekleidğin için formun kayıt kaynağını sorgu eklemene gerek yok,

Perliste isimli liste kutusunun güncelleştirme sonrasında olayındaki kodu sil, yerine aşağıdakini yapıştır.

 Dim rs As Object



 Set rs = Me.Recordset.Clone

 rs.FindFirst "[Personel No] = " & Str(Nz(Screen.ActiveControl, 0))

 If Not rs.EOF Then Me.Bookmark = rs.Bookmark