(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.