Mükerrer Kayıt Hk.

kodu bence metin12nin çıkış olayına yazmalısınız

Private Sub Metin12_Exit(Cancel As Integer)

Me.Metin12 = Trim(Me.Metin12)

Dim MyForm As Form

Set MyForm = Screen.ActiveForm

DoCmd.SelectObject acForm, MyForm.Name, False

Dim SID As String

Dim stLinkCriteria As String

SID = Me.[KONTEYNER_NO].Value

stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "'"



If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then

    kaydet = MsgBox("Girmekte Oldugunuz" _

    & SID & " isim Daha Önce İşlenmiş." _

    & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _

    , "Uyarı!!!")

    If kaydet = vbNo Then DoCmd.CancelEvent ' eğer cevap hayırsa iptal et, bu kod sadece metin12'den çıkılmasını engeller

End If



End Sub

Belirttiğiniz şekilde uygulayınca sorun çözüldü halil bey desteğinizden dolayı çok teşekkür ederim

ÖD)
iyi çalışmalar

(28/07/2019, 00:46)halily yazdı: kodu bence metin12nin çıkış olayına yazmalısınız

Kod:

Private Sub Metin12_Exit(Cancel As Integer)
Me.Metin12 = Trim(Me.Metin12)
Dim MyForm As Form
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, MyForm.Name, False
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[KONTEYNER_NO].Value
stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "'"

If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then
    kaydet = MsgBox("Girmekte Oldugunuz" _
    & SID & " isim Daha Önce İşlenmiş." _
    & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _
    , "Uyarı!!!")
    If kaydet = vbNo Then DoCmd.CancelEvent ' eğer cevap hayırsa iptal et, bu kod sadece metin12'den çıkılmasını engeller
End If

End Sub

merhaba halil bey.

form üzerinden tabloyu update yapıyorum.  aynı 2 critere uyan varsa beni uyarsın böyle bir örnek çalışmanız var mı?
veya tabloya yeni kayırları atsın
en son kayıt kalsın
eskisi görünmesin veya silinsin
teşekkürler.

sayın @cozum kriterleri yada kod yapısını bilmeden bir şey söylemesi zor ama "dcount" fonksiyonunda da birden fazla kriter kullanılabilir
stLinkCriteria ye birden fazla kriteri tanımlarsanız sorun kalmaz
mesela
stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "' and tip=20" olarak yazarsanız
hem SID hem de tip=20 olanların sayısını verir
kriter eklerken AND/OR (ve/veya) kullanabilirsiniz istediğiniz kadar kriteri de ekleyebilirsiniz

(02/08/2019, 11:21)halily yazdı: sayın @cozum kriterleri yada kod yapısını bilmeden bir şey söylemesi zor ama "dcount" fonksiyonunda da birden fazla kriter kullanılabilir
stLinkCriteria  ye birden fazla kriteri tanımlarsanız sorun kalmaz
mesela
stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "' and tip=20" olarak yazarsanız
hem SID hem de tip=20 olanların sayısını verir
kriter eklerken AND/OR (ve/veya) kullanabilirsiniz istediğiniz kadar kriteri de ekleyebilirsiniz

teşekkürler.