selam
sorum aslında mükerrer kayıt oluşturmak yada benzersiz kayıt ekleme değil
benim istediğim

yeni kayıt eklerken daha önce kaydedilmiş kayıtla çakışma yani mükerrer olayı meydana geldiğinde msgbox ile ilgili kaydı
şu isimde
şu tarihte bir kaydınız var dedirtmek bu işlemi kısa yolu gerekli

benim yaptığımda isim değişikliği veya yeni kayıt eklerken o anda metin kutusundaki kaydı msajda görüyorum ama önce yapılmış kaydın tarihini alamıyorum

anlattıklarımı yapmam için ayrı metin kutularına ve liste kutusu ekleyip kayıt işleminde kullandığım metinle liste kutusunda aratıp tek kalan veriyi click olayı vs vs

yapılabilir ama çok fafla kod ve yer zaman uzayıp gider bu işin daha kolay bir yolu varmı

mükerrer olayı meydana geldiğinde arka pilanda çalışıp isim kayıt tarihini msgbox ile nasıl gösterebilirim

mükerrer için kullandığım kodlar
1 'MÜKERRER KAYIT ENGELLEME
Dim SD1 As String
Dim stLinkCriteria1 As String
SD1 = Me.ADSOYAD.Value
stLinkCriteria1 = "[ADSOYAD]=" & "'" & SD1 & "'"
If DCount("*", "M_A_ADRES", "ADSOYAD='" & Me.ADSOYAD & "'") > 0 Then
MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "Adında Kaydınız Var Değiştirin", vbExclamation, "Sistem Uyarı"
Me.ADSOYAD.SetFocus
Exit Sub
End If

2 'AYNI İSİMDE KAYIT VARMI KONTROL ET
On Error GoTo hata
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
hata:
If Err = 3022 Then
MsgBox ADSOYAD & vbCr & "" & vbCr & "İSİMDE BİR KAYIT BİR KAYDINIZ VAR DEĞİŞTİRİN", vbExclamation, "SİSTEM BİLGİLENDİRME"
Me.ADSOYAD.SetFocus
Exit Sub
End If

Merhaba..

Kayıt tarihini sakladığınız alandaki veriyi de kayıt sayısındaki kreteri kullanarak Dlookup fonksiyonu ile getirebilirsiniz..

Örnek uygulamanızı ekleyebilirseniz ben de uygulayabilirim..

teşekkürler
sayın taruz bey

örnek ektedir

Sayın Aydın3838
istediğiniz işlem zaten kaydet düğmesine bağlı durumda ve çalışır halde
Yalnız bu kadar çok referansı neden yüklediniz onu anlayamadım

sayın adnan bey

çalışan kodlar hali hazırdaki metin ktusundaki verileri msgboxta göstermekte
benim istediğimse daha önceki kaydedilmiş veride mükerrer kayıt olayı meydana gelirse tarihiğle birlikte ismin falanca tarihte gibi uyarı vermesi

referansa gelince ben ondan anlamıyorum
biraz komik gelebilir
ne olur ne olmaz diye genellikle hepsini işretlerim

bu konuda beni aydınlatırsanız sevinirim
excelden gelme olduğumdan referanslar lazım olabılir düşüncesindendir galiba

sayın aydın38
stLinkCriteria1 = "[ADSOYAD]=" & "'" & SD1 & "'"
Dim kayseri As String
kayseri = DLookup("SİSTEMKAYITTARİH", "M_A_ADRES", "ADSOYAD='" & Me.ADSOYAD & "'")
If Len(kayseri) > 0 Then
MsgBox "" & vbCr & kayseri & " tarihinde" & vbCr & vbCr & Me.ADSOYAD & " Adında Kaydınız Var Değiştirin", vbExclamation, "Sistem Uyarı"
Me.ADSOYAD.SetFocus
iki kırmızı yazı arasını (kaydet düğmesi click inde) yukarıdaki gibi değiştirin