Kodu bu şekilde değiştirin işlem tamam denemesi yapılmıştır.
Kolay Gelsin.
Private Sub Form_BeforeInsert(Cancel As Integer)
If NewRecord Then
If IsNull(DLast("[İade Tarihi]", "[Zimmet_T]", "[plaka no] ='" & Forms!Araclar_Zimmet_F.Metin91.Value & "'")) = True And DCount("[plaka no]", "[Zimmet_T]", "[plaka no] ='" & Forms!Araclar_Zimmet_F.Metin91.Value & "'") > 0 Then
Cancel = True
Me.Undo
Exit Sub
End If
End If
End Sub