Alıntı:If DCount("*","Kayıtyapılacaktabloadı",[Kayıteklenecek sutunadı]=&Forms("Formadı").FormMetinkutusu)>0 Then
curruntdb.execute"Insert into...........................................................
else
curruntdb.execute"Update...........................................................
End If
eğer bu kodları kullanmak istiyorsanız;iki açıklamayı belirtmek gerek.
1)
If DCount("*", "Tablo2", "[Ay]='" & Me.Açılan_Kutu55 & "'") > 0 Then
curruntdb.execute"GÜNCELLEME KODLARI buraya yazılacak"
else
curruntdb.execute"YENİ KAYIT KODLARI buraya yazılacak"
End If
öncelikle,yukarıdaki gibi kullanmalısınız,bu kodları.çünkü;
a) IF Fonksiyonu kullanımında kontrol edilecek tablo adı,TABLO2.
b) kontrol ifadesi ile kast edilen şu:
eğer TABLO2 içinde seçilen AY değerine göre kayıtlar mevcutsa (0 (Sıfır) değerinden büyük sonuç elde ediliyorsa),GÜNCELLEME işlemini uygula,
eğer kayıt yoksa YENİ KAYIT EKLEME işlemini uygula.
dolayısı ile de,yazdığınız kodlar için uygulanacak işlem tersi olarak değiştirilmeli.
2)
eğer doğru kontrol kodlarını yazsanız bile,konunuzun 6.mesajında yapılan
Alıntı:...örneğin;10 kayıt varsa ve tekrar aktarırsanız,20 kayıt olacak aynı kayıtları içeren.bunu engellemek için de,tablo2 tablosuna aktarmadan öncesinde mevcut kayıtları önce silip yani temizleyip sonra aktarmanız gerekecek.bu da,önce DELETE sorgusu ardından INSERT INTO sorgusunu çalıştırmak demektir...
açıklamada geçerli olan durum meydana gelecektir.aynı kayıtları tekrar ekleme durumu söz konusu olacaktır.bu nedenle,Mükerrer Kayıt Kontrolü çerçevesinde bu işlemleri sağlamalısınız.
bilginize...iyi çalışmalar,saygılar.