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