Mükerrer Kayıt Hk. - Baskı Önizleme

Mükerrer Kayıt Hk. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mükerrer Kayıt Hk. (/konu-mukerrer-kayit-hk--85586.html)

Sayfalar: 1 2

Cvp: Mükerrer Kayıt Hk. - berduş - 28/07/2019

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

RE: Mükerrer Kayıt Hk. - serkan1985 - 28/07/2019

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

Cvp: Mükerrer Kayıt Hk. - berduş - 28/07/2019

ÖD)
iyi çalışmalar

RE: Mükerrer Kayıt Hk. - cozum - 02/08/2019

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

Cvp: Mükerrer Kayıt Hk. - berduş - 02/08/2019

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

RE: Mükerrer Kayıt Hk. - cozum - 02/08/2019

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