sayın ask200075,

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.