(28/07/2019, 00:46)halily yazdı: kodu bence metin12nin çıkış olayına yazmalısınızmerhaba halil bey.
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
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.