Kod ile kayıt cogaltma

17/02/2015, 21:46

nacar

 

   Merhaba
   Aynı tablo üzerinde sorgu ile seçtiğim kayıtların çoğalmasını istiyorum.
  Komut düğmesi sihirbazındaki kayıt çoğalt özelliği ile yapabiliyorum ancak makro bir süre sonra çalışmıyor.
   Kayıt çoğaltma işlemini kod ile nasıl yaparım ?
17/02/2015, 22:45

ozanakkaya

Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz. Bu kod ile sadece 3 alanın kopyalanmasını sağladım, diğer tarih alanlarının da kopyalanmasını istiyorsanız koda ekleme yapılması gerekiyor.


DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Tablo1 ( adısoyadı, Adres, [not] ) SELECT Tablo1.adısoyadı, Tablo1.Adres, Tablo1.[not] FROM Tablo1 WHERE (((Tablo1.sırano)=[Formlar]![cogalt form]![sırano]));"
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdSaveRecord
Me.Requery
DoCmd.GoToRecord , , acLast


Ayrıca, tablonuzda bulunan "not" isimli alanın ismini değiştiriniz. Kod yazımı sırasında sıkıntı çıkarabilir.
18/02/2015, 13:53

nacar

Çok teşekkür ederim Sn: ozanakkaya