@onur_can hocam ben denediğimde yeni kaydı eklemiyordu
az önce yine dendim kaydı eklemiyor
kullandığım kod

    Dim veriSayisi As Integer

    If IsNull(Me.tarih.Value) Or IsNull(Me.sayı.Value) Then MsgBox "Tarih yada sayı alanı boş bırakılamaz": Exit Sub ' tarih yada sayı alanı boşsa uyarı verip yordamdan çıkar

    SayKayit = DCount("*", "Tablo2", "harf_id=" & Me.harf_id & " and tarih=" & CLng(Me.tarih.Value) & " and sayı=" & Me.sayı.Value)

    

    If SayKayit > 0 Then

        MsgBox "Bu kayıt zaten mevcut. Kayıt yapılamaz.", vbExclamation, "Uyarı"

        Me.Undo

    Else

        ' Kayıt işlemini gerçekleştirin

        DoCmd.RunCommand acCmdSaveRecord

        ' Yeni kayda geç

        DoCmd.GoToRecord , , acNewRec

    End If