Birdaha denedim ayrı kod yazıncada mükerrer kayıt olarak algılıyor dosyayı bitirince eklerim birazdan
Rica ederim.
Deneyebilirsiniz aynı yöntem ile veri doğrulama ile yaptım.
Birde
Vba kod ilede yaparım.
Buda
Excel kodu ile yapıldı.Bence diğeri daha iyi.
Bu dosya makrolu olduğu için uzantısıda xlsm oldu.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 2 Then
If WorksheetFunction.CountIf(Range("B3:B" & Rows.Count), Target.Value) > 1 Then
MsgBox "Mükerrer kayit bulundu...", vbCritical, "Mükerrer"
Target.Value = ""
cancel = True
Target.Select
ActiveWindow.SmallScroll up:=1
End If
End If
End Sub
Access dosyayı biraz inceledim.
sSql = "select [KOD],[Kaynak],[Tarih],[Tesis],[Yer/Bölüm],[Tespit Yapan],[Uygunsuzluk/Ramak Kala/Gözlem],[Önerilen Aksiyon],[sorumlu],[Termin tarihi],[Sorumlu Görüþü/Kararý],[Tamamlama Tarihi],[Durum] from [Sayfa1$B2:N] where [KOD] Is Not Null" '
yerine
sSql = "select * from [Sayfa1$B2:N] where [KOD] Is Not Null" '
olarak kısaca yazabilirsiniz.
Teşekkür ederim bu güzel oldu.