Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [MAKRO] Kayıt çoğaltma

[MAKRO] Kayıt çoğaltma
ÜmitSamlı
Aktif Üye 150-200

*
Kayıt Tarihi: 21.08.2011
Toplam 26 konu açtı.
Toplam 179 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 5 / 0
#1
access-sql-20  26-01-2023, 16:16
Herkese merhaba,

Access veri tabanım üzerinde kayıtları çoğaltmak istiyorum fakat 2 sorunum var. Çoğaltma işlemini normalde aşağıdaki kodlar ile yapıyorum. Fakat 1 verinin kaydını bile kopyalamak çok uzun zaman alıyor. Bunun nedeninin veri tabanımda 30.000 e yakın kayıt olduğundan ve 100 ün üzerinde veri alanı var. Bundan kaynaklanıyor olabilir diye düşünüyorum. Dolayısıyla can sıkıcı bir süreç oluyor benim için. 
Visual Basic
  1. Private Sub Komut185_Click()
  2. DoCmd.RunCommand acCmdSelectRecord
  3. DoCmd.RunCommand acCmdCopy
  4. DoCmd.RunCommand acCmdSelectRecord
  5. DoCmd.RunCommand acCmdPasteAppend
  6.  
  7. End Sub



Bunun yerine düğme üzerine makro ekleyerek kayıt çoğaltmak istiyorum ama Access in kendi otomatik kayıt çoğaltma makrosu hata veriyor. Hatanın nedeni sanırım aşağıdaki resimde belli oluyor. Resimde göreceğiniz gibi kopyalama ve yapıştırma alanları ingilizce ve o alanlarda türkçe kopyala yapıştır komutları maalesef yok.


.png   Kaydı Çoğalt.png (Boyut: 27,72 KB / İndirilme: 27)

1. Yaşadığım bu çok yavaş kayıt kopyalama işlemi makro ile çözülür mü?
2. Eğer çözülmezse bu işlemi hızlandırmanın farklı bir yöntemi var mıdır?
3. Otomatik kayıt çoğaltma (ekli resimdeki) makro hatasını nasıl düzeltebilirim?

Saygılarımla,
Ümit ŞAMLI



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 25 konu açtı.
Toplam 8.705 yorum yaptı.
Toplam 948 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 47 / 211
#2
26-01-2023, 18:14
Visual Basic
  1. CurrentDb.Execute "INSERT INTO TabloAdi ( Sutun1, Sutun2 ) SELECT TabloAdi.Sutun1, TabloAdi.Sutun2 FROM TabloAdi WHERE (((TabloAdi.IndexSut)=" & Me.IndexSut & "))"
  2. Me.Requery



yapılabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
BeyTor
Aktif Üye 100-150

*
Kayıt Tarihi: 05.01.2023
Toplam 16 konu açtı.
Toplam 145 yorum yaptı.
Toplam 25 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2016, Office 2019,
Beğeniler: 25 / 6
#3
27-01-2023, 00:39 (En son düzenleme: 27-01-2023, 00:40 BeyTor.)
dSezgin hocamın verdiği SQL iş görür. bu tarz durumlarda VBA kodlamanızı SQL ekleyebilirsiniz. Şipşak halleder  Dd



  Bul
  Alıntı
Bu mesajı beğenenler:
ÜmitSamlı
Aktif Üye 150-200

*
Kayıt Tarihi: 21.08.2011
Toplam 26 konu açtı.
Toplam 179 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 5 / 0
#4
27-01-2023, 09:01
Merhaba,

Dönüşleriniz için çok teşekkürler. Ama ekli resimdeki hatayı alıyorum.

Neden olabilir?

Saygılarımla,


Eklenti Dosyaları
.png   Ekran görüntüsü 2023-01-27 090029.png (Boyut: 108,07 KB / İndirilme: 26)



  Bul
  Alıntı
Bu mesajı beğenenler:
alperalper
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 626 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#5
27-01-2023, 17:03
(27-01-2023, 09:01)ÜmitSamlı demiş ki: Merhaba,

Dönüşleriniz için çok teşekkürler. Ama ekli resimdeki hatayı alıyorum.

Neden olabilir?

Saygılarımla,

Sorgu içindeki WHERE kısmı koşuludur. Sizin IndexSut diye yazdığınız koşul için değeri bulamıyor. Form üzerinde Me.IndexSut diye bir alan olması ve o alanda veri olması gerekiyor



  Bul
  Alıntı
Bu mesajı beğenenler:
ÜmitSamlı
Aktif Üye 150-200

*
Kayıt Tarihi: 21.08.2011
Toplam 26 konu açtı.
Toplam 179 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 5 / 0
#6
02-02-2023, 15:17
Dönüşünüz için teşekkürler. Söylediğinizi uygulayınca sorunum çözüldü. 

Şimdi ise ufak bir sorunum var. Çok fazla alanım olduğu için bu kodu tek satıra sığdıramıyorum. Bu kodu bölerek bir alt satıra nasıl taşıyabilirim?

Visual Basic
  1. CurrentDb.Execute "INSERT INTO TeklifTablosu ( FirsatKodu, TeklifKodu, Musteri, Talep, TalepTarihi, ImalatYontemi, Yontem, Tedarikci, SatisProjeSorumlusu, TeklifeCikisTarihi, UrunHammaddesi, BaskiAdedi, Hacim, Teklifdurum, TeklifEkBilgi, IscilikVarmi, Musteridurum, ParcaResmiAdres, ParcaTanimi, X, Y, Z, Yuzey, Zorluk ) SELECT TeklifTablosu.FirsatKodu, TeklifTablosu.TeklifKodu, TeklifTablosu.Musteri, TeklifTablosu.Talep, TeklifTablosu.TalepTarihi, TeklifTablosu.ImalatYontemi, TeklifTablosu.Yontem, TeklifTablosu.Tedarikci, TeklifTablosu.SatisProjeSorumlusu, TeklifTablosu.TeklifeCikisTarihi, TeklifTablosu.UrunHammaddesi, TeklifTablosu.BaskiAdedi, TeklifTablosu.Hacim, TeklifTablosu.Teklifdurum, TeklifTablosu.TeklifEkBilgi, TeklifTablosu.IscilikVarmi, TeklifTablosu.Musteridurum, TeklifTablosu.ParcaResmiAdres, TeklifTablosu.ParcaTanimi, TeklifTablosu.X, TeklifTablosu.Y, TeklifTablosu.Z, TeklifTablosu.Yuzey, TeklifTablosu.Zorluk  FROM TeklifTablosu WHERE (((TeklifTablosu.ID)=" & Me.ID & "))"





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 305 21-07-2023, 10:40
Son Mesaj: onur_can
  [VBA] Kayıt çoğaltma benuva 11 317 04-11-2022, 21:06
Son Mesaj: benuva
  [FORM] Puantaj Kayıt Formlarında Kayıt Hataları M_Kemal_Askeri 11 989 26-02-2021, 15:27
Son Mesaj: M_Kemal_Askeri
  [VBA] Liste Den Kayıt Seçme Ve Yazdırma Yada Listeden Kayıt Seçim Buton Ile Yazdırma Ahmet51 6 1.087 10-02-2020, 16:24
Son Mesaj: Ahmet51
access-sql-18 [VBA] Kayıt Butonuna Tıklamadan Kayıt Etme Sorunu mkmugla 2 645 20-01-2020, 08:27
Son Mesaj: mkmugla
  Araç çubuğu çoğaltma husem 4 629 27-10-2019, 22:07
Son Mesaj: husem
  [FORM] Alt_Form Satır Çoğaltma sadikkavakli 2 849 29-09-2018, 08:48
Son Mesaj: sadikkavakli
  [FORM] Yeni kayıt butonu liste kutusunu güncellemiyor ve yeni kayıt yapmıyor. Orion 2 1.033 25-08-2018, 21:07
Son Mesaj: Orion

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi