F_111_KiraSozlesmeleriListesi formundaki txtMulkSahibi metin kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir,

DoCmd.OpenForm "F_100_KIRASOZLESMESI", , , "[Kimlik]=" & [txtKimlik], , , Me.txtKimlik

F_100_KIRASOZLESMESI formunun yüklendiğinde olayındaki kodu aşağıdaki ile değiştir.

If Nz(Len(Me.OpenArgs), 0) = 0 Then



DoCmd.GoToRecord , , acNewRec



End If

Bu şekilde form açma kodunda openargs değeri belirlenmiş ise yeni kayıt kodu çalışmaz.