(24/01/2018, 23:22)golf2000 yazdı: Arkadaşlar DiyelimkiKaydet butonun olay koduna bu kodu uyarlayın
Rakam Sütununa Aynı sayı yı 2 veya daha Fazla Girdiğimizde
Msgbox ile Bize butona Bastığımda
Mesela: 2 Adet 500000 Nolu Evrak Sayı Var Diye Bir Mesaj Gelirmi
Yardımınız İçin Teşekkürler
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[ALan adı girin].Value
stLinkCriteria = "[Alan adınıngirin]=" & "'" & SID & "'"
If DCount("[Alan adını girin]", "tabloadını girin", stLinkCriteria) > 0 Then
MsgBox SID & "---NOLU KAYIT DAHA ÖNCE GİRİLMİŞTİR." _
& vbCr & vbCr & "LÜTFEN TEKRAR KONTROL EDİN,AKSİ TAKDİRDE KAYIT YAPAMAZSINIZ", vbInformation _
, "Alper"
Me.Undo
Else
Exit Sub
End If