+- 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ığı: Excelden Veri Alma Ve Kaydı Güncelleme (/konu-excelden-veri-alma-ve-kaydi-guncelleme.html)
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 05/02/2020
Birdaha denedim ayrı kod yazıncada mükerrer kayıt olarak algılıyor dosyayı bitirince eklerim birazdan
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - yahyamacit - 05/02/2020
teşekkür ederim hocam.
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 05/02/2020
Rica ederim.
Deneyebilirsiniz aynı yöntem ile veri doğrulama ile yaptım.
Birde Vba kod ilede yaparım.
Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 05/02/2020
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 SubCvp: Excelden Veri Alma Ve Kaydı Güncelleme - feraz - 06/02/2020
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" 'sSql = "select * from [Sayfa1$B2:N] where [KOD] Is Not Null" 'Cvp: Excelden Veri Alma Ve Kaydı Güncelleme - yahyamacit - 06/02/2020
Teşekkür ederim bu güzel oldu.