Merhaba,

Sn. Atoz112'nin örneğini incelediğim kadarıyla,

1-) Kontrol alanının aynısı kontrol sorgusunda olmaması için koda

Me.Fayn = ""

eklenebilir.
2-) Bir önceki kayda gitmesi olayı kayıt gezintisinde diğer kayıtları açma olayından mı bahsediyorsunuz anlamadım.
3-) sn atoz112'nin eklediği kodlar uyarı verdirip kaydı geri alıyor, siz kaydın geri alınmasını istemiyorsanız kodları aşağıdakiler ile değiştiriniz.
İptal edilen satırların başına tırnak ekledim, uyarı kodunun altınada yukarı yazdığım kodu ekledim.

'KontrolSorgusu isimli sorguda yer alan MakinaKontrol isimli alanda bulunan değerler,

'formdaki kontrol isimli metin kutusundaki değere göre kontrol edilerek,

'benzer kayıt söz konusu olduğunda uyarı vermesi sağlanmaktadır



'elbette ki,bu işlem SADECE;

'sorgudaki MakinaKontrol alanına ve bu alan için tercih edilen

'üç alan bilgisine göre gerçekleşmektedir!



'son olarak;

'tablodaki benzer kayıtlar silinmemiş ve olduğu gibi bırakılmıştır.

'kodlamadaki kontrol işlemi de var olan kayıtların sonrası için geçerlidir

'bu sebeple,isteğe göre,tablodaki 3. ve 4. kayıtların iptal edilip

'tablodan çıkarılmasının sağlanması yerinde olacaktır.



If Me.kontrol = Dlookup ("MakinaKontrol", "KontrolSorgusu", "[MakinaID]='" & Me.MakinaID & "'") Then

    'eğer benzer nitelikte kayıt girilmişse,uyarı mesajının belirmesi için

    MsgBox ("Aynı kayıt bilgisi daha önceden girilmiştir" & vbCr & "Lütfen,bilgileri kontrol ediniz."), vbCritical, "UYARI"

    Me.Fayn = ""

    'MsgBox ("Kaydetme işlemi iptal edildi."), vbInformation, "BİLGİ"

    'Me.Refresh

    'DoCmd.GoToRecord , , acLast

Else

    'kayıtlar benzer değilse,tabloya kaydetmesi için

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

End If