Merhaba,

kitap_becid metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyiniz.

Dim GKitap As String



GKitap = Nz(DLookup("[kitap_degerlendirid]", "tbl_baksay", "[kim_id]=" & Nz([kim_id], 0) & " and [kitap_becid] = " & Nz([kitap_becid], 0) & ""), 0)



If GKitap <> 0 Then



    MsgBox ("bu kitap daha önce aynı kişiye verilmiş")

    Me.kitap_becid = ""

    Me.kim_id.SetFocus

    Me.kitap_becid.SetFocus



End If