Skip to main content

AccessTr.neT


Mükerrer Kayıt Hk.

Mükerrer Kayıt Hk.

#10
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Mükerrer Kayıt Hk. - Yazar: serkan1985 - 26/07/2019, 17:07
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 26/07/2019, 18:13
Re: Mükerrer Kayıt Hk. - Yazar: serkan1985 - 27/07/2019, 21:13
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 27/07/2019, 21:45
RE: Mükerrer Kayıt Hk. - Yazar: serkan1985 - 28/07/2019, 00:12
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 28/07/2019, 00:36
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 28/07/2019, 00:46
RE: Mükerrer Kayıt Hk. - Yazar: cozum - 02/08/2019, 10:54
RE: Mükerrer Kayıt Hk. - Yazar: serkan1985 - 28/07/2019, 01:33
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 28/07/2019, 10:05
Cvp: Mükerrer Kayıt Hk. - Yazar: berduş - 02/08/2019, 11:21
RE: Mükerrer Kayıt Hk. - Yazar: cozum - 02/08/2019, 12:18
Task