(27/04/2018, 12:51)Fikri güler yazdı: hocam selam
mükerrer kayıt engelleme dediğiniz gibi yaptım. Çokta güzel çalışıyor.
Lakin kayıt üzerinde herhangi bir bilgiyi güncellemek istediğimizde bu sefer de aynı kayıt uyarısı yapıyor ve düzeltemeyi yada update i kabul etmiyor.
Bununla ilgili nasıl bir kod geliştirebiliriz.
saygılarımla.

merhaba  mevcut kod üzerinden örnek vermek gerekir ise .
mükerrer kayıt kontrolu yapılıyor fakat yinede kaydedilsinmi diye sorduralım.

Private Sub Komut109_Click()

On Error GoTo Err_Komut109_Click





    varmi = DCount("BarkodNo", "TbStok", "BarkodNo='" & Me.BarkodNo & "'")

    

        If varmi >= 1 Then

        

          If MsgBox("MÜKERRER KAYIT" & vbCrLf & "BARCOD :" & Me.BarkodNo & vbCrLf & "YİNEDE KAYDEDİLSİNMİ ?", vbCritical + vbYesNo, "AccessTR.Net") = vbYes Then

            

            DoCmd.RunCommand acCmdSaveRecord

            Else

            MsgBox "veriler kaydedilmedi"

            Me.Undo

            End If                

        Else        

            DoCmd.Close            

        End If

Exit_Komut109_Click:

    Exit Sub



Err_Komut109_Click:

    MsgBox Err.Description

    Resume Exit_Komut109_Click

    

End Sub

yaparsak olur.